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ベー パー ウェ ア ・ シ リー ズ 
ペー パー ウェ ア FP-1100[1) 


3D プ ルフ ・ シ ミュ レー ショ ン 、 ザ ・ 麻 雀 な ど 面 折 ゲーム 
の 他 .、 エディ タ ・ ア セン プ ブラ, 内 部 ルー チン の 解析 記事 、 
全 回 路 図 集 な ど を 掲載 . 

B5 判 140 頁 定価 1.300 円 (〒250) 


【】 
ペー パー ウェ ア PC-9801[1] 
PC-9801 の 特徴 を 活か し た 日 本 語 デ ー タ ・ ベ ー ス 在庫 
管理 、 金 種 計算 、 給与 シス テム な ど オ ー ル ・ ビ ジネス ・ プ 
ログ ラム 集 。 PC-8801 と の 其 用 プロ グラ ム も 併 寺 . 
BB5 判 140 頁 定価 1.300 円 (〒250) 


【-) o 
ベ ペー パー ウェ ア PC-6001[1] 
^BASIC コ ン バ イ ラブ ログ ラム ・ コ ン テ ス 
堂 に 集め た エキ サイ テン グ ・ ゲ ー ム 特集 号 
ト も 全 公 開 . 
B5 判 148 頁 定価 1.300 円 (〒250) 


ペー パー ウェ ア PASOPIA[1〕 


第 1 回 「PASOPIA プ ログ ラム ・ コ ン テ ス ト 」 の 優秀 作品 
を 集め 、 シ ステ ム , ビジ ネス , 教育 、 ゲ ー ム の 4 編 構成 . バ 
ソ ビ ア 8 機種 対応 プロ グラ ム を 滴 幸 . 

B5 判 228 真 定価 1.600 円 (〒250) 


ペー パー ウェ ア ベー シッ クマ スタ ー[1〕 
83 年 度 「 ペ ベー シッ クマ スタ ー プ ログ ラム ・ コ ン テ ス ト 」 

の 入選 作品 を 一 挙 掲載 。L3。L3MARK5. Jr. ユー ザー に 

は 必読 の 珠 玉 の ブロ グラ ム 集 . 

B5 判 148 真 定価 1.600 円 (〒250) 


CS 
ペー パー ウェ ア PASOPIA(2〕 

PW PASOPIA の 第 2 弾 / 第 2 回 「PASOPIA プ ブロ グラ 
ム ・ コ ン テ ス ト 」 の 入賞 ・ 人 秀作 品 を 集め 全 リ スト を 公 義 。 
B5 判 164 頁 定価 1.600 円 (〒250) 


_ HI7 〇 別 厨 


APPLE and PET 四 , 四 


アッ プル / ペ ッ ト の ユー ザー と 6502 ファ 
ド ・ プ ブッ ク 


B5 判 288 頁 定価 2.500 円 (〒300) 


プロ グラ ム 電 卓 ゲ ー ム 《!, の 


ト ^ 入 選 作 を 一 
ソー ス ・ リ ス 





ン の た め の が ガイ 


この 本 で ポケ ッ ト ・ コ ン ビ ュー タ が ゲー ム ・ マ シン に 変 
身 (!?). アイ デア 溢れ る プロ グラ ム ・ ゲ ー ム 集 . 
A5 判 各 定価 1.200 円 (〒250) 


プロ グラ ム 電 卓 ゲ ー ム ⑥ 

ポケ コン 傑作 ゲー ム 集 の 第 3 弾 ./ 成 選 さ れ た プロ グラ ム 
を お 届け し ます . 
A5 判 定価 1.500 円 (〒250) 


グラ フィ ッ ク ・ プ リン タ の 使い 方 
プリ ンタ を リス ト ・ ア ウ ト の 為 だ け に 使 
な 方 に ぜひ お 薦め の 一 冊 . 

に な る こと 請け 合い . 

B5 判 212 頁 定価 1.900 円 (〒300) 


6 ー ミ < 
ボ ポケ コン ・ プ ログ ラミ ング 入門 

PC-1500 の 多彩 な 機能 を フル 活用 する た め の バ イプ ブル . 
知ら な い 人 に は 基本 か ら 。 知っ て る 人 に は と っ て お き の プ 
ログ ラミ ング ・ テ クニ ッ ク を 教え ます . 
A5 判 204 頁 定価 1.500 円 (〒250) 

o ゃ . ポー 
ポケ コン 活用 術 

PC-1500 の 機械 語 プ ログ ラム を 作る ノウ ハウ , 限界 まで 
使い こなす ハイ ・ テ クニ ッ ク を 徹底 解説 . 機械 語 ビ ギ ナ ー 
に も 最適 の 入門 壮 で す . 
A5 判 296 頁 定価 1.500 円 (〒300) 
PC-2001 プ ログ ラム ・ ラ イブ ラリ 

ハン ド ヘ ルド ・ コ ンピュータ PC-2001 を ビジ ネス か ら ホ 
ビー まで 多目的 に 活用 で きる 本 で す . カモ ッ ト と 併せ て 
利用 くだ さい . 
B5 判 196 頁 定価 1.900 円 (〒250) 

o ミエ 
パソ コン 計測 ・ 制 御 の 実験 と 製作 

バ パソ コン を 使っ た 外部 制御 ・ 自 動 制御 の ソフ ト 
が この 一 民 で マス ター. 話題 の マイ クロ マウ ス 
製作 の 実例 を 詳解. 
B5 判 244 頁 定価 1.900 円 (〒300) 
WICS・BASE プロ グラ ム 集 

整数 型 イ ンタ ー プ リタ , コン バイ ラ を 備え た 言語 WICS. 
アモ セン プラ BASE,、 その ソー ス ・ リ スト を 全 公 開 . 
タイ ム 高 達 ゲー ム も 併 落 、 NZ ユー ザー 侍 癌 の 肝 . 
B5 判 336 頁 定価 2.500 円 (〒300) 


PROGRAM CONTEST 作 品 集 四 
「I/O プ ログ ラム ・ コ ン テ ス ト 」 参 加 作 品 の 中 か ら , 特に 

優秀 な も の ば か り 集 め た 作品 集 で す . 

B5 判 296 真 定価 2.500 円 (〒300) 


し em- | トク グ ス 4 リピ ビレ < 
CPU 町 , 四 , 回 , 四 
まっ た く の 入 門 者 に も BASIC を わか りや すく 解説 。 ビ ギ 
ナー の 気持 に 立っ て 編集 . TV バ パソ コン 番組 「 コ ン ビ ュー 
ト な いと 」 の テキ スト と し て も ご 利用 いた だ け ま す ・ 
B5 判 各 定 価 650 円 (〒250) 
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「 ヘ ェ ー」 と 』 


・ ハ ー ド 
な どの 実験 ・ 


リア ル ・ 


CPU 回 
医 琵 思 パ ソコ ン ・ プ ログ ラミ ング 入門 


BASIC か ら マ シン 語 ま で プログ ラム 作り の ノウ ・ ハ ウ を 
実例 入り で 解説 し ます . また 人 工 知能 , OS- 9 の 話 , 面白 
ゲー ム も 満載 . 9 
B5 判 定価 650 円 (〒250) 


7 ゴリ リヒ エンス リピ ニレ < 


ヽ 
マイ コン 徹底 研究 

M6800 を ハー ド か ら ソ フト ま て 初心 者 に も わか る よう に 、 
て いね い に 解 説 。 マイ コン の 入門 書 と し て 大 好評 
B5 判 256 真 定価 1.900 円 (〒300) 


5 
BASIC ゲ ー ム 徹底 研究 

Tiny BASIC や レベ ル 1BASIC の プロ グラ ミン グ の 基礎 
か ら 応 用 まで 、 徹底 的 に 解説 し まし た . 
B5 判 264 真 定価 1.900 円 (〒300) 
マシ ン 語 徹底 研究 

ド マ シ ン 語 ^ は どう も わか ら な い 、 
円 革 . Z80.8080, 6800.6502 を 解説 
B5 判 310 真 定価 1.900 円 (〒300) 


マイ コン ・ ソ フト 徹底 研究 
アモ ンプ ブラ 入門 か ら DOS の 作り 方 ま 

た い 人 に は 必読 の 一 同 

5 判 304 頁 定価 1.900 円 (〒300) . 


マイ コン ・ ゲ ー ム 徹底 研究 M 

SLOT ゲー ム . 野球 ゲー ム な ど 60 編 以上 収録 . あな た を 
マイ コン ・ ゲ ー ム の エキ スバ パート に する ブロ グラ ム 集 . 
B5 判 280 頁 定価 1.900 円 (〒300) 

の 

マイ コン ・ ゲ ー ム の 本 加 急 , 回 , 四 , 昌 

面 販 マイ コン ・ ゲ ー ム が ギュ ウ ギ ュ ウ 詰め 。 ゲー ム 好 き 
の 君 な ら , この 本 を 持っ て な きゃ マニ ア じ ゃ な い (!?). 
BB5 判 


と いう 人 の た め の 入 


で ソフ ト に 強く な り 


各 定 価 1.900 円 (〒300) 






「4 し @ ! gm る 二 ] 
%2 種 情報 処理 技術 者 義 失 【59 年 度 版 


第 2 種 情報 処理 技術 者 試験 問題 を 徹底 解説 受験 者 の テ 
キス ト と し て 格好 の 草 
赤松 徹 著 A5 判 544 真 定価 2.500 円 (〒300) 


CAP-X 入 門 〔59 年 度 版 〕 

わずか 12 の 命令 を 覚 を る だ け で ,、 あな た に も アセ モン プラ 
が わか る . アセ モン ブラ 入門 者 向き . 
赤松 徹 著 A5 判 580 真 定価 2.500 円 (〒300) 


PASCAL 入 門 
60 も の 和 豊 滞 な 例題 で PASCAL を わか りや すく 解説 英 ・ 
独 ・ 米 で も 出版 
1R. ウ ィ ル ソン A.M ア ディ マン 共著 A5 判 200 頁 
定価 1.200 円 (〒250) 


ucsp PASCAL 演 習 
多く の マイ コン に イン プット さ れ , い まや 標準 的 PASCAL 

と な っ た UCSD PASCAL の 開発 者 Bowles の 名 著 . 
ケネス . し . ボ ウル ズ 著 。A5 判 448 貢 定価 2.900 円 (〒300) 
BASIC サ ブル ー チ ン ・ ハ ンド プ ブック 

サ プ ブル ー チ ン 化 すれ ば ビギナー で も 楽に プロ グラ ミン グ . 
役立つ サブ ルー チン 実例 を 満載 . 
K. ト ラク トン 著 A5 判 160 頁 定価 1.500 円 (〒250) 


プロ グラ ム 電 卓 に よる 土木 設計 

上 木 (基礎 ) の 設計 に 手軽 な プロ グラ ム 電 卓 (FX-602P) 
を フル に 使う た め の 和書 
佐々 木 昌 訓 著 B5 判 240 頁 定価 2.800 円 (〒300) 


UNIX 入 門 


ミニ コン の 標準 的 な OS と し て 知ら れる ユニ ックス の 入門 
半 .、 豊富 な 実行 例 と 実践 的 な 内 容 で 好評 を 得 て い る - 
R. ト ー マ ス /J イ ェ ー ツ 共著 A5 判 520 頁 定価 2.900 円 (〒300) 


HC-20 科 学 技術 プロ グラ ム 集 頭 , 骨 . 
ハン ド ヘ ルド ・ コ ンピュータ HC-20 を 実務 , 教育 。 学 

な ど に 利用 する た め の プ ログ ラム を 100 本 以上 収録 . 

アイ ・ ビ ・ シ 編 B5 判 232 真 各 定 価 2.500 円 (〒300) 

リレー ショ ナル ・ デ ー タ ー ベ ー ス の 使い 方 
本 書 は CP/M マ シン て で 使え る リレー ショ ナル ・ デ ー タ ベ 

ー ス GBS を 例 に 挙げ 。 概念 や 使い 方 を 具体 的 に 解説 し ます . 

B5 判 定価 1.500 円 (〒250) 


FORTH 入 門 


実用 高級 言語 “FORTHP の 基礎 か ら 応用 まで を . 
を 揚げ な が ら わ か りや すく 解説 し て いま す . 
レオ ・ プ ロディ ー 著 原 道 赤 訳 A5 判 440 頁 定価 2.500 円 (300) 


VisiCalc 入門 

圧 到 的 普及 率 を 誇る 作 表 型 の 簡易 言語 VisiCalc( ビ ジ カ ル 
ク ). パソ コン を 初め て 使う 人 で も , 使い こなせ る よう 書か 
れ た VisiCalc 入 門 書 の 決定 版 で す . 
ダグ ラス ・ ハ ー ガ ー ト 著 A5 判 224 頁 定価 2.000 円 (〒250) 


6809 マ シン 語 入門 


2 進数 ,16 進 数 の 基礎 か ら 始 まり 6809CPTU の 仕組 を 解説 し 
て いる ほか 。 実戦 的 プロ グラ ミン グ ・ テ クニ ッ ク を 説明 . 
6809 フ ァ ン 待望 の マシ ン 語 入門 書 で す . 


R. ザ ックス ,W. ラ ビア ッ ク 共 著 A5 羊 896 真 定価 2.500 円 (〒300) 





適 例 


BASIC 入 門 一 ドラ ゴン と 学ぶ プロ グラ ミン グー 


イラ スト を 豊富 に 使い BASIC を 基礎 の 管 呆 か ら わ か りや 


すく , 面白 く 解 説 . 子供 か ら 大 人 ま て 楽し く 学 べ ま す . 
ロドニー・ ザ ックス 著 A5 判 近日 発売 
VVordStar 入門 


ワー ドス ター は 代表 的 な 英文 ワー プロ の アプ リ ケ ー シ ョ 
ン ・ ソ フト と し て 広く 世界 で 使わ れ て いま す . 本 書 は ワー 
プロ の 手引 き 書 と し て , わか り 易 く 解 説 し て いま す <。 
アー サー・ ネ イマ ン 著 AS5 判 近日 発売 
C-MOS IC の 使い 方 
C-MOS IC の 入門 書 で す が . デジ タル の 概念 , MOS FET 
の 動作 原理 な ど 基 礎 的 な も の も 解説 デジ タル IC。 応 用 シ 
ステ ム を 学 ぼ う , 設計 し よう と いう 方 に 格好 の 書 で す . 
穴 倉 博久 B5 判 近日 発売 


PC-5000 ポ ー タ ブル ・ コ ンピュータ 入門 


16 ビ ピッ ト ・ ポ ー タ ブル ・ コ ンピュータ PC-5000 の 全 青 を 
凝縮 し 、 表 計算 簡易 ソフ ト TOOLPLAN を わか りや すく 解説 . 
池田 純一 著 A5 判 176 真 定価 2.000 円 (〒250) 


ソフ トウ ェ ア ・ ラ イブ ラリ - 四 

ポケ ッ ト ・ コ ン ビ ュー タ を ビジ ネス に , ゲー ム に 。 
ソナ ル ・ ユ ー ス に 使い こなす た め に 欠か せな い 本 . 
B5 判 各 定価 2.500 円 (〒300) 


BASIC ソ フト ウェ ア 集 No. 馴 ,M, 回 , 四 
「 ポ ケッ ト ・ コ ンピュータ 友の会 」 会 員 の アイ デア あふ 

れる ボケ コン 用 プロ グラ ム を 多数 収録 . 

B5 判 各 定価 1.900 円 (〒300) 


PC-1401 入 門 か ら 応用 まで 

ポケ コン と し て , 関数 電 晶 として, 1 耕 で 2 役 の 機能 を 
持つ PC-1401 の 入門 か ら 応 用 まで を 徹底 解 
A5 判 256 頁 定価 1.600 円 (〒250) 

ー タ ブル コン ピュ ー タ ビジ ネス ソフ ト 
(Ca5000 滞 が プ ルー ンチ ン 集 ] 

16 ビ ピッ ト ・ ポ ボー タブ ルコ ンピュータ PC-5000 の 多 方 面 に 


利用 で きる YS6 ン を この 一 財 に 収録 . 
B5 判 288 頁 定価 2.500 円 (〒300) 


TOOLPLANTM 活 用 集 玉 , 困 
PC-5000 用 | 日 本 語 対応 ] 表 計算 簡易 ソフ ト TOOLPLANTM 

その 使い 方 か ら 実 用 例 ま で を 満 胃 

B5 判 各 定価 2.900 円 (〒300) 


活用 研究 シリ ー ズ 


ベー シッ クマ スタ ー 活 用 研究 

ベー シッ クマ スタ ーL3/Jr. の すべ て を 公開 . プ ログ ラム 
・ コ ン テ ス ト 入 選 作 も 同時 掲載 . 
日 5 判 332 頁 定価 2.500 円 (〒300) 


パー 





MZ-80B 活 用 研究 

MZ-80B の ハイ ・ パ バ フォー マンス と 秒 軟 性 を 活か し た コ 
ン バ パイ ラ , ビジ ネス ・ ブ ログ ラム な ど 多 数 収録 . 
B5 判 320 真 定価 2.500 円 (〒300) 
MZ-80 活 用 研究 

* ク リー ン ・ コ ンピュータ MZ-80. その 衝 性 クリー 


ン ” を 活か し た アイ デア が 集結 . 
B5 判 344 頁 定価 1.900 円 (〒300) 


PC-8001 活 用 研究 

* ソ コン 時 代 の 区 了 明 け を 飾っ た PC-8001. 
迷 に 必要 な 情報 を 滴 幸 

B5 判 344 頁 定価 2.500 円 (〒300) 


PC 活用 研究 (8001/8001mKII/8801) 
PC80/mkII/88 の シス テム , アプ リケーション か ら ハ ー 
ド ま で 幅広 い 貴 重 な 資料 を 収録 . PC ファ ン 座 右 の 革 
BB5 判 320 貢 定価 2.500 円 (〒300) 
FM-8 活 用 研究 
内 部 解析 や リア ル タ イ ム 処 理 へ の 応用 . 
目指 す フ ァ ン た の た め の 手 引 書 . 
B5 判 354 頁 定価 2.500 円 (〒300) 


FM-7/8 活 用 研究 


FM-7 の 全 回 路 図 、BIOS ソ ー ス 


その ソフ ト 朋 


FM-8 の 探究 を 


・ リ スト の 公 明 を は じ め 


貴重 な 資料 や ブロ グラ ム を 満載 . ユー ザー 待望 の 一 冊 . 
B5 判 328 頁 定価 2.500 円 (〒300) 








F'M-7/11 活 用 研究 
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田 六 田 玄 明 


1920 年 代 , S.L.Presse に よっ て 始め られ た ティ ー チ ン 
グ ・ マ シン は , 機械 的 な 制御 機構 を も っ た も の で し た . し 
か し , 1971 年 に イン テル 社 か ら 4001 マ イク ロ プ ロ セ ッ サ ・ 
ファ ミリ が 発表 され て 以来 , マイ クロ コン ピュ ー タ の 発達 
は めざまし いも の が あり , 昨今 で は これ を 教育 に 利用 する 
試み も 急激 に 増加 し て いま す . 

と ころ で , マイ コン を 使っ て CAI(Computer Assisted In- 
struction) を 行なう 場合 , 一 つ は BASIC な どの 汎用 言語 を 
直接 プロ グラ ム す る 方 法 と , な ん ら か の 支援 シス テム ・ プ 
ログ ラム を 使う 方 法 が 考え られ ます . 

前 者 は 当然 , プロ グラ ミン グ に 熟達 し た 教師 し か 作る こ 
と が で き な い の に 対し , 後者 は 計算 機 に 関す る 特別 の 知識 
を 持た な い 教 師 で も , CAI が 利用 で きる こと を 目的 と し た 
も の で す . 

一 方 , CAI に は 紙芝居 の よう に 画面 に 説明 や 問題 が 表示 
され , 生徒 の 反応 に 応じ て 次 の 画面 が 自動 的 に 選択 され て 


ゆく と いう ,『 フ レー ム ・ オ リエ ン テ ッ ド CAI』 が あり ます . 


この 他 に , コン ピュ ー タ 上 て 現象 の シミ ュ レ ーション を 行 
な い , 対話 型 で 現象 を 理解 させ よう と する 『 ゲ ー ム ・ シ ミ 
ュ レ ーション 型 CAI」 や , さら に 人 工 知能 化し て , 生徒 が 
創意 を も っ て 参加 で きた り , 自由 な 質問 に 応じ られ た りす 
る 『 人 工 知能 型 CAl な ど が ある と され て いま す . 

ここ で は , フレ ー ム ・ オ リエ ン テ ッ ド CAI 用 の シス テム ・ 
ン ソン フト ウェ ア を 作成 し た の で , その 概要 と プロ グラ ム ・ リ 
スト を 発表 させ て いた だ きま す . な お , 本 プロ グラ ム は 元 
来 , FM-11 に , 筆者 の 研究 室 で 試作 し た 音声 合成 装置 を 接 
続 し た , 
今回 は , 音声 合成 装置 を 使わ ず に 動く よう に 一 部 仕様 変更 
し た も の を 発表 し ます . 音声 合成 装置 は 当 研 究 室 で 新 ら た 
に 開発 し た も の で す . 興味 の ある 方 は 直接 , 当 研 究 室 へ お 
問い 合せ くだ さい 、. 


プロ グラ ム の 概要 
本 シス テム は , 大 きく わけ て ,。 4 つの モジ ュー ル か ら 成 
っ て いま す ( 図 1). 
@ 教 材 画面 作成 用 サブ プシ ステ ム 
これ は , スク リー ン ・ エ ディ ッ ト 方 式 を 用 いた , 画面 作 
成 用 プロ グラ ム で す . 画面 上 に 図形 や 廊 字 を 描き , これ を 


ディ スク に 格納 する プロ グラ ム で す . この プロ グラ ム は , 
『 画 面 編集 ・ 製 図 プ ログ ラム 』 の も の と まっ た く 同 じ で す . 


シス ナム ソン ント ウエ モノ 





1 CAIl シ ステ ム 利 用 の 流れ 図 













"PenPlt-2" に よる 
画面 の 作成 





"FLOW-13" に よる 


学習 順序 , 正解 その 他 の 入力 教師 


"INI sindo" に よる 
sindo 表 の 初期 化 








"JUG-15" に よる 
CAI 学 習 














2 「FLOW-13」 走 行 時 の 画面 例 





衣 声 応答 式 CAl シ ステ ム 支 援用 の プロ グラ ム で す . 
| 画 全 を 出す 前 の 音声 文 や テバ ン キ ノ カイ ロス `~ ニ ウ イ テ 力 ^ クシ ュ ウ シマ ショ ウ 


ーーーー く < ウロ グッ ラ <。 FOM 22 ニニ ニー 


実行 し た い 番号 を タイ プ し て 下さ い 。 
掌 習 の 流れ の 設計 ・・・・・・ く 1) 
学 百 の 流れ の 変更 ・・・・・・〈 ら 〉 
余 わ り ・・・・・・・・・・・ て 9) 
8 
画面 名 ? P1 


る カッ コノ ナカ ニ イ レ ルカ イロ キ コ * ウメ イラ シタ ノ ア 
人 9 ライ トス リク が "エラ ヒド て 2 


間 還 画面 で すか (1) 、 MENU 画 負 で すか (0) ?. 1 

間 明 の 数 (0 て 10) ? 4 

1 秋 の 解 写 ? ク 

1 番 の 束 数 ? 419 

1 番 の ヒン ト の 文 ? テバ ン キ ラ ヲ ラ オ コ ス ハタ ラキ ラ ズル モノ 








1 番 の ヒン ト の 音声 や テバ ン キ ヲ オ コ ス タラ キラ ズル モノ 
概要 お よび プロ グラ ム ・ リ スト は , そちら を 参照 し て くだ 
さい . 
ここ で 作成 し た 画面 情報 は , 一 画面 ご と に , ディ スク に 
格納 され ます . 教師 は , この プロ グラ ム で 必要 な 画面 を 先 
ず 作 成 し ま す . 
@ 反 業 の 流れ 設計 サブ プ シ ステ ム ( プ ログ ラム 名 FLOW.-13) 
で 作成 し た 画面 を . どの よう な 順序 で 学習 させ る か を 





3 解答 入力 時 の 画面 例 


&O 


図 4 ヒン ト お よび 正解 表示 時 の 画面 





1 回 正解 で す 。 


間 1 ( ) の 中 に 入れ る 回 路 記 号 名 を 、 下 の アン ケ の 中 か ら ラ イト ペン で 選び な さ 
い 。 


(⑦) コラ セント (?) スイ ッ チ (②) ヒュ ー ズ " ( エ ) 電球 (は ) フリ トー 
( ヵ ) 鬼 折 時 。 ( キ ) 導 引 。 ( ク ) 直 人 也 。。 ( ヶ ) コラ ドッ ラサ ー 


男 天 較 画 画 回 較 国 固 
1 番 の 音 ? ?72 














3 回 め 札 向 いで す 。 


間 1 ( ) の 中 に 入れ る 回 路 記 号 名 を 、 下 の アン ケ の 中 か ら ラ イト ペン で 暫 び な さ 
い 。 


(7) コン セフト ( イ ) ズ スイッチ ( ウ ) ヒュ ー ズ “ ( エ ) 電球 ( オ ) フサ ドー 
( カ ) 抵抗 只 ( キ ) 導 旨 ( ク ) 電池 ( ヶ ) コッテ * フ サー 


5P3 記 59 連 "72 
正 区 は 「(] で す 。 ス ペー スキ ー を 押し て 下さ い 。 











半 eC の が , この プロ グラ ム で す . 坪 行 時 の 画面 例 を 図 
だ 示し ます 5 
和 ご と に , 画面 表示 前 後に 出力 する 音声 女 (音声 を 


出 き な いと き は , 何で も 良い ), ヒン ト の 文 、 正解 , 配点 , 
合 属 点 ,、 合格 点 以上 の と き の 光 の 先行 画面 名 。 合格 点 以 下 
の と き の 先 行 画面 名 、 その 他 を ここ て で 入力 し ます . 

入力 情報 は 画面 名 の 後に “.ATR” と いう 拡張 名 が 付い 
て ディ スク に セー プ さ れ ま す . 画面 ファ イル と ^.ATR” フ 
ァイル と は 対 を な し て お り , 次 に 述べ る CAI 授 業 実行 モジ 
ュー ル に よっ て 使わ れ ま す . 

この よう に , 各 画 面 に 対し て 生徒 の 反応 , 得点 に 応じ た 
先行 画面 名 を 与 を て お く こ と に よっ て , CAI を 実行 し た 場 
合 の 生徒 の 反応 、 得点 に 応じ た 画面 が 自動 的 に 選択 され て 
ゆく こと に な り ま す .。 この アイ ディ ア は , 森本 氏 ら やり に ヒ 
ント を 得 た も の で す . 

@ 授 業 実行 サ プシ ステ ム ( プ ログ ラム 名 JUG-15 と INIsindo) 

これ は , の .@ で 作成 し た 教材 ファ イル を 基 に , CAI 授 業 
を 展開 し て ゆく モジ ュー ル で す . 

な お , “JUG-15? 走行 に 先立っ て , 一 度 だ け プ ログ ラム 
YINIsindo′ を 走行 きせ て お く 必 要 が あり ます . これ は , 生 
徒 の 進度 を 記録 し た ファ イル sindo” を 作成 し , 初期 化す 
る た め の も の で す . これ を RUN さ せる と , 最も 初め に 提示 
Et リスト | 


する 画面 の 画面 名 を 尋ね る の で , これ に 答え て くだ さい . 

これ で , 各 生 徒 (0 一 49 番 まで ) の sindo に は , 最初 に 学 
習 す る べき 画面 の 名 前 が 書き 込ま れ ま す . この sindo 表 は C 
AI セッ ショ ン が 終了 する と , その 生徒 が 次 に 学習 すべ き 画 
面 の 名 前 に 書き 換 そ られ ます . 

この sindo 表 の 利用 に より , 多 人 数 の 生徒 の 進度 を 簡単 に 
管理 で き , 次 回 か ら は その 生徒 の 前 回 の 続き を 提示 する こ 
と が で きる こと に な り ま す . 

3 一 4 に, 本 プロ グラ ム 走 行 時 の 学習 進行 状況 を 示し 
て お きま す . 

な お , 本 プロ グラ ム は 現在 CAI 学 会 
と を 付記 し て お きま す . 
《 問 い 合 わせ 先 》 





投稿 中 で ある こ 


有 630 奈良 県 奈良 市 高畑 町 奈良 教育 大 学 技術 課 
避 参 考 文献 
森本 , 中 山 , 深川 , 吉田 :^ マ イコ ン を 使用 し た 演算 機 





能 を も つ CAI に つい て ”。 信 学 技 報 Vol. 82, No.89 (1982) 


ET82-3, p. 47 一 52. 


FLOW-13 プ ログ ラム ・ リ ス ト EE 





1 の の の " 光 光 半 光 光 光 交 基 区区 基 共著 区区 区 基 基 区区 基 光 基 区区 光 基 区 
191 の 9 *"xFRANE URIENTED CAI- QRUTHORINB SYSTEMN 一 #* 
1929 *x PQRT-II(FLOM QRND QATR. ロ F EACH FRAME ) に 
19 さ の "x CODED BY Y. NMUDA。 19 さ . 7. 18(UK) 3 
19 さ 5 "X RIVESED 193. 9. 1 さ ( ロ K) 3 


EC.Yo 六 まえ スエ スエ エメ エエ ネエ エエ エエ テキ エエ テオ テテ エエ テテ キテ ミキ キテ キネ テキ エマ キキ ミキコ 】 
1945 POKE SHFC12。 &H1 プ 

1959_ SCREEN 。9。9 :"GBranhic Scro11 MUDE,Qctive P 
8 ロー⑦。 Di5D Pa ロニ の 

1969 CLS: CHNSDLE9, 25』 の. の ょ MIDTH 49,25 : CaQ=4 : 
B=6.』 CC=5 

1979 LOCATE 242:COLOR 5』PRINT " 
ム 6 FLOM >> ーーーー" ョ PRINT 

1989 LHCATE 19。 弓 :CULUR 2: に に QNJT &HSC42。&H さ 954 。 を H2 
4 さ 7 。 &H24 さ F 。 &H2424 。 &H4 ヨ 6 。 &H さ 966。 

&H2472。 &H25 さ F 。 &H2524 。 &H2557 。 &H24 さ 7 。 &H2446。 &H さ 2 さ ビ 
: &H24 さ 5。 &H2424 。&H212 さ 

1999 LUCATE 1@。 フ CULOR 6:KQNJT &H さ 35 日 , &HSD2C 。 &H2 
44E。 &H4E2E 。 &H246C。 &H244E 。 &H495F 。 

&H ミ フ 57』 ェ PRINT "ーー・(1)『 "カフ シュウ ー ノ ナカ " レ ノ セ ゅ ケイ 
1199 LUCATE 19。9:KaNJT&H さ さる 5 日 。 &HSD2C 。 &H244E 。 &H4E2 
E, &H246C。&H244E。 &H4A51 。 H さ 9 さ 9』 : ビ 

RINT"・・・・・・(2) 9 8 パフ コウ 

1119 LUCATE 19。11 : KANJI &HSD2A。 &H246F 。 &H246 人 is 
PRTINT "< ュ ・・ < に に に に に ( さ ) 

1129_ PRINT : INPUT FLOM 

11 さ 9 UN FLOM BUT 1 169。 1 日 さら 。 1 1 49 

1149 END 

に 1 ン 請う よ エメ エ エエ メ ュ ミ エ メメ エエ テテ テキ キテ テキ キテ テテ メメ 3 

116 の 9 "*% 力 " ウシ ュ ウ ノ ナカ "レノ ニシ ン キ ニュ ウリ ョ フワ 

1 1 ブ の 7 省 光 基 基 光 光 半 涯 基 基 湊 基 半 涯 光 着 半 基 基 基 光 半 基 光 基 光 半 光 区 

1175 FRINT 


ーーーー く くつ フ * ロウ ラ 











1189 COLOR CA:KRNJI &H さ 26 昌 。 &H4C4C。&H4C さ E』: COLOR 

CE: INPUT " "3FILE ま sPRINTs " カリ メ フ メ 

イマ 

1199 COLUR CKANJT &H さ 26 ヨ 。 &H4C4C。&H2472。 &H さ DS の 。 
&H24 さ 9。 &H4 1 さら 9。 &H244E 。 &H さ 2 さ B 。 &H49 

さ C,』&H4A さ Bi s CDLOR CC: INPUT "5 OSMQE ま : PRINTE" が カ ^ 
メン ラ ダ " ス マエ ノ オン セイ プラ シッ ? 

1299 CULUR CKANJI &H さ 26 コ 。 &H4C4C。&H2472。&H さ SD59。 
&H24 さ 7 。 &H24 さ F 。 &HSB6 品 。 <H244E。 &H さ 2 

3B。 &H49 さ じ 。 &H4Q さ Bs CHLOR CC ITNPUT " "USBUN$』 PRIN 
Ts" が メッ ラ ゲッ シタ 7 アト ノ オン セイ ツン 

1219 CULUR CAiKANJI &H4C64。&H426Q。 &H さ 26 日 , &H4C4 ビ 。 
&H2447。 &H24 さ 9。 &H242B。 &H214 人 Q。 &H2 さ 

さ 1 』&H21 4H。 &H2124。&H2 さ 4D ,。 &H2 さ 45。 &H2 さ 4E 。 &H2 さ 555。 &H さ 
268。 &H4C4C。 &H2447。&H24 さ 9。 &H242B。 

&H214A。 SH2 さ さ の 。 &H214Hi COLOR CC 

1229 INPUT MDME :PRINT:" モン フタ トイ カカ "メン フウ メニ ュー カカ "メン フ ウ 

12 さ 9 IF MOME= の THEN BOT 1549 


124@ 

125 の 。 " 。 モン フ タ トイ ー カ "メッ ノー ハア イ 

1269 “ 

127@ COLOR CsKANJT &H4C64 。&H426Q。 を H244E 。 &H さ 


F74 。 &H214Q。 &H2 さ さ 9。 &H2141 , &H2 さ さ 1 。 


&H2 く さ @ 。 &H214B* : CULUR CC INPUT " "INi" モン タイ ノ カス 
の 


1275 *HaRDC 4 


128@ BTEN=G 
1299 FOR 1= の 9 TO N-1 :i PRINT 
1 さ G9 CULUR CBsPRINT エ +1』sKRNJI &H4B56。 &H244E 


ぅ &H さ 272 。 &H45 フ ZAi CHLUR CC INPUT " 
"3 NB ま ( エ ) =sPFRINTE "  ・・・ ノ カイ トウ 
1 さ 1 の 6 COLOR CB: PRINT エ +1』 sKaNJT &H48B56。 &H24 











1O 


リス ト 1 FLOW-13 プ ログ ラム ・ リ スト 





4E。 &H4549。 &HSF74』 = CHLUR CC INPUT 
リリ giTEN(T)sPRINTE *・・・ ノ テンス ウ 


1 さ 29 BTEN=GTEN+TEN(1 ) 

1339 『 COLOR CEBsPRINT エ +1j』:KQANJT &H4B56 。 &H2 

44E 。 &H2552 。 &H25 フ 7 さ 。 &H2S48B 。 &H244E 。 

&H4Q3B』 : COLUR CC INPUT " "HBUN も ( エ ) PRINTE アニー・・・ ノ 
選 ウ ドー ジィ ッ 2 六 

1 ささ 1 COLUR CB:PRINT ユエ +1i:KQNJT &H4 ヨ 56。 &H2 


44E。 &H2552 。 &H257 さ , &H254B。 &H244E。 
&H4Q さ Bi: CDLUR CC "IF 1=2 THEN HaARDC 4 





1 くさ さき INPUT " "5HBUN も (1) 』 PRINT 』 リド ・・< ノ ヒビ 

2 が プー デジ 

1 さ 49 COLOUR CE 』 PRINT エ +1I giKQNJTTI &H4 昌 6 。 &H 

244E。&H2552。 &H257 さ 。 &H254 昌 。 &H244E 

。 &H さ 23E 。 &H49 さ CI gs COLOR CC INPUT "sgHOUS ま (1) siPRINT 
ss" < ノブ ヒント ノ オン セイ 

1 さ 59 NEXT エ 

1 さ 69 " 

1 さ フ の CULUR CA: _ KANJI &H さ 47。&H446 さ 。 &H2569 。 & 晶 

2524 。 &H257 さ 。 &H244E。 &H45549。 &HSF74 

ii COLUR CC INPUT " "Ii STENi PRINT サオ アイ ドラ 

イン ノ テンス ウ 

1 さ B9 COLOR CAKANJ1I &H41 さ 4。&H4C64 。 H49 さ 5 ら 。 &H さ 


272。 &HSB7E 。 kH244E。 H さ 9554 。 &kH496 日 。 
&H2555, H2521 , &H2524 。 H256H。 &H4C さ SE ミ COLDR CC: INP 
UT " "5SBET*$:PRINT:" セト フ モ ン セイ カイ シ 

ノー イキ サキ 
1 さ 99 CULUR CA:KANJTI &H さ Q47,&H446 さ 。 &H2569。 &H2 
524 。 &H257 さ 。 &H さ の 4 。 SHSE65。 &H244E 。 
&H3B7E, &H244E, &H さ 954 。 &H496 昌 。 &H25555。 skH2521 。 &H2524 
。&H256B。 &H4C さ E* : CHLDR CC 
1499 INPUT" "i』SETM$:PRINT:" タカ イ テン ノ ト ギ キノ イキ サキ 
1419 COLUR CA:KANJI &H さ QA47,&H446 さ 。 &H2569。 8kH2 
524。&H25 フ 7 さ 。 &H4C24。 H4B7E , &H244E 。 
&HSB7E, &H244E, &H さ 954 。 &H496 日 。 &H255。 &iH2521 、 &H2524 
。&H256B。 &H4C さ E* : COLDR CC 
1429 INPUT" "MACHT ま :PRTNT:" ヒ フ イィ テン ノ トキ ノ イキ サキ 
1439 COLDR CA:KANJI &H さ B6D,&H457A。&H244E。 &H さ 
E6C。 &H さ 967 。 &H2124 。 SH46 さ 1 。 &kH24 さ 日 。 
&H4C64。&H426Q』&H2472。 &H242F 。 kH246。 SiH242B 。 H242 
。&H24 さ 7 。 SH245E 。 。H24 さ 9。 &kH242B 。 &H2 
14。&H2161 。&H2 さ さ 1 。 &H214B。 H2124*』 
1449 KANJI &HSC21 。&H244E。&H4C64 。&H426A。 SH245 
B, &HSF4A。 &H245F 。 H245E 。 &H24 さ 9 。 &H 
242E。&H214Q。&H2161 。&H2 さ さ 9。 &kH214B。 SH212 さ 』 s EDLOR ビ 
C: INPUT" "iAGAIN: PRINT:" エト ウノ ト 
キ リキ" へ スス ム 力 マ フリ カエ スカ ウマ 
1459 COLOR CA:KANJI &HSB6D , &H246Q。 &H244E。&H4 
247。&H2441 .&H495。 SH246Q。 &H さ 27 ミ 。 
&H3F74。&H244F 。 &H214Q。&H2 さ さ の 9 。 &H214 1 。 &H2 さ さ 9 。 &IH2 さ さ の 
。&H214EBi :COLUR CC 
1469 INFUT" "iTIMS:PRINT: 
br 
1479 CULOR CA:KANJI &H412Q。&H4272。 HB5E 。 &H2 
472。&H467E, &H246C。 SH245E , skH2 さ 49 。 


アヤ マリ ./ ウチ キリ カイ スウ 





&H242E。%&H212 さ 』 :PRINT" (Yes=1。 No=9) "sg CULOR CC 
1489 INPUT " "saYNSEN: FRINT 。: "セン タフ シー イ レ ルカ ウマ 
1499 ST*$=" リ dummy": ITF YNSEN=GTHEN GOTO 1519 
1599 COLUR Ca:KANJ1T &H412。&H4272。 &H さ BSE 。 &H 


244E。&HSF74。 &H244F 。 H214。 &H2522 
,&H2141 ,&H255 さ 1 。 &H214Bs : CULUR CC INPUT " アー" ミ BT* 


5s _ PRINT 3: セン タフ ョ シン カス ^ (アニ ケ ) 

151 の 9 。 ” BUSUB 1669 : GTO 1969 

1515 GUSUE 1669 』"HARDC 4 

1518 END 

152 の 6 " 

15 さ 9 MENU カメ フック リア イ 

1549 * 

1559 YNSEN=1 

1569 COLOR CsKANJT &H412Q。 &H4272。 &H さ BS5E 。 &H2 


44E。&HSF74 。 &H244F 。 SH214。 &H252。 
H2141』&H25 さ 1 。 H214Bs : CDLUR CD: "セン タフ シノ カス "(アー ケ ) 





1579 INPUT" アー" ミ ST sPRKINT: IF ST も =" "0 THEN 日 
TO 164@ 

15 ヨ 9 COULUR Ca:KANJ1T &H412。&H4272。 &H さ BSE 。 &H2 
44E 、 &H く 954 。 &H496B: PRINT: " セン タフ 

ノー イキ サキ 

1599 BE=ASC (GT) 

1699 FOUR TI=S&HE1 TO BB 

1619 COLUR CB:PRINT CHR ま (T) 』:KaNJT &H244E。 


&H さ 954 。 &H496 日 。 <H2555 。 <H252 1 。 &H25 


24。&H256H 。 <H4C さ E ミ : CDLUR CC= INPUT " "』 SENG ま (エー&H 
B1 ) 

162 の 9 PRINT 

16 さ 9 NEXT 1 

1649 BOSUE 166② = GUTO 196@9 


1659 ” 
1669 " FILEMWR 
1679 ON ERRUR BUT 2749 











168@ 人 も ま =F TLE ま すす" 。QTR" | 
1699 UPEN "ロリ 。 攻 1 人員 
1799 MRITE 間 1。 SMQAE ま $。 SBUN$。 YNSEN , ST ま 。 NOME 。 N 


。 BTEN, STEN 。 SET$。 SEIM$。 MACHT*。 AG 
IN。TIMS。 NUM 


1719 IF MOUME=9 THEN BOTO 1769 
1729 FUR 1!=@ TU N-1 

17 さ 9@ MRITE 1。QNS$(T) , TEN( 1 ) 。HBUN ま ( エ ) 。HO 
(1) 

1749 NEXT 1 

1759 BOTOU 1B99 』 "CLOSE 

1769 * SENSTID 

1779 FOR 1=&HB1 TO BB 

178@ MRITE 昔 1 。SENG$( エ ー%&HBE1 ) 
1799 NEXT エ 

1899 CLOSE #1: ロ N ERRUR BUTO @ 
1819 RETURN 


ニア バン 衣 エ エエ エエ エエ エエ エミ ュ エ さよ エエ メメ メメ メメ エマ 3 

1 日 さら "% ジュ キョ ウノ ナカ レノ ハフ コウ 攻 

1 日 4 の "区 交 区 基 半 半 基 区 基 基 基 着 基 直 区区 光 区 基 基 光 

1 コ 45 PRINT 

185S の 9 COLUR CA:KANJTI &H さ 26 日 。 &H4C4C。 &H4C さ Ei : COLOR 
CC INPUT "3 FILE 生ま 7" カリ メン フー メイ マウ 

1869 BUSUB 255@ 』 PRINT :i"xFILERD 

1 ヨロ 79 CULUR CA:KANJT &H さ 268』&H4C4C。&H2472。&H さ DS の, 
&H2439,&H41 さ 9 。 &H244E 。 &HS2 さ B 。 &H49 

さじ 。 &H4A3 日 :" カカ "メン ラ タダ "スマ エ ノ オン セイ プン 

18 ヨ O QA$= ロ SMQE$: BUSUB 246 の 9:』 USMQE*=QQ$ 

1899 CULUR CKQNJI &H さ 268』 &H4C4C。 &H2472。&H さ DS59。 
&H2437。 &H24 さ F 。 &HSB65。 &H244E。 &H さ 2 

さ B。 &H49 さ C。&H4R さ Bi" カリ メッ ラ ダリル アト ノ ォ オン セイ ブラ 
19 の の QR$= ロ SBUN$ : BUSUB 246 の 』 USBUN$=AQQ も 

191G IF MUME=@ THEN BOTH 2 ささ @ 


1929 

193 の 。 "モン タダ "イー カド メン ノー バハ" アイ 

1949 " 

1959 COLOR CA KANJT &H4C64 。&H426。 SH244E 。 &H さ SF ア 


4。&H214Q。&H2 さ さ の 。 &H214 1 。 &H2 さ くさ 1 。 

2 ささ 9。 &H214Bs " モン フタ" イー ノ カズ " 

1969 CULOR CB:PRINT Ni :CHLUR CC INPUT TENP ま も * 
TENP=VaL (TEMF$ も ) 


197 の IF TEMP く >9 THEN N=TEMP 

19 ヨ 9 PRINT _N = PRINT 

199 の 9 FUR 1=@ TO N-1 : PRINT 

2999 CULOR CA:PRINT エ +13 KANJI &H48 コ 6, SH244E 
。 &H3272 。 &H4 プ 内"・・・ ノ ニー カイ トウ 

2919 も =RNG ま (1T) : GUSUB 2469 : NG も (1 ) = も 
2929 CULOR CA:PRINT エ +1i ikKRNJT SH4B56。 SH244E 


。 &H2552。 H257 さ 。 H254B, &H244E。&H4 
AB ・・・ ノ ヒット ノ プッ 

2 っ 9 さ 9 QR$=HBUN$(T ) : BUSUB 2469』HBUN*(T ) = 
2949 POLOR CA:FRINT 1+1ikKRNJT &H4B56。&H244E 
, &H2552。 siH257 さ 。 &H254B, &H244E。&H さ 

23B。 &H49 さ ビュ テア ・・・ ノ ヒット ノー ォ オフ セイ 

2oe5g QA*$=HDS$(T ) : BUSUB 2469:HOB$(T ) = 

2969 COLOR CA:PRINT 1+1j:KANJT &H4B56,&H244E 
, &H4549。&HSF74:" ・・・ ノ テン スウ 


2979 CEOLOR CB : PRINT TEN(I)ig COLOR CC 
INPUT TEMP ま =: TEMP=VAL (TEMF ま も) 

29 フ 9 IF TEMP く > の O THEN TEN(1)=TEMP 

2999 PRINT TENKI) 

2199 NEXT 1: PRINT 

2119 COLOR CA:KRNJT &HSA47,&H446 さ 。 &H2569。 &H252 


4。&H257 さ 。 &H244E。&H4549。 &H さ F74: 
サイ ティ テン 
2129 COLOR CE : PRINT STENi: COLDR CC : 
TNPUT TEMP$: TEMP=VQL (TEMF$ ) 

IF TEMF く >G THEN STEN=TENP 

2149 PRINT BTEN 

215@ COLOR CA:KANJI &H41 さ 4。&H4C64。&H49 さ 5 。 &H さ 2 
2 &H さ B7E 。 H244E 。 &H さ 9554 , &H4968。 SH 
2555。&H2521 。 &H2524 。 &H256B。 SH4CSE:* セ バ ン モー セイ カイ ジ ド 
2169 AAQ$=SEI*$ =: BUSUE 246 の : SE1$=QQ$ 

217G  。 COLOR CA:KQNJT &H さ QA47。&H446 さ 。 &H2569。 &H252 
4。&H257 さ 。 &H さ 94A。 SHSE65。 &H244E 。 &H 

さ B7E 。 &H244E 。 &&H さ 954 。 &H496 日 。 &H2555。 H2521 。 &H2524 。 & 
H256B 。 H4CSE:” 9 カイ テン ノ ト 手 

21O ARQ$=SEIM ま : GUSUB 246O = SETM$ ニ As$ 

2 っ 199  。 COLOR CA:KQNJI &H さ A47,』&H446 さ 。 &H2569 。 &H252 
4。&H25 フ さ 。 &H4C24 。 H4B7E。 &H244E。 &H 

さ B7E 。 siH24 4E。 &H さ 954 。 H496 日 。 SH2555。 skH2521 。 &H2524 。 & 
H256B , H4CSE:" ヒ フ イ テ ン トキ 

2299 ARQ$=MQCHT$ : GUSUB 246G : MQCHI ま = 人 人 A$ 

221 の 。 COLOR Ca:KANJI &HSB6D。&H246Q。&H244E。&H424 
ア 。&H2441 ,&H495A。&H246。 &HS27 フ ミ 。 &H 

さ ミ F フ 74 。 &H244F 。 H214Q。 &H2 さ さ の 。 SH2 1 4 1 。 &H2 さ さ 9。 &H2 さ さ 9 。 


2139 


H214Bs " アヤ マリ ノウ チキ リ カイ マウ 
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リス ト 1 FLOW-18 プ ログ ラム ・ リ スト 






























222@9 COLOR CE : PRINT TIMSi: COLOR CC : 25 さ 9 RETURN 
2549 “ 
INPUT TEMP* 255@ "FILERD 
22 さ の 1F TEMP*=""THEN 224 の 9 ELSE TIMS=VQL (TEMP$) 25o6g * 
224@6 PRINT TIMS 257 の 9 UN ERRUR GUTU 275@ 
225@ COLOR CA:KANJI &H412Q。 SH4272。&H さ BSE 。 &H24 2 っ 58o 人 Q ま = ニ FTLE ま +" 。TR" 
72,&H467E。 &H246C。 &H245E 。 H2 さ 49。 & 2 っ 599 DPEN "1"。 半 1。 全 
H242B,&H212 さ 』 :PFRINT"(Y。y。N。n or ret)"』:CEOLOR CC 2699 INFUT 拉 1。 ロ SMAE$。 SBUN$, YNSEN。 ST$。 MDNE 。 N。 
2269 COLOR CE: PRINT YNSENi : CULOR CCr BTEN, STEN, SE1T ま SETM* ま 。 MACHT ま 。 BRT 
N,TIMS,NUN 
TNPUT TEMP$*: TF TEMP*=""THEN 22 コ の ェ * セッ ワウ シラ 2619 ITF MOME=9 THEN GUTD 266@ 
イレ ルカ マウ 2629 FOR =@ TO N-1 
2279 IF TEMP*$="Y! OR TEMP*$="y" THEN YNSEN=1 EL 263 の 9 TNFUT##1 。 NG も (1 ) 。TEN(T ) 。HBUN ま (T ) 。HHS ま (1 
SE YNSEN=9 ) 
2289 PRINT YNSEN 264G9 NEXT 1 
2299 IF YNSEN=9 THEN 2449 つら ちら @ BDTD 2719 
2 さら 9 『* 2669 :MENU カメ フフ アイ 
2 さ 1 の 9 " MENU カ " メ ラノ バド アイ 2679 BB=ASC (ST ま ) 
2 さ 29 『 2689 FOR 1=&HB1 TO BB 
23 さ 3 の 。 COLOR CA:KANJI &H412Q。&H4272。&H さ BSE 。&H244 っ 699 TNFUT #1。SENB$ (エー&HB1) 
E,&H さ SF74, &H244F 。 &H214。 &H2522。 &H っ 7oo NEXT 
2141 。&H25 さ 1 。 &H214B: ” セン タフ シノ カス " (アー ケ ) っ フ 19 LDSE #1 :UN ERRUR BOTD @ 
2 さ 4 の 9 。 。 COLOR CB:PRINT "アー" ョ ST 叶 j : CHLDR CC INPUT K っ フ 2o RETURN 
8T$ b 27 さ 9 "ERRUR ミ ョ リ 
23 さ 5 の 6 ITF KST$ ぐ > リリ THEN ST*= ド ST 2749 IF ERR=64 THEN に ILL 人 Q$: RESUME 1699:* FILEー 
2369 PRINT ST も LREADY EXIST ERRDR % 
2 さ 7@ IF MOME=1 ロ R ST$="" THEN GOT ロ 2449 っ フ 5G RESUME NEXT 
23B@ COLOR CA:KANJI &H412。&H4272。&H さ BSE 。 &H2 っ フ 69 * SBQVE"FLDM-1 さ " 
44E。&H さ 954 。 &H4968:" カフ セン フ タフ シノ イキ サ 2779 "12755。 1 ささ 1 。 1 ささ 5。 15515 ニ HaRDC 4 アリ 。 
キ 
6 = T*) : 
8 DR TO BB 還 還 東 リス ト 2 INIsindo プ ログ ラム ・ リ ス ト 還 還 還 遇 
2419 _COLOR CA:PRINT CHR$(I)』rKANJT &H244E ッ 2 
&H さ 954 , &H496 日 。 &H2555, &H252 1 。 &H25 000 年 PTNTPDAI エ ZS 本 
24, &H256HB, &H4C さ E 9 
2429 AA$=SENB$( エ ー&HB1) : GUSUE 2469: SENB$( エ ー | 1 の 
&HB1 ) = 13Q OFEN "ロロ"。 拉 1。 "51ind ら 
っ 4SO NEXT エ AR Fa ヒョウ ミ パ スル FRAME( カ メン ) メ イ Cd 
っ 0 sfau1 も =FO) の 
000 、 BOSUB 1669 』 BOTO 1969 1so fF Tne=m Tu 本 
っ 4 ム ん の: 選 
9 " *EDIT-INPUT AA 17O。。 ! 革 1。 TFNM* 
18o NEXT Ii 





2489 COLOR CE 』 PRINT RaR$ 


24996 。。 COLOR CC : LINE INPUT AE$ ば OL.GBGBE/ 装 は 

































本 2 区 2oo END 
NT 219 "SAVE "ristnesn 
トト OS JJUG-15 プ "ログ ラム ・ リ スト EE 
CI ン 間 k た よさ キキ テテ エエ エエ エエ エエ エエ エエ エエ エキ エエ エエ エエ キメ テテ エメ テテ エエ テ よ エエ ココ 499 LUCATE 16。19:KQNJ1T SH2422」 SH244Q。&H24 さ F 。 &HS 
119 "xx FRAME ORIENTED CAI - EXCUTIHN MODELE 一 *# 44E,%H4B56 。 &kH さ 966。 &H247S。 SH25 さ F 。 
12 の 9 CODED BY Y. MUDA。 198 さ .7.21 3 &H2524 、&H2557。 &H24 さ ミア 。 Ho446。&HS23C。&H24 さ 5。 &H2424 
125 " キ RIVESED 198 さ .9.14 3 :H21 で さく: TINFUT NO 
KTE ユ エエ エー ニ エキ キテ エエ エエ エエ テキ エキ エネ テ エキ キネ エエ テ エエ エエ エエ エメ エキ エメ よ キ メメ 3 419 アナ タ ノ ハフ コ ^ ウ ヲ グイ フ 2? シテ 2 フタ” サイ 
1 さ 5 PUKE &HFC12。&H17: * 499 dots mode HARDC ヨウ 4 の 日 $=SD$(NDー1 ) 
149 ロ N CDN (②) BUSUE 4 さ 69 :" オ キン セイ コウ セイ ソウ チラ ヲ リナ ワ ak か 
* "アイ ニ ヒ リ ヨ ウ 。 449 「 NEM FRANE 3 
159 CUNSOULE 9。25』9: MIDTH B9。25 』 COLOR 7。9。7, の し 4c1Cb ま よそ エエ テテ エエ テテ テテ エキ エエ テテ エキ キテ テキ エキ テテ エキ 3 
: CLS 469 UN ERRDR GOTD 4519 
169 DEFINT QA-Z : DEFSNB T。R 479  CLS: IF 日 ま ="EEE"THEN GOT 1269:* COURSE END へ 
17 ら LSENTK=19 = CMN= さ さ : LIM=299: BLIM=199: CLI 4B9 BUBUE 1989 :『FILER 
M=25: DL IM=1799: BLIM= さ 99 496  E ニ E+1 
189 DIM BP9(GLIN) 。BP1 (BL IM) 。 BFP2 (BL IM) 。 BP さ (GL IM) 5 コ 99 IF E=1 THEN GOTO 39 7 ET メ 
、GF4(GLIM) 51 ら CNSQLE @』24:LDCATE 29。』B: に ERNJI &H さ さ 5B。 &HSD 
199 DIM BP5(BLTINM) 。BP6(BL IM) 。 BP7 (LIM) 。 BPB (BL IM) ぞ じ 。%H2472。 SH42 さ さ 。&H24 さ 1 。 &H24SE 。 
, BF9(BL TIN) H24 さ 9。 &H242Ei カ ^ フシ ュ ウ ラー リ リー ケ マ スズ カ 
299 DIM CMMANDX(CMN) 。 SD ま (5@) 515 QA も = リカ ワシ ュ ウ ニー ラ の カマ スズカ ": GUSUE さら 69: * xHQSS 
219 * ET 
229 DEF FNKAN ま (KC) =CHR$(KC \ &H1O9) +CHR ま (KC MDD 518 INFUT "(Yes=1 。No=9)"* CTN 
&H1@9) 519 *HaRDC 4 
2 さ 9 RESTORE 259 529 IF CTN=GTHEN GUTU 1 さ 19: "ホン シト リー ジュ ウリ ョ ウ へ 
249 FOR II=1 TO CMN : READ CMMANDX(II) : NEXT 1 5 さ の 9 ! E メ 
1 549 QR も =DSMAE*: BHSUE さら 69』 " xHASSE 
259 " xCommand LIST 55e BDSUB 21B9 = "xDRAMF 
269 DaTQS2。&H7 さ 。 48B。&H6C。 HG2。&H6 さ 。 2B。 29。 さ の 。 さ 1 56@ QA ま $=DSEUN ま =: GBDSUB さ 569: "HASSE1 
279 。 9315 b。 て 。 > ュー。 7 の BB=ASC (ST$) 
289 DATA49。59。51 2。 さ 。 4 , 5 己 6。 57。&H77 5Bo TF YNSEN=1THEN GUSUR 1479』 "セン フワ フミ ヒョウ ミ バ 
29 の 9 *1W き 24 3 584 お よ 昌 きる ワー 日 9 mW 59@ IF MDME=1THEN GUTO 759: "モタ トイ ーFRAME ノ バア 
さ 39@9 DATA&HZ@。 &H6D。 &H67 。 &H7 日 。 HoE、&H61 。 &H2E 。 &H72 ィ 
さ 19 ヲ DP 山 | ※ ド k E1 で 1 ら 699 タ 
DaTA &H69。%zH2E 。 &H64 。 HGF 。 SH2F 619 * MENU-FRAME ハー ア イ 
? ュ 6 d o / 62@ * 
* 6 さ @ LUCATE 16。LSENTK+2: INFUT 日: 日 ま =SENG$(VQL ( 
GBFN$="5SGF'" : GOUSUE さ 2B9 :*xRDGP E 多 ) VQL ("アリ ) ) = BUTH 121 の 6:" NEXT-F 
DPEN "1"。 蘭 1。"mindo" ILE 
FUR II=@ TU 49: INPUT 1。SD$(T1) :NEXTII 649 5 
CLOSE #1 659 PEN UN : ON PEN BUSUE 679 :" PENSUB 
さ 9@ EE=9: TT し = の : BTUTL= の : EE=CNTL . VAR. FDR SKIPagsk(c 669 BOT 669 
ont or not) 67@ "PENSUB 
ーー 
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リス ト 3 JUG-15 プ ログ ラム ・ リ スト 








6 日 9 PEN UFF BEEP 

699 PX=PEN( 1 ) 4: PY=PEN( つ ) = IF(PY く LSENTK) ロ R (P 
Y>LSENTK+1 ) THEN BUSUB 1679:RETU 

RN 659: 7 22 が "イヤ 

799 FR 11I=9 TH BB-&HE1 

719 TF PX く ニ (4\( エ エ +1)+12 つ ) THEN H ま =SENB ま (TI)s 
RETURN 1219:" NEXT-FILE 

72@9 NEXT Ir 

739 BUSUB 1679 = RETURN 659 :" 72 カイ 

74@ る 

759 モッ 9 ドイ ーFRAME 2 "アイ 

769@ 

77@ TENSU=@ 

78B9 FUR 1=@ TU N-1 

799 TIMSA=9 

B99 の 下 ご の ま ド バ 

19 LOCATE 2。LSENTK+2: COLUR 7:PRINT エ +18s 


RANJI &H4B56』 &H244E。 SH457n。 SHS123 
リド シノ コ 9 エ 


29 LUCATE 949:FRINT TIMSR+1 3 :K に ANJ TI &H さ 2 ア 
さ 。 &H2461: "カイ メ 
39 TF I ヾ 9 THEN QR ま =CHR ま ( エ +&H さ 1 ) ELSE Ra 


= リ 1 リ +CEHR も (エー19+&H さ 1 ) 

49 人 = 人 R ま キリ リド ラノ リキ CHR 和 も (TIMS 人 RT&H さ 1 ) キリ カイ メリ 
: BUSUB さ 69 』 "HASSE1 

B59 IF YNSEN=1 THEN BODSUB 154@ ELSE LUCQT 





E 16。LSENT ド +2: INPUT ANSA ま も : "BET 

AFLF 

69 GUSUB 1739 :" ※HRNTEI 

B79 IF SEI=1 THEN BOT 1949 =: *SETIKAI 

89 ロ 

B99 アヤ マリ 

999 0 

919 BEEP: LUCRTE 2 ら 6。9: も = リマ チカ イ テ ~ ス 。 "= ミ KANJ 


T &H ミ 456 。 &H さ 96 さ 。 <H2424。 SH2447。%H 
24 さ 9。&H212 さ = GUSUB さら 69: " *HQSSE1 


929 BUSUB 4499 : "XSLEE ビ 

9 さ 39 LOCATE 26,9gPRINT " 中 

949 LOCATE 2。LSENTK+ さ : FRINT" ヒッ ント: "igPRIN 
T HEUN$ ま (1 ) 

959 IF TIMSA= の THEN AA$= リ ヒッ ト  " リ +HOS ま も (1 ) 
USUE さ 569: " xHQSSE 1 

969 TIMSA=T INMSR+1 

965 "HARDC 4 

979 IF TIMS:TIMSA THEN 9 の 』" モー パチ ト ~ 

989 

999 LOCATE 2。LSENTK+4: KaNJT SH49 さ コ 。 &HS272 


。&H244F 。H216』 sPRINT NB*(T) iiK 
ANJI &H2157。&H2447。 SH24 さ 9。 SH212 さ 。 SH25 さ 9 。 SH255Q 。 
H213C。 SH25 さ 9 。 &H252D 。 &H21 さ じ 。 H247 
2。&HS221 、&H24 さ 7。 SH2446。 &H さ 2 さ C 。 SH24 さ 55。 &H2424 SH21 


2 さ 








1999 ) \ セ イカ イリ ・・・ テス 。 SDa こ Ce Key ヲ オシ テ 

27~ サイ 。 

1919 人 RR も = リセ イカ イワ リ +ANS も ( エ ) キリ テース 。 スズ? エス キイ ヲ オ 

シテ 7 サイ リュ BUHSUB さ 569: GUSUB 442Oi" 

HASSE { 。 \SLEEP2 

1915 “HARDC 4 

192 の 9 IF INKEY も ="! THEN 192 の 9 ELSE 1199 :" 9 キ 
ノ モッ ゲイ 

19 さ 9 

1949 セイ カイ 

1959 

1969 LOUCATE26。 の: QR も = リ セイ カイ テス 。 "KRNJT&H49 さ 

5 H さ 278 。 SH2447。 SH24 さ 9。 4H212 さ 。 &H 

242 の : BUSUE さ 569 =: " *HQSSE1 

1965 BUSUB 4499 :"xS1eep 

197@ LUCRTE26。9 : PRINT " 

軸 

1999 TENSU=TENSU+TEN1 ) 

1199 人 

1192 “HaRDC 4 

1195 LINE (9。9) 一 (6 さ 9。 39 ) 。 PRESET 。 9。 BF 

1119 LINE (②。LSENTK+2 ) 一 (79。LSENTK+4 ) 。』" 

リ 。9。BF 

1129 LINE (4。16#(LSENTK+ る ) ) 一 (6 さ 4。16* (LSEN 

TK+5) ) 。PRESET 。 9。EF 

11 さ 9 NEXT Ir 

1149 * 

1159 1 FRAME オ ワ リ 

1169 を 

1179 TTL=TTL+TENSU : BTUTL=BTUTL+GTEN 

119 IF TENSU=BTEN THEN BE$=SET ま 

1199 IF _TENSU:=STEN THEN 日 ま =SEINM 生 ELSE BEB ま =MQCH 

1 

1299 “" 

1219 " リキ" ノ FRaME へ 

1229 “ 

12 さ @ SD* ま (NDー1 ) = 日 も 

















1249 
1259 『" 


BOTOU 449 :" NEM FRAME へ 


1269 " COURSE END 

1279 『" 

129 CONSULE 9,24。1 : LUCATE 2。 19 * 

1299 PRINT "XXX "3sKRNJ1I SH2 さ さ 。 &H2 1 さじ 。 &H25 さ 9 


。&H244F 。 &kH24 さ 9 。 &H2459。 &H2446。&H さ 

D2Q,&H246F 。 &H246Q。 &H245E , &H24 さ 7 ア 。 &H24 さ F 。 H212。 &H 
212i :PRINT " xxxx":GUTD 1 さ 379:* テ 

* コー スリ) スパ テオ ワリ マシ!! ミッ アト ショ リ へ 

1 さら 9 
1 さ 19 * 
1 さ 29 ” 
1 ささ 9 LOCATE 日 ,19 

1 さ 49 KAaNJI &HSA2 さ 。&H467C』 &H244E。&H2422」&H244 ボ 。 
&H24 さ F 。 &kH244E。 &H4649。 &H4549。』 SH24 

4Fi sPRINT " "iTTLE"/"5BTDTLI" "skKaNJI &H2447。&H 
24 さ 7。 &H24 さ F 。 H212 さ 。 &HSC21 。 SH2462 

』 &H242C。 &H247 さ 。 &H2459」 &H246。&H24BE。&H24 さ 7 。 &H246 
7 &H2426。 &H212a 


ホフ シド リー ジュウ リョ ウ 


1 さ 45 * 中 品 ウ ノ アナ タダ ノ ト フ テ フ リ 。 。。/。。 デシ タダ 。 リリ 定 "モカ 
トー フリ リマ ショ ウ 。 

135@ RA リキ ョ ウノ アナ ワウ ノ トウ テ フ ハ "』 BUSUE さら 569: Rn$ も = 
TR ま (GTDTL)+"! テン マ フ テ フ / "』 BUSUB 35 

69』 =STR$(TTL)+ リ ! テン フ テリ ジリ タダ 。 リキ " モ カリ フリ "リッ テ フ ダ "サイ 。 
"sk BUSUB ささ 69: "HASSE 1 

1 さ 69 “ 

1379 ” アト ショ リ 

1 さ B9 『* 

1399 KILL "gsindo"' 

1499 OPEN "ロリ 。 蘭 2 "gindo" 

1419 FOR 1I1=G TU 49: WRITE 六 2。 SD ま (II): NEXT 11 
1415 "HaRDC 4 

1429 END 

14 さ 9 『" 

1449 

1459 『“ 

1 4 ら 6 の  " 攻 光 基 半 汗 光 区 半 基 光 区 基 区 交 

3 オア の 穫 セッ ウタ の ジノ / ヒョウ シン 

14 昌 の" 革 基 光 基 基 基 洲 注 区 区 基 区 

1499 X=1 

1599 FUR 1I1I=9 TO BB-&HB1 

1519 LOCATE 4*X+1@ 。 LSENTK: CULOR 19=』 IF II く 
5 THEN KANJT 1 エエ + ォ 1 エエ +&H2522 ュ ELSE 

KANJ TI エエ + ォ 1 エエ +&H2S21 3 

1529 X=X+1: NEXT IIz COULOUR 7: RETURN 

1539 『" に ネエ キネ キ エネ キネ キキ ミキ キテ キキ テキ キネ キ エキ キキ エネ エエ エキ キン キキ エミ キネ エメ エエ マコ 
1549 「※ BETAFLP (BET QRNS$ FRUNM LIGHT PEN) キ 
ce12 症 軸 全 . え え エ エエ エミ メ エメ エメ エエ エミ エエ エエ エエ 革 区 式 よみ は は 
1569 LOCATE 16。 LSENTK+2 = INPUT ANSA$ : RETU 
RN 

1579 

15 ヨ 6 PEN _ ロ N: UN PEN GUSUB 1619: "XPENSUBA 
1599 BOTO 1599 

1699 RETURN 

1619 " %PENSUERA 

1629 PEN OUFF: BEEP 

16 さ 9 PX=PEN(1)--4 : PY=PEN(2):IF PY < LSENTK 0 
R _PY > LSENTK+1 THEN BUSUB 167 の = 


RETURN 1589』 72 が イ 


1649 FUR 1IP=9 TO BB-&HE1 
1 659 IF PX く < ニ = 4X(1TP+1)+12 THEN NSR ま = ビ HR( TP+& 
HB1 ) : LCATE 18』LSENTK+2:PRINT Aa 
NSQA ま : RETURN 1699 
1669 NEXT IP :』 BUSUB 16 ヨ 89: RETURN 1589 
1679 "272 が" イ 
1689 BEEP : LUCATE 26。 の 9 : PRINT "ワウ 2 カラ ハリス" レ テ イィ 
マス 。 オシ ナオ シテ フタ "サイ 。 ! 
1699 FOR 1I1I= の 9 TO 1999 』 NEXT II 
1799 LUCATE 26。 @ s PRINT " 
間 
1719 RETURN 
172 の  " ※ 光 基 光 光 基 
173 の 9 *% 。 セイ / コ " ノ ハフ テイ せ # 
174 の 9 "区 半 区 基 基 革 光 区 区 基 交 区 区 交 交 電 
1759 人 QR ま =RNGQ ま ょ : BUSUB 1899: NSR ま = ニ RE 』 "DE 
LSP 
1769 RnQ ま =RNS ま (T) : GUSUB 189O =: QNS$(T)=AE* ま s 
* xDELSP 
1779 NOUCHR= LEN(QNS ま (1 ) ) 
17B9 FUR JJ=1 T ロ 呈 : QNSD$ (JJ)=""s NEXT JJi JJ 
=1 
1799 FOR 11I=1 TH NOCHR 
1899 CC* ま = MID ま ( QANS ま (1I)。 II。 1.) 
1819 IF CC ま <> "。" THEN QNSD ま (JJ ) =QNSD ま も (JJ) 
+CC ま も ELSE ゴゴ =JJ+1 
1829 NEXT 11 
1 日 さら SE エ = の 


1849 FOR T1=1 TO JJ 
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185@9 IF NSR ま =QNSD ま (II) THEN SEI=1 
186@9 NEXT Ir 
1879 RETURN 


1 に ( ン 間 全 よそ エエ エエ エエ エエ テテ エ エエ キテ エエ エエ テ エ エエ テテ エエ テ エ エエ エエ エエ テ エ エエ テ エ テ そ マコ 

導 甘 着 基 半 基 基 基 基 基 基 基 基 基 天 

18996 "X DELSP ( DELETE SPACES IN QR も QRND RETURN 
IT IN RB も ) 革 

ん ん ( ン 衣 義 攻 えさ よさ エエ エメ エミ エエ エエ エエ エエ エネ エミ エエ エミ テテ エエ テテ テテ エエ エミ メメ 3 

ド ペ エエ メキ エエ テテ エエ キ テコ 


1919 NOUCHR= LEN(AR ま ) : AH$= リ リ 

1929 FUR II=1 TO NUCHR 

19 さ の CC ま = MID ま (QR まま 。 II。 1 ) 

1949 IF CC まく ぐ >! ! THEN RE も = 日 + じ じゃ 
1959 NEXT 1I 

196@ RETURN 


ルル ン 六 エメ エエ エメ メメ エエ メ エ メメ コ 


1989 "% FILE RERD # 
199 の 9  " 光 光 光 光 区 光電 


2999 ああ +"。 ATR" 
2919 DPEN "1"」。 2。 AA 

2929 INPUT 2。DSMAE$。 HBBUN*$。 YNSEN 。 ST$。 MOME 。 N 。 
BTEN,。STEN。 SE1I$。SETM$。 MACHT$。 QBRT 

N,TINS。NUN 

29 さ の IF MOME=9 THEN 2999 :" MENU- カ メン ノリ アイ 
N 

2949 FOR II=G TO N-1 

っ 295 INPUT 半 2。 ANS$(T TI) 。TEN(TT) 。HBUN ま (TI) 。H 
DS*(11) 

2969 NEXT Ir 

297@ CLOSE #2 : RETURN 


298B の 9 "MENU- カ " メ フ ー ノ フー NT アイ 


2999 EE=QSC (GT ま も ) 

2199 FUR II=&HB1 TO BB 

2119 INPUT 提 2。 SENG ま (エエ ー&HBE1 ) 
2129 NEXT Ii 

21 さ 9 CLOSE 人 2 

2149 RETURN 


の の に 1 ン 間 エミ エメ エエ メス エエ エメ エメ エエ エエ メキ エエ キメ エ メ エ メ エ エエ キテ エ エエ エメ エ テテ エメ エメ 
に 広 エコ 
2169 " 
2 吉 
21 プ の " 光 光 交 間 基 共 区 区 基 光 区 基 洲 区 基 基 区区 基 基 基 区 区区 区 光 区 光 電光 
ユネスコ 

2189 GOTO 2229 
2199  " LPSET 
2299 LLPX=LPX 
TURN 

2 の 1 の 。 
2229 


DRaMF (CAT 2 1 FRAME 力 ~ メー ヲ ヌス フ リー フン ニニ エガ" 


LLPY=LPY : LPX=X = LPY=Y = RE 


DIM (ALIM) 。TA(BLIM) 。$(CLIM) (DLINM) 。PI 
CTUREX (BL IM) 

22 さ の 1=9: ゴ = の : ド = の ェ し ニー: ビニ フェ ド KP ビ ニア : KB ビニ の 

2249 TNC9=16: TNC1=16: X=19: Y=4B: BUSUB 2299+ GOB 
UE 2299:" *LPSET 

225 の CLS: GOSUB 2459 :* ワ 2 ラ カフ ・ 

2269 DPEN "1" 。# つ 。 日 


2279 INFUT 2。LIM。LIB。LIC。LID 

2289 FUR IT=9 TU LIM: TNPUT 音 2。 内 (II1): NEX 
人 

2299 FOUR II=9 TO LIB:z INPUT 拉 つ 。 TA(II)= NEX 
bt 

2 さ 99 FOR II=9 TO LIC: INFUT 持つ 。 人 生ま (II): NEX 
TE 

2 さ 19 FOR II=9 TU LID: INPUT 持つ 。 日 (II)=s NEX 
ki 小江 

2 さ 2 の 9 CLOSE 音 2 

2 ささ @ る 


2 さ 49 =7 : COLOR 7,9。7 


2359 GUSUE 24B9 』 "GETKEYD 

ぞ さ 6@ MHILE CH く >1 

2 さ 79 FR II=1 TO CMN 

2 さ ヨ 9 IF CHMANDX( 1 エ ) =CH THEN F=II :GOUTD 24 
9②9 ELSE F=ー1 


2 さ 99 NEXT Ir 
2499 DN F GOSUB 2599。 さ 529, 256 の 。 25 日 9 , 2629 。 26 
フウ 。 さ 29。 さ 52O 。 さら 29 。 さ 529 , 29 。 さ 552 の 

, 32 。 さ 2 。 2 日 5G 。 29 。 さら 2O 。 さ 29 , さら 2 の 。 さら 2 の 。 2719 。 2 フ 
フウ, 2B19。 さ 29 。 さ 469。 2 , 32 。 2 日 9 の 

。 さ 2 の 、 2529。 さ 529』 さ 1 の , さ 2 の 

2492 7。9。1 。b。 ヒ ュー テ ュ マ ー。 っ 」 1 2。 さ 。4。5。 ら 。7。 日 9 


ュ WP:』 パ ュ K ド ュ a ュ キュ ビュ 。・。 明 。 ロ ュ / 

2419 BOSUB 24B9 : "BETKEYD 

2429 MEND 

24 さ 9 エ = ェ エー1 : ERQSE Q』TQ。Q も 。BE。PTCTUREX: RETURN 


2449 *x ワ 2 ラ カフ 
2459 ENSDLE 9。25.9: CLS 4 

2469 LINE ( さ 。 さ 2) 一 (6 さ 7。 さ 97) 。 PSET 。 7。 BL し INE ( 
さ , 2BB ) (6 さ 7 。 2B ヨ ) 。 PSET 。 

2479 CONSDLE 9,2。 の : RETURN 

24B9 * *GETKEYD 

















2499 CH=( エ ) : エニ エ +1 = RETURN 
2599 " x*CULURD 
2519 C=B(L) : し =L+1 』 COLUR C。 の 9。 ビ = RETURN 


2 っ 529 * *PSETD 

25 さ G GOSUB さ 949 : PSET (X』Y。C) : BETXY 

2549 *" *PSETJ 

255G GOTO 226G :**LPSET 

256@ * *PRESETD 

2579 GOSUE さ 949 : PRESET (X』。Y。C): GOTOU 2299 』" 
*BETXY, xLPSET 

2589 **LINED 

259G6 GOSUB さ 949 : GUSUB さ 969 』*XBETXY』*GETLPXY 
269@ "INEJ 

2619 LINE(LPX。LPY) 一 (X。Y) 。PSET 。 C: BOTOD 2299 ぉ " 
*LPSET 

2629 * BOXD 


26 さ の GOSUB さ 949 = BODSUB さ 969 』' GETXY。』XGETLPXY 
2649 ' xBDXJ 

2659 LINE(LPX,LPY) 一 (X。Y) 。、PSET。C,B: BUTU 2299 
* *LPSET 


2669 ” wCIRCLED 

2679 RADIUS=TA(J) : MFCIRC!=TQ(J+1 ) : = リ +2』 GOS 
UB さ 949 :"xBETXY 

26BG * *CIRCLEJ 

2699 CIRCLE(X。Y) 。RADIUS。C,MFCIRC!:』 GOTO 2299 
* xLPSET 

279 の * PAINTD 

271 の 6 GOSUB さ 169: BUSUE 3 さ 949 : "BETPCBC。*GETXY 

2729 * *PAINTJ 

273② FOR 1I=NBC+1 TO 6: BC(IT)=BC(NBC): NEXT 
1 :PRESET (X,Y) 

274@6 PAINT (X。Y) 。PC。BC(9) 。BC(1 ) , BC(2) , BC (③) 。 BC 
(4) , BC (5) , BC(6) 

275G  。 GOTO 229@:』 **LPSET 

2769 * *PUTD 





2779 BSUB さ 949 skGBUSUB さ の 999 』"XBETXY。XBETDXY 
279 ”" *PUTJ 
279@6 PUTeQA (X,Y) 一 (X+DX。Y+DY) 。PICTUREX。PSET 』 G 


UTU 2299 』"*xLPSET 

299 " GETD 

2819 BUSUEB さ の 49』 GUSUB さ 999 』 "GETXY。XGETDXY 
2B2 の 9 ”" x*BETRJ 

2B さ 9 GET@A (X,』Y) 一 (X+DX。Y+DY) 。PICTUREX。Gi GOTO 
2299 』 ” wLPSET 

2849 " wQRCD 


2B5 の  。XC=B(L) : YC=B(L+1) = ヒ =L+2 
2B69 R!=TA(J) : TMIN=TA(J+1) : TMAX=TA(J+2) 
=J+ さ 

2879 CIRCLE(XC,YC) ,R!。C。MFDIRC! 。 TMIN, TMAX 
2BB9 GOTO 2299 


289 の 6 " xQLPHD 

2999 = 人 Q 和 も (KK) : K= ニ K+1: BUSUB さ 14 の 』s GUSUB さ の 4 の * 
7*GBETMXY。*GBETXY 

2919 "QALPHJ 

292 の 9 SYMBOL (X』Y) 。 じ も 。MX。 MY。 ビ 』 RETURN 

29 さ 9 "XSTXY 


2949 BB(L)=X 3 B(L+1 ) =Y ョ し = ニレ +2 =s RETURN 
295 の *"*BTLPXY 
296 の 9 B(L)=LPX =: 日 (し L+1)=LPY = ヒ し =L+2 =: RETURN 


2979 "STDXY 

299 B(L)=DX = B(L+1)=DY 

2999 ” xSTPCBC 

さ の 9 の 9 B(L)=PC  : HB( し +1)=NBC = し =L+2 

さ 919 FR II= の 9 TH NBC: B(L)=BC(II): し = し +1』 NEXT 
II:i RETURN 

さ の 2 の 9 " *STMXY 


L=L+2 : RETURN 


5 (STORE SYNBQL NMUL FACTOR ) 


さ @ さ @ B(L)=MX =: B(L+1)=MY  』 し =L+2 =s RETURN 
さ の 4 の "GETXY 

さ 95@ X=B(L ) : Y=B(L+1 ) : し =L+2 』 RETURN 
さ の 969 " *BETLPXY 

さ 97@ LPX=B(L) : LPY=B(L+1) = L=L+2 』 RETURN 

さ 9 ヨ の 6 ”" *BETDXY 

さ 99@ DX=B(L) =: DY=B(L+1) = 上 L=L+2 s』 RETURN 

さ 199 ”xGETPCBC 

さ 11@6 PC=B(L)  : NBC=B(L+1) 』 し = ニ L+2 

さ 129 FUR II=9 TU NBC: BC(II)=B(L): L=L+1』s NEXT 


IT:s RETURN 
さき 139 ” *BETMXY 
さ 14@ MX=B(L)  : MY=B(L+1) = L=L+2 s RETURN 
さ 159 “ x*PUTGPD 
さ 16@ GOUSUB さ の 4 の 9 =: BUSUB さ の 69』 GPNOU=BEH(L) : し = ニ し + 
1 "GETXY。*BETLPXY 
さ 179 LX=X+DXGP(GPND) : LY=Y+DYBP(GPNO ) 
さ 19 IF _BPND= ら 9 THEN PUTGA(X。Y) 一 (LX。LY) 。BP9。PSE 
T 』 BUTO 2299 :*xLPSET 
さ 199 IF _BPND=1 THEN PUT8A(X。Y) 一 (LX。LY) 。BP1 。PSE 
T =: BUTO 2299 
さ 299 IF GBPN ロ =2_ THEN PUTGA(X。Y) 一 (LX。LY) 。BP2。 PBE 
T = GUTO 229@9 
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3575 RETURN 





3589 UPEN "1"。 #1。 "CONG』(FBE1 ) " 
3599 PEN "0"。 #2。 "COMO ェ (FBE1 ) " 
さら 699 1 エエ =1:* POINTER TIN QAQ$ 
3619 BB*$=MID* ま (QA, TT。4) 
さき 629 TF BB*="!" THEN CLOSE 1。 革 23 RETURN 
さ 6 さ 9 BUSUB さ 679: "HASB 
さ 649 BOTD さ 619 
3e5 の * 
さ 669  ” HASB (BB$ ヲ wt セイ & PDINTER コウ シン ) 
3679 " 
さ 6@ エエ = エエ 1 
さ 699 B1 ま =MID$ ま (BB$。 1 」1) : TF B1 ま = " 
UR B1$="、" THEN GBDTD 4499:" *SLEE 
P 
さ 799 B2*=MID$ も (BB ま 。2。1)』IF B1*="Y" AND 
" DR B2="、") THEN B1=" ワ " 
さ 719 さま も =MITD ま (BB も 。 さ 。 1 ) 
さ 729 B4$=MID* ま (BB$。4。 1 ) 
さ 7 さ の TF Bo$="^" THEN さ BBG 
さ 374 の IF B2*="oV THEN さ BB 
さ 75@ ITF B2*=" ャ " THEN ささ 9 
"3 さ 76@ TF B2*=" ュ " THEN さ 日 さ の 
さ 779 ITF B2*=" ョ " THEN ささ 9 
さ 378B9 TF B2$= リ ー" THEN B1$=B1 キ リー リュ 
1 エエ =I エ +1: RETURN 』"xSENDB1$* 
さ フ 9 の ITF B2*="y! THEN B1 ま =B1 ま す " ウ リュ 
1 エニ = エエ +1: RETURN :"*SENDB1$ 
さ B99 日 1 $=B1$+CHR$ (SHFF ) : BUSUB 4299 


さ 219 TIF_ GBPND= さ THEN PUTQ(X』Y) 一 (LX。LY) , GBP さ 。 PBE 
T : BOT 2299 

さ 229 IF _BPN ロ =4 THEN PUrgQ(X。Y) 一 (LX。LY) 。 GBP4。PSE 
T 』 BOTO 2299 

さ 2 さ 9 IF_BFNO=5 _ THEN PUT@Q(X』Y) 一 (LX。LY) , GBP, PSE 
T : BOTO 2299 

さ 24 の 9 IF _GPND=6 THEN PUTeA(X』Y) 一 (LX。LY) , BP6。 PSE 
T 』 BOT 2299 

さ 259 TIF_GPN ロ =7 THEN PUTGeQ(X』Y) 一 (LX。LY) , GBP7。PSE 
T : BOT 2299 

さ 26 の 9 IF _GPNO=B THEN PUTGaA(X。Y) 一 (LX。LY) 。 GBP ヨ 。 PSE 
T : BOT 229@ 

さ 279 IF _BPN ロ =9 THEN PUT@A(X』Y) 一 (LX。LY) , BGP9。PSE 
T 』 BOT 2299 

さ 289 "RDGP 

さ 299 HN ERRUR BOTU 4469 

ささ 9 の 9 UPEN "エリ 。 2 。BFPN$ 

ささ 19 FUR JJ=9 TO 9: TINPUT 提 さ 。DXGP (JJ) : NEXT JJ 
ささ 29 FOUR JJ=9 TO 9: INPUT 揚 さ 。DYGP (JJ) : NEX 
T JJ 

ささ う の @ FUR JJ=@ TU GLIM : INFUT さ 。BP9(JJ) : NEX 
T JJ 

ささ 49 FUR JJ=9 TU BLIM : INPUT さ 。GBP1 (JJ) :』 NEX 
T JJ 

ささ 59 FUR JJ=9 TO GLINM = TNPUT 拉 さ 。GBP2 (JJ) NEX 
T JJ 

ささ 69 FUR JJ=9 TO GLINM : INPUT ## さ 。GP さ (JJ) NEX 
T JJ 

さ 379 FUR JJ= の 9 TO BLINM =: INPUT 拉 さ 。BP4 (JJ) 』 NEX 
T JJ 

ささ 9 FOR JJ=@6 TO GLIM 』 INPUT ## さ 。BP5 (JJ) : NEX 
T JJ 

ささ 99 FOR JJ= の 9 TO BLINM : INPUT 音 さ 。BP6(JJ) 』 NEX 
T JJ 

さ 499 FUR JJ= の TO BLIM :』 INPUT 立 さ 。BP7(JJ) 』 NEX 
T JJ 

さき 419 FUR JJ=@6 TO GLINM : INPUT さ 。 GBP (JJ) 』 NEX 
T JJ 

さき 429 FUR JJ=@ TO GLINM : INPUT 間 さ 。BP ウ (JJ) 』 NEX 
T JJ 

さ 439 ON ERROR GOTO @ 

さ 449 CLUSE 間 2 』 RETURN 

さ 459 

さ 469 *%KaANJID 

さ 479 KC=B(L ) 』 し = し +1』 GUSUB さ 149』 BUSUB 3 さ 949 
『 "XGBETMXY。 GETXY 

さ 489 SYMBOLG (X』Y) 。FNKAN ま (KC) 。 MX。 MY。 ヒビ 

さ 49 の 9 X=X+16XMX 』 GUSUB 2299 』 IF BE(L) く >(-1 ) 
THEN 3 さ 469 』*"xLPSET 

さ 599 し = し +1 =: RETURN 

さ 3819 * DUN 

さ 52 の 9 RETURN 

さ 539 "ErrOr 

3549 "RESUME 1 さ 19 

に に 1 ン 六 まこ よ よ エメ エエ エキ メメ エエ エキ エキ テ ャ マキ キャ テキ キマ 3 

さ 569 "テキ RA ヲ )w セ イ (HASSE 1 ) キ 

に ニア 4 ン 衣 k ス よ さ メ よ よ エメ エエ エエ エメ エエ エキ エ テ エ キャ キミ キャ キテ マコ 


OR B1 遇 = リリ 


( B2 あ = リ 


BUSUB 4299』 


BUSUB 429 の * 


* \SENDB1 


] 

















さ 81@ RETURN 

さ B29  ”* 

3 さ 38B3 の 9 。 "PT ュ ョ 

さ B4@ エエ = エエ +1 

さ 5@ BUSUB 4919』 "COUDE CUNV. エ 

さ 36@ B2 ま =B さ まま: BHTU 3789 :7P2 へ 

37 の 9 。 * 

SB 昌 の コロ で テク 

さ 99 エエ = エエ + ォ 1 

さ 999 IF B さ くま も =" ャ " THEN さ 959 

さ 91@ IF 日 さま も =" リュ" THEN さ 959 

さ 92 の 9 IF B く さま =" ョ " THEN 3959 

さ 93@ BUSUE 4139』 “CUDE CUNV. ir1 

さ 94@ HB つま = 日 さま :s BUTU 37 ヨ 9 

さ 95@ エエ = ニ I エ +1 

さ 96@ BUSUE 4189』 "COUDE CUNV. iT エエ 

さ 97@ B2 ま =B4 ま : BUTD 37B9 

さ 989 『" 

さ 999 "CODE CUNV。 1 (キャ 。 キュ コ 。 キキ 生 。 。。。) 

4999  『" 

491 の 9 IF 日 1$=" キ ! THEN B1$=C じ HR ま (&HBO) 』 GOTH 4 

9 

4 の 629 ITF 日 1 ゆ = リ シリ THEN 遇 1 ネ = ヒ HR も (&H さ ) =: GOTH 49 昌 

9 

4 の 6 さ @ IF 日 1$= リ "チリ THEN B1$= じ HR ま (&HB6) :』 GUTO 498 

9 

4949 IF 日 1 和 $=" ニ ! THEN 日 1 ま =CHR も (&HB9) :』 GOT ロ 46 

9 

4 の 5 の IF 日 1 和 $=" ヒ " THEN 日 1$= じ HKR ま (&HBC ) 』 GUTO 46 昌 

9 

496 ら の IF 日 1 まあ = ミリ THEN 日 1 ま =CHR も (&HBF ) 』 GUT ロ 498 

し ) 

4979 IF 日 1$= リ リリ THEN B1 も = ニ C ビ HR も (&H92) :』 GOTO 4 

9 

4 の ITF 日 1$=" ャ リ " THEN RETURN 

499 の 9 日 1 ま = じ HR も (SC(B1 ま )+1 ) 

4199 ITF B2$=" ュ リ " THEN RETURN 

4119 1 ま = じ HR ま も (RSC(B1 も )+1 ) : RETURN 

4129 ”" 

413 の 9 。 "CODE CONV。 エエ ー( 生 。 N7 。 。。 >) 

4149 『" 

4159 IF B2 ま ="?! THEN BB1 ま =C ビ HR あ (ASC(H1 ま ) +&H2B) 
RETURN 

4169 H1 も = じ HR も (RGC(B1 も ) +&&H39) 』 RETURN 

4179 ”" 

418 の O  ” CODE CUNV。 1 り ( 生 " ャ 。 ヒヤ ャ 。 。。。) 

4199 " 

42 の 9 IF 日 1 まあ = リ "キリ" THEN 日 1 ま =CHR ま (&H95) 』 GUTO 4255 

の 

4219 IF B1$= リ シリ THEN B1 ま =CHR$(&H9 日 ) : BOTOU 425 

9 

422@ B1 も = ビ HR ま $(&HE ) 

42 さ 9 IF B2 ま ="" リ ! THEN 4259 

4249 H1 あ = ビ HR も (人 SC (日 1 も ) + さ ) 

4259 TIF B さ ま も =" ュ " THEN _ RETURN 

4269 B1 ま = じ ビ HR ま (SC(B1)+1) 

4279 EE1 = じ HR ま (SC(B1$)+1 ) : RETURN 

42 ヨ 9 " 

429 の 6  " SEND B1$ TO S1 ロ -POURT の 9 

4 さ 99  " 

4 さ 19 PRTNT #2。 日 1 ま * 

4 さ 29 CUM(9) ロ N :" SID PORT INTERUPT ENABLE 

人 4 ささ 9 BOTOU 43 さ の 』" MRIT FUR SI ロー-INTERUPT 

4 さ 49 CONM (②) UHFF: RETURN 

43 さ 5G "ENTER HERE UN SI ロ -INPUT INTERUPT 

4 さら 6 の RETURN 4 さ 49 

し た アルン 証 ま さよ エエ メ エエ エメ エコ 

43B9 "%* BLEEP #* 

人 4 さ の の "区区 基 革 基 基 半 交 

449 の 9 FOR 1I1=9 TO 79』 NEXT 11:』 RETURN 

441 の " xSBLEEP2 

4429 FUR 1I1= の GO TO 299: NEXT TI1: RETURN 

し "k1 ン 衣 生生 さよ エエ メ エ エエ エエ エエ エエ エメ エエ エコ 

444 の 9 "\ ERRUR ショ リ ルー チン 

し の に (< 衣 計 全 エエ エエ エエ エエ メ エ エメ エメ テ エ エメ エエ エコ 

4469 " "BGP" NOT FOUND ERROR 

4479 RESUME 34 さ @ 

44 ヨ 9 " "sindo" NT FUUND ERROR 

4499 RESUNE 3 の 

459 の " 

4519 CUNSULE 9。24。1:COLOR 4:END 

452 の "オン セイ コ ~ ウ セ イ ソウ チ ヲ シヨ ウ スル ルト キリ ハリ さ 5575 ヲ ケス コト 。 

45 さ の " HRRDC ヲ トル トキ リハ 11 の 2。 965 。 1915。 19。 1415 
の カメ ヨド ト s 

454 の 9 ” Liqht Pen ヲ シヨ ウ スル トキ 6 さ の 。 156@6 ヲ REM フン 

ニ カエ ルコ ト 。 

4559 " BRAVE "JUG-15 
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FM-11+TMIPLOT-II 


面 編集 。 
製図 プログラム 


本 プロ グラ ム は , 画面 に 図形 ・ 文 字 (漢字 を 含む ) を 描 
き , これ を デジ タル ・ プ ロッ タ MIPLOT- II (MP1000-21 
型 。 グ ラフ テッ ク 社 ) に 送り 出す プロ グラ ム で す . FM-11 
の ミニ ・ フ ロッ ピー ディ スク お よび 640X400 ド ッ ト モ ー ド 
の ディ スプ レイ を 想定 し て いま す (CCOPY ま た は WCCOP 
Y と シャ ー プ の カラ ー プ リン タ を 使う と , カラ ー ハ ー ド ・ コ 
ピー も と る こと が で きま す . 

本 プロ グラ ム は , 2 つの モー ド に 分 か れ て いま す .PEN は 
画面 作成 用. PLOTTER は , MIPLOT-II 出力 用 で す . 








使っ て , 画面 に 図形 や 婦 
作成 し た 画面 は , ファ イル に セー ブ し て お 
お よび , 別 稿 の CAI (p.4 ) プ ログ ラ 


素 1 に 示し た 31 個 の コマ ンド を 
を 描き ます . 


き , PEN, PLOTTER, 
ム で 使い ます . 

使用 法 は , 表 1 を 見 れ ば わか る と 思い ます 
意 事項 を 次 に 述べ ます . 
コマ ンド “5/( 数 字 キ ー の 5).“. 

Last Point(LP) を その 点 に 設定 する コマ ンド で す . た だ 
( 家 es (を 打 た ず , [.] で 画面 に 点 を 打ち ます . 
コマ ンド ヾ 

0 ソル を ke 正直 方向 に 延長 し ます . 2 

MAS す . XOR を 使っ て いる の で , 線上 に 点 や 線 

oN の 部 分 が 消 を ます. これ で , 正確 に カー ソル 
が 数 し な か どう か が わか り ま す . 1 一 2 秒 で この カー ソ 
ル 延 長 線 は 消え , 元 の 画面 に 戻り ます . 
@ コ マン ド バ d7。 07。 17 

使用 度 の 高い 図形 を ファ イル に 登録 する に は , 先ず , 
その 図形 の 右 下 端 に カー ソル を 合わ せ , |5] を 押し ます . 次 
に , カー ソル を 図形 の 左上 端 に 移動 し , [q| を 入力 する と パ 
ター ン 番 号 を 問い 合わ せ て くる の で , 0 一 9 の 数 を 入力 し 
ます . 以上 で , 図形 番号 の 定義 が で きま し た . |[ ン | を 押す と, 
グラ フィ ッ ク ・ パ ター ン 用 ファ イル の 名 前 を 閉 い て くる の 
で , これ に 答え る と その 名 前 で 0 一 9 まで の パタ ー ン が フ 
2 

グラ フィ ッ ク ・ フ パタ ー ン を 画面 に だ し た いと き は , カー 
ソル を パタ ー ン の 左上 端 に ちっ て き て , [9] を 押し ます . つ 
ぎ に , パパ ター ン 番 号 を 記入 する と , その ター ン が カー ン ソン 
ル 位 置 を 左上 端 に し て 表示 され ます 


が 。 2.3 の 注 














国 六 田 嘉明 


表 1 画面 編集 プロ グラ ム の コマ ンド 
(*E 印 は , プロ ッ タ 出力 時 に 無効 と な る コマ ンド ) 





















7.8 91 
4-5 一 6 [カー ソン ル (c) を 動か す 
1"32 8 
+ | カー ン ル を 縦 。 横 に 延長 . 
s c の 移動 量 を ドッ ト 単 位 で 指定 
5 Last Point を セッ ト す る . 
・ 点 を 打つ . 
レ 信 * 0 点 を 消す . 
4 a 円 弧 を 描く . 
レ 4 b 箱 を 描く . 
イ c 円 を 描く . 
ッ 庁 d グラ フィ ッ ク 図 形 を 定義 する . 
レ 食 ド o グラ フィ ッ ク 図 形 を 描く . 
ス 且 グラ フィ ッ ク 図 形 を ファ イル に 格納 . 
店 軒 ネ g グラ フィ ッ ク 図 形 を GET す る . 
係 肌 m GET し た グラ フィ ッ ク 図 形 を PUT す る . 















P 色 を 塗る . 








SPACE| | 色 ( 文 字 お よび 線 ) を 変え る . 
文 k 漢字 入力 モー ド に 入る . 
字 r 英 , 数 , カナ , 記号 入力 モー ド に 入る . 
| ー | 
そ w 全 入 力 情報 を ファ イル へ 格納 
(/】 x 入力 を 取り 消す . 
他 コン トロ ー ル A | 終了 する . 














図 1 登録 で きる グラ フィ ッ ク バ ター ン の 了 例 
引 。 も 1 馬 叶 人 委 台 宮 呈 名 


の 


コマンド“^g?。m ィ 7 

図形 を g コ マン ド て で て 配列 へ get し ます . 
の 位置 に get し た 図形 を put す る こと が で 
の 合わ せ 方 は , d. o の 場合 と 同じ で す . 
コマ ンド “a ヶ 

円 張 を 描き ます . 角度 は 中 心 の 真 右 の 円 周 上 の 点 を 0' と 
し , 反 時 計 方 向 に 0" か ら 360" ま で で 指定 し ます た と る ば , 
90 , 180 iR と , 第 2 象限 内 の 1/4 円 弧 が , 180, 90 と 
折 定 し る と , 180* か ら 360* テ 0* を 通っ て 90* ま で の 3/4 円 線 が 
再 か れ ま す . 
コマ ンド *K? 

漢字 入力 モー ド に な り ま す . 音読 み の 頭 1 字 を カナ で 入 
カカ し , 表示 され た 漢字 の 中 か ら 相 当 す る も の を 番号 で 指定 
する , と いう 原始 的 な 方 法 を と っ て いま す . た だ し , FM- 











m コ マン ド は 任意 
きま す . カー ソル 


11 


&O 


2 作図 画面 の ハー ドコ ピー 





ゝ 
旨 が 1 の 
と 


( カ ) 抵抗 論 


問 1 ( ) の 中 に 入れ る 回 路 記 号 名 を 、 


下 の @ の アンケ の 中 か ら ラ イト ペン で 選び な 
2 





( ア ) コッ セッ ト ( イ ) スイ w チ ( 
(*) 導線 。 (3 


本" 0 記 で ボル の テー 
電池 ( ケ ) ココ テッサ ー 


LE 


Cd 
3 
ea の 





3 MIPLOTT- II 作図 例 ( 上 は 倍率 王 2, 下 は 同じ 図形 の 倍 謗 6.5 の 場合 ) 














詞 croBmgoesssoT 











11 の 機能 を 生か し て , 色 や 縦 。 横 の 倍率 を 指定 で きま す 
( の み を 返せ ば , 以前 に 指定 し た 値 が と られ ます ). な お , 
SO0 か ら S49 ま で を 入力 する と , その 番号 で 登録 され た 漢字 
(1420 一 1470 行 ) が 取り だ され ます . 
コマ ンド ヾ x ヶ 

町 正 用 コマ ンド で す . 本 プロ グラ ム は , 入力 し た コマ ン 
ド を 入力 し た 順に 配列 に 格納 し て いく の で , 庄 ま っ て 入力 
し た と き は , |xl を 押し , 続い て 何 個 バ ッ ク す る か を 入力 し 
ます . この と き , 画面 は 一 担 消 去 き され , 初め か ら 描 き な お 
も ま す 。 

また , 初め の 方 で 入力 し た も の を 消去 し た いと き は , そ 


























の ステ ッ プ ま て 戻す こと に な り , 大 変 な ロス で す . も っ と , 


改良 し な けれ ば な ら な いと 考え て いま す . 

終了 は , [CTRL|+[A| を 入力 し ます . [Break | キー で 終了 さ 
せる と , 画面 情報 が ファ イル に セー ブ さ れ な い の で , くれ 
ぐれ も 注意 し て くだ さい . 
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PEN で 作成 し た 画面 を ファ イル か ら 読 み 出し . プロ ッ タ 


に 出力 する プロ グラ ズ で す : MIPEOTFSITA( グ ラフ テッ グ ク 
社 ) は , FM-11 の プリ ンタ ・ ボ ポー ト に , その まま 接続 で きま 
。 

プロ ッ タ で は , 漢字 が 描け り ま せん し , 配列 に モー ブ さ れ 
た パタ ー ン は , ドッ ト 情 報 と し て 格納 きれ て いる の で , こ 
れ を 描く こと は で きま せん . し た が っ て , これ ら の コマ ン 
ド は 読み 飛ば され ます . 読み 飛ば され る (無効 扱い ) コマ 
ンド は , 表 1 に * 印 で 示し て あり ます . 

な お , ディ スプ レイ 上 で は カラ ー は 7 色 で ある の に ., MI 
PLOT-II で は ペン が 6 本 で すか ら , COLOR1 と 5 は , 5 番 
ペン で 。 COLOR 7 ( 白 ) は 第 1 番 ペ ン で 描く こと に し , そ 
の 他 は COLOR 番 号 と ペン 番号 が 同じ に し て あり ます . た だ 


し , 黒色 モー ド で は , すべ て の 色 が 1 番 ペ ン で 描か れ ま す : 
MIPLOT- II は , 円 , 円 , DA こと を 決ま で き 誠 
い の で , これ ら は ソフ ト で 描か せる こと に し まし た だ た. た だ 
し , カナ を か か せ 9 な 
で 定義 し て お く 必 要 が あり ます . 今回 の プロ グラ ム で は , 
『 ア 』」 と 『 イ 』」 の フォ ント の み が 6620, 6630 行 に あり ます . 


フォ ント ・ デ ー タ の 作製 は , この 例 を 参照 し て 行なっ て くだ 
さい . 
この 行 に ある R は Relative Mode 命 令 で ,、 現在 の ペン 位 


置か ら x 方 向 , 方 向 へ の 移動 量 を ドッ ト 単 位 で 与 を ます . 
そし て 1 は Relative Draw 命 令 で , 文法 は I, 4 ャ i, mi, >, 
イッ 2。 で の の の 形 で す . この と き , 現在 位置 (ro, vo) から (xro 十 
jo 十 ゴ ym) 一 (ro 圭二 rs, o イイ ys) つみ … と 順に 
線 分 が 引か れ ま す . コマ ンド の 終わ り は , E で で 示し ます . 
最初 の ペン 位置 は , 女 字 の 左下 端 に ある も の と し , 1 廊 
字 を 16X16 ド ッ ト の 中 の 横 12※ 縦 14 ド ッ ト の わく 内 で 表 わ 
し , デー タ 廊 を 作製 し ます . 最後 に , 必ず ペン を 次 の 文字 
の 左下 端 へ 移動 する 命令 を 入れ て お いて くだ さい . 
人 1 か ら 6.5 倍 まで 指定 で きま す . 4 
倍 で ,. スク リー ン 1 画面 分 の 図形 が A 4 用 紙 1 ペ ー ジ に 入 
り ま す . 私 は も っ ぱら , 簡易 自動 製図 機 と し て , 論文 な ど 
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図 4 カナ ・ フ ォ ン ト 作 製 例 
(DATA *R, 1,13,110.00, 一 3 一 2, 一 4 R, 一 3.3.1.0, 一 4 一 2, 一 3, 3, 一 2, R, 15.0,E") 
の 生ま 02 
] 
] 
| 次 の 文字 の 
ン 左下 端 
ーーーー 園 
12 14 16 
初め の ベン 位置 
の 図面 作成 用 に 活用 し て いま す . MIPLOT-I が な い 場 合 、 
ドッ ト ・ プ リン タ 5 が ン MP-80, 82 な ど ) な ど ハ ー ド コ 
ピー で も , ある 程度 の 役 に は 立ち ます し , この 場合 に は 漢 
字 で レタ リン グ し た 図面 が 作れ る こと が , メリ ッ ト と 言え 
まじ う 。 


プロ グラ ムロ 6Gn |- 2 EE 








1 の の の PRINT TAB(15) 』 の 半 共 米 米 涯 米 基 米 共 基 基 基 基 共 基 拓 光 共 共 
ドス スズ スズ テテ ネネ ネエ テテ ティ テコ 


1 の 1 の PRINT TaB(15) 』"% SCREEN EDITUR AND PLOTTE 


R --PENFLUT-- * 
1 の 920 PRINT TAB(15) 』"* FDR FM-11 QAND MIPLO 
T-1r 由 
193 の PRINT TB(15)』"* CEODED BY Y. MUDA (19 
B さ 。9. 19) 由 


194 の 9 PRINT TB(1) 』 0 光 洲 光 基 光 光 % 
オメ テキ テ ネ ネ エメ キネ テキ テマ 3 

1 の 5 の PRINT TAE(15)』" 

ASE ! " 

1 の 6 の DEFINT 人 -Z:DEFSNG T,R,N 
1 の 7 の KRLINM=5 の : ド KCL IM=59: YAX= ニ 27 の の : CMN= さ くさ =: L IM= ニ 4 の の 
: BLTN=1 の の : CL ITM=25: DL エニ 17 の の : GL_ IM= さ の の 

1 の 8 の DINM CUX(1 1 ) ,CURS り ん (2 の ) , CURSHZ(121 ) 。PICTURE 
ん (BL IM) 。 EMMANDX (CMN) 

1 の 9 の DINM GBP の (BLINM) ,BP1 (BLIM) 。BP2 (BL IM) 。 BP さ (BL IM) 
ぅ SF4(BLIN) 

11 の の DIM BP5(BLINM) ,BP6(BL TIM) ,BP7 (BL INM) 。BPB (BL IM〉 
SBP9 (BL IM) 

111 の DINM KCODEX(KLIM) 。KCD (KCL TIN) 。 (AL TIM) 。TA(BL IN 
) 。 ま (CELIM) 。BE(DLTIN) 

112 の 仙 。TR 。 人 も, 日 ニ = モ Or ande for 1inDput da モ a。 
KK し =pointer for 人 TA。Q ま 。H 

113 の DEF FNKRAN ま (KC)= CHR も (KC \ &H1 の の ) +CHR ま (KC NM 
DD &H1 の の ) 

114 の エニ の : = の : ド = の ウェ し = の : ビニ アノ ェ = BXYMAX=GL IM/ さ *16: MX=1 
s MY=1 

115 の MDRF= さ 。 14159/18g: 
eq TO Radian 

116 の INC の =16: TNC1 ニ 16=: X ニ 19= Y=4 日 : GDSUB 2 フ 55 の : GODSUE 
275 の 9: 'xLPSET , xLPSET 

117 の 

118B の RESTURE 12 の の 

119 の FUR エエ =1 TO CMN : READ CMMANDX(II) : NEXT 
129 の COMDATA 

121 の DaTA &H2O,&HZ ミ 。&H さ の 。 H6c 。%H62 。 HG さ 。&H1E 。 HH1 
d,&H1e。』H1f 

122 ロ ・* 有 前 9, 時 b。 
コ * と 3 

12 さ の DATA &H さ 1 。&H さ 2 。 H さ さ 。 &H さ 4 。 &H さ 5 。 4H さ 6 。 SH さ 7 。 &H さ 
日 , &H さ 9 。 &zH フ フ 

124 の 1 2 さ 人 4 紀 6 PA 

昌 9 い 

125 の DaQTA &H7g,&H6D , &H67 。 &H7 日 , &H6B 。 &H61 。 SH2B 。 &H ブ 
2,&H69 。&H2E 


JUST 人 MOMENT 。 PLE 


"Conversion Factor- From D 


| 20 人 


126 の 9 「『 D 山 | 1 ド に キ 
役 1 ロ 

127 の DATA _&H64 。&H6f 。 &H2f 

128B の 9 「 d =] ノ 

129 の 


13 の の RESTODRE 1 ささ 9: KCDEDATA 
1 さ 1 の FOR 1I1= の TO KLIM: READ KCDDEX(II) : NEXT Ir 
1 さ 2 の KCODEDATA 

1 ささ の DaTA HO121 。&H2121 。 SH2 さ さ の 。 &H2421 











・ &H2521 。 SH2 


621 , siH2721 

1 さ 49 DATA &H さ 21 。&HS ロ 4a ,&H さ 126 。 SH さ 14 さ SH さ 177 。 &H さ 
2 さ c ,&H さ 46b , &HS665 。 &H さ 7 さ  &kHSB4 さ 

1 さ 5 の DATA &HSa さ さ ,&HSb45 。&H さ fa 。&H4924 ,&H41 さ 9 。&H4 
23e ,&H4 さ 4d 。&H4445。&H4462 。&H4546 

1 さ 69 DATA &H466g。%H467 さ 。&H4728 。&H4729 ,&H47 さ 5 。 SH4 
74 さ ,&H4B5d , &H4954 ,&H4a さ a SH4a5d 

1 さ 79 DATA &H4b69,&H4E2 さ 。&H4C さ さ 。H4C さ d 。 SH4C4e 。&H4 
c69,&H4c7b , H4d ミ Sd 

1 さ BO DATA &H4d65,&H4d7B 。%&H4e5c ,H4e61 。&H4f24」H4 
f41 

1399 RESTDRE 142 の : "KCDATA 

149 の 9 FUR II= の TU RCLIM : READ RCD(II) : NEXT II 
1419 "xKCDQTQA (Sg TO S59) 

1420 DAT %&H3D2O, &H こ の さら 5 。 HH の 4C 。 SHS221 。 H さ 2 さ 。 &H さ 
2 フミ, SH さ 259 。 &H さ 456 。 H さ 425 。 HS524 

5O DATA &H ミ 46F 。&H さ 565 , 日 ミ フ 57 。 &H さ 76B 。 SHS 晶 さ E 。 8H さ 
9 ささ 。&H さ B フ 2 。 &H さ E4B 。 &H さ E4 さ ,。&H3F5E 

1449 DATA &H407E,&H422C 。&H424E , SH4 さ さ 1 。&H4 さ 4D 。%&H4 
ミ 5 さ ,sH44 さ 4 。&H44SE 。&H444C。&H4545 

1459 DATA &H4471 ,&H446a。&H4626 。&H46 さ の 。 &H46 さ さ 。 SH4 
574 ,&H475E , &H4B2F 。 SH4969 , SH4A42 

1469 DATA &H4C2 さ ,&H4C40 ,&H4D さ 6 。 &H4D51 ,&H4D46」WH4 
DeE ,&H4ES2E , &H4E4F ,H4E2C , H214D 

1479 DATA &H4E4C」&H4E2B 。&H4E7 ミ 。&H4E6 さ 。&H4F29 。 &H4 
FSF 。H214a 。%H214B」SH214C。%&H214D 





1 48g 

149g FRINT: INFUT "PEN (1) 。 PLOTTER(2) "』FP 
15 の 9 ON FFP_ GBDTO 154 の 9, 579 の : "XPEN。 FLUTTER 
151 の 放 ええ えよ よそ エネ エメ エネマ テ テコ 

152 の 3 PEN 

1 呈 る 上 エエ エエ ネエ エエ テ ミ テ ネ テ テコ 


0 OFEN "1 。 揚 1 "KKYEBD: " 

55 の 9 UN ERRUR BOTO 5629: "*ERROD 
68 MIDTH 9 の 2: COLUR 7 の 。7, の :CLS 
157g LINE (の , ミ ) 一 (6。 さ ) 。 PSET: LINE (さき の) 一 (。6) 。FS 
ET: GETGA (の の, の) 一 (6。6) ,CUZ。G6 
158 の PUTGR (の , の ) 一 (6。6) 。CUZ』XUR : BET BCURSOR 
1599 
16 の 9 CUNSDLE の ,。2, の 
161 の LINE (ささ ) 一 (6 さ 6 。 さ 96) 。PSET 。7 。 昌 
162 の BETGA (ささ ) 一 ( さ 』 さ 96) 。CURSVX 。 呈 : tv マモ 上 ューa1 
とい し い ビ 
16 さ の BETGR (ささ ) 一 (636 。 さ ) 。CURSHX 。B: Et horizonta 
1 CuF5OF 
164 の 。 LINE ( さ 。 さ ) 一 (6 さ 6。』 さ 96) 。FRESET 』 7 。H 
164 INPUT "2 ラ カキ マス ヌカ (y/n) "3FRNM 和 ま : TF FRM ま = リッ リツ 
THEN BODSUE 2 の 65:』 '*FRAME 
165 の INPUT "Fi1e Name (New Fi1e=n) "』DTNNM$$ 
166 の INFUT "CircC1 Factor (ロー1 。 の =defau1t 上 [の ウ . ヨ 99 
9]) "』MFCIRC! 





167 の IF MFCEIRC!= の THEN MFCIRC !=. 99 
1 68 の INPUT "Name of your BP 〈(n O_BP) "iGFN ま も 
1699 の IF BPN ま も く >"n リ AND BPN ま ぐ >"N" THEN GDBUE 4 


ら 59 の =: "*RDGP 





13 
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17 の の IF _DTNM$ く "nAND DTNM ま も まく"N" THEN BUSUB さ 
42 の 9 :'*%DRaMF 

171 の FRINT "READY" :BUSUB 199 の 9 : BUSUE SO =:" 
\GCURS 。 *GETREY 


| 1720 
| 17 さ の MHILE CH<>1 
174 の GOSUE 199 の :"xBCURS 
1750 FOR II=1 TO CNN 
176 の IF CMMANDX(TIT)=CH THEN F=II :GOTO 1780 
ELSE F=-1 
1779 NEXT 1r 
178 IF F=-1 THEN エニ エー1 :EEEP:FRINT "111 


egal Comー"』CHR ま (CH) : GUTOD 1B ミ の 

179 の UN F GUSUE2 さ 9 の 。2969 。 人 244 の 246 の 。 248 25 紀 9 の 。 276 
り , 2B の 0 , 2B20 , 2B50 , 2B90 。 2 日 5 り , 292 の 。 2B の 0 , さら 5 の , 276 。 2 
9 の 0 の , 2B2 の ,2940 。 2 の 7 」 2 ロ さ の 。 つ 64 の 。 で ら 6 の 。 27 の の , 4799 。 さ の の の 
ュ さ 1 さり, さ 20 の 」 さ 2B の 。 2420 , 4279 ,4420。221 の 

18 の の / 」5』 の 1 。D, ヒ 。ー テ ュー。 1 2。 さ 。4。 王 。6。7。 日 9 
WP っ ※ ュ K」a ュ キュ ビュ 1 エ ュ ・ ュ d ュ ロ ュ / 

1B さ の  'xNXTCON 

1B4 の GUSUE 199 の : BUSUE 2 の の の :'*BCURS。 *GETKEY 
1B5 の MEND 

1B6 ウ * 

187 の GODSUE 199 の :'%GCURS-DFF 

1BB の INFUT "Screen ./ Hard Copy ヲ トリマ スカ (Y/N) "日 
C ま :TF HC ま ="y" THEN HC ま ="Y" 

189 の 9 。 IF HC く >"Y" THEN 1940 

19 の の INPUT "MDDE( の =text 。1= ロ . カ フグ トイ 。 つ = ロ 。 ジュ 。 さ ニモ キ 
ロ ・ カ 2 4 ニモ + ロ ジュ ワウ ) "3HCMs TF _HCM<O DUR HCM>4 THEN 19 の の 


191 の PRINT "Press any key." :POEE HFC12。&H1 フ 
: 4 の の dots mode HCUPY ヨウ 

192 の IF INKEY$="! THEN 1929 ELSE HARDC HCN 
193 の 

194 の By 

195 の FRINT"See you again !" 

196 の = エ +1: GUSUE 2 の 7 の :CUNSULE の 24』1: COL 


DR 4: MR 

197 の END 

198 の '*GCURS 

199 の FUTGA(Xー ミ マー さ ) 一 (X+ さ 。Y+ さ ) 』CUX 』XUR: RETUR 
N 

SO の の 「*GET KEY 


2 の 1 の CH ま =TNREY$:』 TF CH ま = リ "リリ BUTU 2 の 1 の ELSE CH= 
SC (CH$ も ) 

S の 2 の 合 (1) =C ビ H : エニ 1+ ィ 1 

2 の 3 の IF エ = (LINM-1 の ) OR J(BLIM-19) OR K>(CLI 
M-1) DR L(DLIM-15) THEN GUSUE 2 の 5 の : '*CAUTION 
2 の 4 の RETURN 


2 の 5 の '%CAUTION 

2 の 6 の FRINT "STURANGBE-FULL ! 
ave": BEEF』 RETURN 

2 の 64 '%FRANE 

2 の 65 LINE( さ 。 さ 2) (6 さ 7 。 さ 97) 。PSET 。7 。B:LINE ( さ 。2BB) 
ー(6 さ 7 。2BB) 。PSET , フ 


type CNTL-A for = 


2 の 67 RETURN 

2 の 7 の MR 

の の エニ ュー1 

2 の 9 の INPUT "Fi1 ら Name (=not save) "』BDAT ま : IF G 


DAT ま =" の " THEN _ RETURN 








21 の の 1F GDAT$=DTNM ま $ THEN に ILL DTNN$ 

211 の  QFEN 3 

212g  J9=J 

21 さ の KK=R 

214 り 。 LL=L 

215 の PRINT # さ 。1 エ ー1 JJKK。L し 

216 の FUR IT1= の TO エー-1 : PRINT # さ (II) : NEXT 
217 の FUR II= の TO JJ  : FRINT # さ 。TA(IT): NEXT 
21B の FDR 11= の TO RK  : FRINT 持 さ 。 人 $(TT): NEXT 
219 の 9 FDR 11= の TUD LL  : PRINT # さ 』B(TI) : NEXT 
22 の の  。 CLDSE # さ : RETURN 


221 の "XMrite GBP 

22 の INFUT "BF Fi1e Name"』BFN1 も 

ママ IF _GBFN1$= リ "リリ OUR BPN1 も =BPN も THEN ILL GPN ま も : 
BFN1=GFIN* 

224 の DFEN "ロリ 。 手 さ 』BFN1 ま 

2 の FDR JJ= の TO 9 :』 ! 音 さ DXBF (JJ) :NEXT JJ 

6 の FOUR JJ= の TO 9 : ! 拉 さ 。DYGF (JJ) :NEXT JJ 

マタ 7 の FOUR JJ= の TO GLIN ! 振 さ 。BP ウ (JJ) = NEXT JJ 





SB の FOUR JJ= の TU BLINM : ! 持 さ 。BP1 (JJ) : NEXT JJ 

229 の FUR JJ= の TO GLIN : ! さ , BPS (JJ) : NEXT JJ 
FUR JJ= の の TU BLIN : ! さ 。BFP さ (JJ) : NEXT JJ 
FUR JJ= の TU BLINM : ! 持 さ 。BF4 (JJ) : NEXT JJ 
FUR JJ= の TU BLIN : ! 揚 さ 。BF 紀 (JJ) : NEXT JJ 
FUR JJ= の TU BL1M : ! 持 さ 。BF6(JJ) : NEXT JJ 
FOR JJ= の TO BLIN : ! さ ,BP ア (JJ) : NEXT JJ 
FUR JJ= ウ TD BLIN : ! 半 さ 。BFB (JJ) 』 NEXT JJ 
FUR JJ= の TU BLIN : ! 提 さ 』BF ワ (JJ) : NEXT JJ 
CLOSE 音 さ RETURN 

"じじ ロ 1 OF 











ズ さ 9 の INFUT "Co1or (ウー7) "4C:TF CS DR CZ THEN 
EEEF : GUTOU 2 さ 99 

24 の の BE(L)= ビ : し =L+1 =』 CULOR C。 の 9, じ 。 の : RETURN 
241 の の "XPSETR ン 

ご 42 の BOSUB 4 の 4 の 9 : PSET (X』Y。C) : BUTO 2759 : 
STXY 。xLPSET 

34 さ の 「xPRESETR 


44 の BUSUE 4 の ウ 4 の PRESET(X。Y, ビ ) : BUTD 2750 
345 の 9 "xLINER 

46 の BODSUB 4 の 4 の : BUSUE 4 の 6 の : BUTOU さ 7 の の 

2479 '*BDUXR 

ご 48 の BUSUE 4 の 94 の : BUSUE 4 の 6 の : BUTO さ 740 の 

ご 49 の 9 'xXCIRCLER 

で 5 ら の の RADTUG=SQR( (メーLPX) で デキ (YーLPY) 2) 』TF RADTUS 


= の THEN 474 の : '*ERR-E 

2S51 の TA(J) =RQADIUS : TA(J+1)=MFCIRC!』 =J+2 ig 本 
= の : TE=1 : GUSUE 4949: BUTU 3B1 の : "xSTXY 。*CIRCLEJ 
52 の XPRTNTR 

2 ら 5 さり INPUT "Faint Col1or (の @-Z) "saFC: IF PC の OR 
FC>7 THEN 474 の : '*ERR-E 

2549 INFUT "Border Co1ors(1 一 7)[ex。 7 or 1/2/ さ 
呈 モ ヒ 。 ]" ョ BC も 

55 の FIMID=1: BCEND= の 

< ら 56 の FOUR II= の TO 6: BCP$ も = リリ 

2570 の ECPM ま =MID ま (BC ま 。 PMID。1): IF BCEFM$=" リ THE 
N BCEND=1 : GUTO 2599 

<58 の IF BCPM ま もぐ > リ / リ THEN BCP ま =BCP ま も +BCPNM$ FN 
TID=FMID+1: BUTOU 257 の 

59 の BC( Ti 1) =VaL (BCP ま も) : PMID=PNMID+1: IF BCEN 
D=1 GOTO 2610 の 


6 の の NEXT 11 
361 の NBC=1 
262 の BOSUE 41 の の : GUSUE 494 の 9・: GUTOU ご 85 の :』'*S 


TPCBC 。 XSTXY , *PAINTJ 
26 さ の "XFPUTR 』PUT PICTUREX 


264 の BUSUE 4 の 4 の : BUSUE 4 の 9 の : BOTU 391 の : "XS 

TXY。*STDXY 。 *PUTJ 

265 の '*GETR 3sBET PICTURE%X 

66 の IF BS((XーLPX) *(YーLPY) ) >BXYMQX THEN 474 の 
"%ERR-B 

ご 67 の DX=LPXーX』 DY=LFY-Y 

268 の BUSUE 44 の 9 : BUSUE 499 : BOTO さ 95 の : "GS 

TXY,。XSTDXY ,*GETRJ 

269 の 'xCANR 

=7 の の FRINT "EANCEL-ーHow many Commands( の ウー" リュ エー1』 


"is INPUT II 


71 の IF TI く の OUR T1 エ エー1 THEN BUTU 474 の : '*ERRー 
に 1 

272 の 仙 ( エ ー エ エー1 ) =1 

27 さ の エニ の : ゴ ニ ウ : ド = の: し = の ウ :CLS の : BUTOU さ 44 の : "xDRAU 
274 の の "xLPSETR 

275 の LLPX=LPX : LLPY=LPY : LPX=X =: LPY=Y =: RE 
TURN 

276 の '*CURR 

277 の メニ X+INC :』 1F X>6 さ 6 THEN X= さ 

27 の BODTO 4769 

279 の 「xCURL 

28 の の メニ メーINC の =: IF X く さ THEN X= ニ 6 さら 

281 の BOTO 4769 

2B2 の '*CURU 

2 日 3 の Y=Yー-INC1 : IF Y< さ THEN Y=396 

284 の BOTO 4769 

285 の "CURD 

286 の Y=Y+INC1 : IF Y>396 THEN Y= ミ 

287 の BOTO 4769 

2BB の '*CURLD 

289 の エ = エ +1 =: GUSUEB 2B の の : BUTOU 285 の 

299 の 'xCURLU 

291 の エ = エ +1 : BUSUB 2B の の : BUTU 2B2 の 

2929 '*CURRD 

29 さ の エ =I+1 : BUSUE 276 の : BOTO 2B5 の 

294 の 9 'XCURRU 

295 の エ = エ +1 =: BUSUE 276 の BUTD 2B2 の 

296 の 9 XSTEPR 

2970 の INPUT "Step (1-256) "』 INC の : INC1=INC の 

298 の IF INCg< の OR INC の >256 THEN BEEP : GUTO 29 
6 の 

299 の BUTU 476 の : "XNUSAVE 

さ の の 'x*aARCR 

さ の 1 の INPUT "カイ ミー カフ ウト ~ 。 ジュ ウリ ョ ウ カフ ト " (ウー さ 6 の ) "TE。T 
に 】 

さ の 2 の TS=1 TS/ さ 6 の = TE= ニ 1 一 TE/ さ 6 の 

さ の さ の RAD TUS=SBR((XーLPX ) 2+(YーLFY) 2) : IF RADIU5S 


= の THEN 474 の : "*ERR-E 


さ の 4 の TA (J) =RRDIUS : TA(J+1)=MFCIRC! 

さ の 5 の TA (J+2 ) =T ら = TA (J+ さ ) = ニ TE= = ニ J+4: GUSUE 4 の 4 の 
s KSTXY 

さ の 6 の BUTO さ B1 の : "*XCIRCLEJ 


さ の 7 の '*CONV 
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ミ の B の  。 丁 =TH/(2% さ 。14159 つ 6 己 #) ミ フ 7 の 'xCIRCLED 
さ の 9 の IF XX>=XC AND YY>=YC THEN 丁 日 =1 日 ェ RET さ 78g RAD TU5=Ta (J) : MFCIRC !=T(J+1 ) : コ = ニ J+S』 50S 
URN: ′ 1 = ョ ウケ UE 415 :'xBETXY 
さ 1 の 。 IF XX:=XC QRND YY<_ YC THEN TH=ー(1+TH) : RET さ 79 の TS= の : TE= の 
URN: ′ 1 ソ さ B9 の '*CIRCLEJ 
さ 11 の TH=ー(.5+TH) : RETURN さ B1 の CIRCLE(X,Y) 。RADIUS』C,MFCIRC! 。TS,TE : BOT 
1 7) (0 275 の :'xLPSET 
さ 12 の 9 '*CURSR さ B2 の '*PAINTD 
3 の PUT@A (X。 さ ) 一 (X 。 さ 96) 。CURSVX ,XDR : FUTGA ( さ さ B さ の  。 BUSUB 421 の : GUSUB 4159 :'%XGBETPCBC。*GETXY 
>Y) 一 (6 さら 6。Y) 。CURSHX , XUR さ B4 の '*PAINTJ 
ミ 14 の LINE ( さ , さ ) 一 (6 さ 6。 さ 96) 。 XDR 。7 。B 3B5 の FUR 11I=NEC+1 TU 6: BC(1I1I)=BC(NBC): NEXT 1 
さ 15 の FDR 1I= の TU 4 の 9:NEXT 1I :PRESET (X。Y) 
ミ 1 6 の FUT@Q (X。 さ ) 一 (X。 さ 96) 。CURSV 。XDR : FUTGR ( ミ さ 86 の PAINT (X,Y) 。FC,BC (の) 。BC(1 ) 。 BE(2) BC ( さ ) 。BC 
ュ >Y) (63 さ 6』Y) 。 CURSHZ 。 XR (4) 。BC( 呈 ) ,BC(6) 
ミ 179 LINE ( さ 。 さ )-(636。 さ 96) 。XOR 。7 3B7 の BUTO 275 の 9: '*LPSET 
さ 1B の BOTO 476 の : "XNOSAVE さ BB の '*PUTD 
9 の “xAaLFH さ B9 の  。 BUSUB 415 の :GOSUE 429 の :'xGETXY,。*BETDXY 
さ 29 の 9 INPUT "Chars?! ュ じ ま : TF じ ま ="" THEN 476 の :"※ さ 9 の の '*PUTJ 
NODSQVE さ 91 の 。 PUT (X』Y)-(X+DX 。Y+DY) 。PICTUREX』PSET : G 
INFUT "ヨコ YY りり (1 49) or ret"sNMX ま OTO 275 の 9 :'xLPFSET 
TIF NX$=" リ THEN さ 25 の 9 ELSE MX=VAL (MX$) さ 92 の "xBETD 
INPUT "9 テ NT イ りり (1ー2 ロ ) Or ret"sMY ま さ 9 さ の GUSUB 415 の : BUSUE 4299 :'*BETXY。xBETDXY 
IF MY$="" THEN さ 25 の 9 ELSE NHY=VAL (MY ま *) 3 さ 94 の '*GETRJ 
人 ま (R) =C ま = ドド = デビ ドキ 1 :BHSUB 414: GBDUSUB 44 さ 95 の BETGA (X,Y) 一 (X+DX 。Y+DY) 。PICTUREX』B: BOTO 
: XSTMXY ,*STXY 275 の :'xLPSET 
3 ミ 269 GOTO 49 さ の :'xQLPHJ さ 96 の 9 "ARCD 
7 'xINFO さ 97 の GOSUB 4169: '*GETXY 
さ スム 2B FRINT " I 党 K 臣 C メ さ 98 の RADIUS=TA(J) : MFCIRC=TA(J+1 ) : TS=TQ(J+2) 
Y  LFX  LPY LLFX LLPFY" : TE= ニ TA ( ゴ + さ ) : = ゴキ 4 
さ 329 の FRINT USBINB ! 提 拉 提 " り %sT エ 4 ドド 。L。 じ 。X。YjLPX 。LFY さ 77 。 BUTO さ B1 の : '*CIRCLEJ 
>LLPX 。LLFYi 4 の の の '*QLFHD 
エニ エー1 : RETURN 4 の 1 の  。 じ ま = ま (KR) : ドニ ド に +1: BODSUB 425 の :』 GDBSUE 415 の : 
"GETMXY , *GETXY 
RDFILE 4 の 2 '*QLPHJ 
DFEN "1" 。##2DTNN* 4 さり 。 SYMEDL (X。Y) 。C ま 。MX』MY』 じ : RETURN 
INFUT #2』LIN。LIB。LTIC。LID 4949 XSTXY 
FOR II= の TO LINM : INPUT #24 人 (II) 。 : NEXT 49S の EE(L)=X 。 =: 量 (L+1)=Y  : 上 =L+2 : RETURN 
4 の 969 '*STLPXY 
FUR II= の TUD LITE : INFUT #2G。TA(II) : NEXT 4 の 7 の BE(L)=LPX : BE(L+1)=LFY : し = し +2 : RETURN 
4 の 8 の 9 '*STDXY 
FUR II=g TO LIC : INPUT #2。 人 も (II) 』 NEXT 499 BE(L)=DX  : RB(L+1)=DY  : し =L+2 : RETURN 
4199 '*xSTFCEC 
FDR II= の TOD LID : INPUT #24B(II) : NEXT 411 の 9  E(L)=FC  : B(L+1)=NBC : し = ニ L+2 
4129 FOR II= TOD NBC: BE(L)=EC(II): し =L+1: NEXT 
RETURN IIT: RETURN 
スキ ネネ ネ テ キキ ネネ キキ ミキ キミ ネネ キテ そ キス 41 さ の '*STMXY  』 (STORE SYMBOL MUL FACTDR ) 
3 も art DRAMTING 3 414 の BE(L)=MX  : HB(L+1)=MY  : し =L+2 =: RETURN 
E エ テキ エエ ネネ エキ ネネ エネ テ エ ネネ テキ ミコ 4159 '*BETXY 
ミ 43 の BUSUB ささ さ の :'*RDFILE 4169  X=E(L) : Y=B(L+1 ) : し =L+2 :』 RETURN 
さ 449 。 ビ =7 : COLOR 7, の 9,7 4179 "*BETLPXY 
さ 45 の 9 BUSUB 35B の : 'xBetKeyD 41B の  。LFX=B(L) : LPY=B(L+1) : し = し +2 =: RETURN 
ミ 46 の MHILE CHS >1 4199 "*BETDXY 
フ の FOR II=1 TU CMN 42 の の DX=E(L) : DY=E(L+1 ) : 上 = ニレ +2 : RETURN 
ミ 48B の IF CMMANDX(1 1 ) =CH THEN F=II :GUTOU さ 5 421 の 「*BETPCBC 
の の ELSE F=-1 4220 PC=E(L)  : NBC=B(L+1) : し =L+2 
ミ 49 の NEXT It 42 さ の FOR II= の TO NEC: BC(II)=B(L): し =L+1: NEXT 
35 の の UN F GUSUE さ 6 の の , 2969 。 さ ら 6 の さら 6 の 。 さ 72 の , さ 7 の 。 2 フ IT: RETURN 
6 の , 2B の 9 の , 2B2 の , 2B5 の 。 2B9 の , 285 の 。 292 の 。 2B の の , さ 65 の 2 フ 69 。 4249 「*GETMXY 
29 の の , 2B2 の , 294 , つり 7 の 。 ささ の 。 さ ヨ 9 の 。 さり さ 。 2 の の 。 5 の 。 さ 97 425g MX=B(L)  : MY=E(L+1)  : し =L+2 : RETURN 
り 」 さ 1 さ の , 4 の 9 の の , さ 2B の 。 さ 62 の ,55 さ 7 の , 4459 , 6 の の 4269 
351 の 5, の 。1。b。c ュ ー テ ベー マ 4279 '*DEFGF 
3529 "1 2 さ 4567 昌 9w 4280 IF ABS((X-LPX)*(Y-LPY) ) > BXYMAX THEN 474 
353 の 9 "D md コメ ka ュ キ Fi 。d ロ / 9: '*ERR- 昌 
3549 GOUSUE さ 5BO :'xGETKEYD 299 INFUT "Pattern NO.( の -9) "』BFND 
5 紀 9 MEND 4 さ の の IF GBPN ロ = の THEN GET@A(X 』Y)-(LPX ,LFY) ,GF ,G 
さ 356 の エ =1ー1 : CLOSE ##2 : PRINT "READY" : RETURN : BUTO 441 の 
ミ フ の ・ 4 さ 1 の IF BGPN ロ =1 THEN BET@A(X 。Y)-(LPX ,LFY) ,GP1 ,。G 
さ 5B の 'XBETREYD : BUTO 441 
ュ さ 59 の 9 。 CH=A(I) : I=I+1 』 RETURN 4 さ 2 の IF _BFND=2 THEN GET@A(X,Y) 一 (LFX』LFY) ,BPS 。G 
きら 6 の '*COLORD GOT ロ 4419 


さら 1 の C=B(L) : し =L+1 : COULOR C。。 ビ : RETURN * ウ TIF_BPND= さ THEN BETG@Q(X』Y) 一 (LPX ,LPY) 。BP さ ,G 
さら 62 の 'xPSETD BOTO 4419 
に BUSUE_ 415 の : PSET (X。』Y,C) : "*BETXY 4 さ 4g IF GFN ロ =4 THEN BET@A(X』Y)-(LPX,LFY) 。BP4 
さら 64 の 9 "PSETJ BOTO 4419 
365 の 9 BOTU 275 の :'*LFSET g IF GBPND=5 THEN BET@A(X』Y)-(LPX 。LFY) 。GP。6 
さ 66 の 'xPRESETD GOTO 441g 
さ 67 の BOSUE 415 の : PRESET (X』Y,』C): BUTOD 275 :" 人 4 さら 6 の IF _BFN ロ =6 THEN BETG@A(X』Y) 一 (LPX』LFY) 。BP6 6 
ォ BETXY 。 xLPSET BOTO 4410 の 
さ 6B の '*LINED g IF GBPN ロ =7 THEN BET@A(X』Y)-(LPX 。LPY) 。GP7 。B 























さ 69 の GUSUB 415 の : GOSUB 417 の :'*BETXY。*BETLPXY : GTO 441 の 

さ 7g の '*LINEJ 43Bg IF GBPNO=B THEN GETGA(X。Y) 一 (LPX 。LPY) ,BPB 。6 
ミ 71 の 9 LINE(LPX,』LFY) 一 (X』Y) ,。PSET 。 C: BOTO 275 の :" : GOTO 441 の 

xLPSET 4399 。 ITF BPN ロ =9 THEN BET@A(X』Y)-(LPX 。LFY) 。BP9 は 
さ フ 2 の '*BDXD : BUT 441 の 

さ フ 7 さ の BUSUE 415 の : BUSUB 417 の 9 :'*BETXY。*BETLPXY 44 の の BUTD 476 の : "ERRー- 旦 

ミュ フ 4 の ・xBDXJ 4419 DXBFP(BPNO) =LPXーX: DYGF(BPN ロ ) =LFY-Y: BOTO 
ミ 75 の 9 LINE(LPX。LFY) 一 (XY) 。PSET 」 じ 。B: BUTD 275 の : 476g: 「\NDSAVE 

・*LPSET 442 の '*PUTGF 

ミ 76 の * l 44 さ の 。 INPUT "Pattern NO.( の ワー9) "3BPNU : IF GFNO>9 
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THEN エニ = エー1 : BEEF : RETURN 
444 の BUSUEB 4 の 4 の : GUSUE 4 の 6g: BEB(L)=BPNU : 上 =L+ 
1 : BUTO 447 の : "*STXY。 *STLPXY , FUTGFJ 

445 の '*FUTGPD 

446 の BUSUE 415 の 

1 s "#BETXY。*BETLPXY 
447 の 9 'xPUTGPJ 

448g LX=X+DXGF (GBPND) : LY=Y+DYBP(BPND) 
449 の IF GBPNO= の THEN PUTGA(X 』Y) 一 (LX,LY) ,BP の ,FSE 
T 』 BUTU 2759 :"*XLPSET 
4 の の IF _BPND=1 THEN FUT@A(X。Y) 一 (LX 。LY) ,GF1 ,FSE 
T 』 BUTO 275 の 
451 の IF _GFND=2 THEN PUTGA(X。Y) 一 (LX。LY) 。BP2 。PSE 
: BUTU 275 
2 の IF _GPNU= さ THEN PUTG@A(X』Y) 一 (LX 。LY) 。BP さ 。PSE 
BOTOU 2759 
TIF_BPN ロ =4 THEN PUTGA(X』Y) 一 (LX。LY) 。BP4 。PSE 

BUTU 275 の 


BUSUE 417 の : GBPNO=E(L) : し = し + 


員 | 


記 
に 


+ 
4 

素 

4 

HH 

454 の IF _GPND=5 THEN PUTGA(X。Y) 一 (LX 。LY) 。BP5,FSE 
TT : BUTO 2759 

455g IF GBPNO=6 THEN PUTGA(X。Y) 一 (LX 。LY) ,BP6 PSE 
TT : BUTO 2759@ 

456 の IF _GFN0D=7 THEN PUTGA(X。Y) 一 (LX 。LY) 。BP7 ,PSE 
T : BUTO 2759 

457 の IF _GPNO=B THEN PUTGR(X 。Y) 一 (LX 。LY) 。GPB 。PSE 
T 』 BUTO 2759 

458 の IF _BPND=9 THEN PUTGA(X 。Y) 一 (LX 。LY) 。BF9 。PSE 
TT 』 BUTO 2759 

459 の '*RDGP 

46 の の OPEN "エリ 。 手 さ 。BFN$ 

461 の ウ FUR JJ= の TO 9』 INFUT ## さ 。DXBP(JJ):i NE 
XT JJ 

462 の FDR JJ= の TO 9s INPUT 壮 さ 。DYBP(JJ): NE 
XT JJ 

46 さ の FUR JJ= の TU BLINM : INFUT 持 さ 。BP の (JJ) : NE 
XT JJ 

464 の FDR JJ= の TO BLINM =: INPUT 持 さ 。BP1 (JJ) : NE 
XT JJ 

4465 の FUR JJ= の TU GLINM : INPUT 六 さ 。BP2 (JJ) : NE 
XT JJ 


人 466 の FUR JJ= の TU BLINM : INPUT 半 さ 。BFP さ (JJ) 』 NE 
XT JJ 


467 の FOUR JJ= の TO GLINM : INFUT 間 さ 。BP4 (JJ) 』 NE 
XT JJ 

468 の FUR JJ= の TOU BLINM : INPUT 持 さ 。BP5(JJ) 』 NE 
XT JJ 

469 の FUR JJ=g TU BLINM : INPUT 壮 さ 。BP6(JJ) : NE 
XT JJ 

47 の の FUR JJ= の の TO GLINM : INPUT 拉 さ 。BP7 フ (JJ) :』 NE 
XT JJ 

471 の FOUR JJ=g TO GLINM : INPUT 提 さ 。BPB (JJ) : NE 
XT JJ 

472 の FOUR JJ= の TU GLINM : INPUT # さ 。BP9 (JJ) : NE 
XT JJ 

47 さ の CLOSE 提 さ 』 RETURN 

474 の "ErForB 

475 の EEEP 

476 の '*NoSave 

477 の PRINT "READY" : エ = ニ ュー1 =: RETURN 

47 ヨ の 

479 の "XRKANJIR 

4 の 9 KFLAG= の 

4819 "XRKTOP 

4820 SYMBOL (177。18)。" の 1 2 3 4 っ )-) 


9 19 1 2 34 
4B3 の PRINT"Top Char (アー ワ 。a。/" 

4B4 の 9 INPUT " hk』gj ビ 59-59) "』C ま 』 IF = THE 
N 495 の :・wKEXIT 

4B5 の 1IK=QSC(C* ま ) : SFLAG= の 

4B6 の 9 1F IK>=ASC(" ア ") QND IK<ASC(" ワ ") THEN KC=K 
PDDEX(T ド - 人 SC ("アリ") キア) : BUTO 5999 


6 7 8 9"41。1 





4 日 7 の "TF C ま =" リ "4" THEN KC=KCUDEX( の ) : BOTOU さ 1 の の 
: *KLUOUP 

48B の D 選 THEN KC=KCUDEX(1) : BUTO 5 の 9@ 

4B9 の IF THEN KC=KCUDEX(2) : BUTO 5 の 9 の 

49 の の IF THEN ド KC=KCUDEX( さ ) : BUTO 5 の 9 の 

491 の 09 <" THEN KC=KCUDEX(4) : BUTO 5 の 9 の 

492 の IF C ま =" ロ " THEN KC=KCUDE ん ( 弓 ) : BODTD 5 の 9 の 

49 さ の IF C ま = リ "rr" THEN KC= ニ KCUDEX(6) : BUTOU 5 の 9 の 


494 の 1F LEFT ま (C ま 。1)=" リ =" THEN GUTD 499 の 

495 の 9 XRKEXIT 

496g LINE (1 の) 一 (639 。 さ 1 ) 。 PRESET 。 , BF : "Ga5@ 
Kan)i-Di spD1 ay 

497 の IF RFLAB=g THEN 474 の 9 ELSE HB(L)=ー1: し =L+1: ビ 
DLOR C,9,C:i RETURN 

49g 『 

499g "XRSELDM 』 リ "ンコ "ウー ニ ヨル カー フシ "ニュ ウリ ョ ヨブ ルー チッ 

5 の の の BUSUE 5g49 : "*KSELD 

5 の 1 の IF C ま ="n ロ " THEN 4B1 の : "*KTOP 











5929 SFLAGB=1 : BUTOU 521 の : 'xKPUT 

5 の 939 ' XRSELD 

5 の 49 KC=VAL (MID ま (C ま 2 2)) 』 IF KEKRCLIM THEN ビ 
まま = リ n" 』 RETURN 

5 の 5 の に ド C=KCD (ドド ビ ) 


5 の 69 XX=175 : TK= の : LINE (175。 の ) (192。16) 。PRE 
SET , , BF 

5 の 7 の PRINTGe (XX。 の ) 。KC : GUTD 55 の の :・*KASKDR 

5 の 80 

5 の 9 の '*KLDOP 

5199 GOUSUB 5 さ 2 の :'*KDISP2O 

5119 '*KBEL 

5129 INPUT "の ウー19』n』b』or ret"』 ビ * 

51 さ の IF C*="" THEN 4B1 の :'*KTOFP 

5149 1F じ *="n" OR C ま =" ミ " THEN KC=KC+2 の : BOTO 


5 の 9 の : "%※KLOop 
5155 の IF C ま も ="b" DUR C ま = リコ " THEN EC=KC-2 の の ITF (KK 
C AND &&HFF) :&H2O THEN 5 の 9 の ELSE ド KC=(KC キ &&H1 の の) x&H 


1 の の -%&H94: BUTU 5 の 9 の : '*RKLOOP 

516 TK=VAL ( じ ま ) : IF (IK ド = の) AND (C ま く > リ 7) THEN 
511 の 9: '*KSEL 

517 の GUSUE 4 さ の : LINE (XX」17) 一 (XX+15。 17) 。XUR 。 


4: "*KFUSXY 。Put UnderLine 

518 の BUSUE 55 の の : IF C ま ="n リ OUR まま = リ ミ リ THEN 511 
の : *KASKOK 

519 の '*KCOLOR 

52 の 9 の '*KQASKC 

521 の 9 "XRKPUT 





522 の INPUT "ヨコ NT マリ リウ (1 一 4 の 9) or ret" ュ MX も 

52 さ の IF MX まま = リリ! THEN 5269 ELSE MX=VAL (MX$$) 

524 の INPUT "2 テ "ゴイ リリ ( 125) or ret"』MY$ も 

525 の IF MY まく >0U THEN MY=VAL (MY まま ) 

5269 SYMBULG (X,Y) 。 FNKAN ま (KC+TIK) 。 MX。 MY。 ビ 
527 の LINE (XX』17) 一 (XX+155。17) 。XUR』4 : "Erase Und 
erLine 

52B 


E(L) =RKC+TK : し = し +1 : GOSUB 414 の : GOSUB 4 の 
4 の : "XSTMXY ,*STXY と 

529 の X=X+16XMX : BUSUB 275 の 9 : KRKFLAG=1 :"xLPSET 
ら さ の の IF SFLAG= の THEN 弓 11 の 9 ELSE 481 の : '*KGEL 。 に 
TDP 

ら さ 1 の 

ら さ 2 の 「XKDISP2 の 

5 ささ の BUSUE 541 の : '*RKERASE2 の 

5 さ 4 の IF (KC _ AND &zHFF ) >&H7ZE THEN KC=(KC 半 &H1 の の 
) *%&H1 の の +&H121 


5 さ 5 の XX=175 』 FUR 11I=KC TU (KC+19) 

5 さ 6 の CULUR Ci: PRINTG (XX。 の ) 。IT: XX ニ XX+2 の 
5 さ 7 の IF TI1=KC+4 THEN XX= ニ XX+1 の 

5 さ B の IF エエ =KC+9 THEN XX= ニ XX+2 昌 

ら さ 9 の IF II=KC+14 THEN XX=XX+1 の 

54 の の NEXT II : RETURN 


5419 '*KERASE2 の 
542 の 9 。 LINE (175, の )-(6 さ 9。16) ,PRESET , , BF: RETURN 
4 さ の '*KPDSXX 


544 の XX=1 7 ロー FOR II= の TO KR 
545 の XX=XX+2 の 

546 の IF 11=5 THEN XX= ニ XX+1 の 

547 の g IF II=1 の THEN XX=XX+28 

548 の g IF エ 1=15 THEN XX= ニ XX+1 の 

549 の NEXT II : RETURN 


55 の の '*KASROK 








551 の 9 INFUT "DK( ND= n。 YES=CR) "』 じ * 

552 の IF C="n"' UR C*=" ミ リ THEN ="n": LINE (XX 
17) 一 (XX+1 昌 17) ,XDR 4 

55 さ の RETURN 

554 の 


555 の '*KaANJID 
556 の KC=B(L ) 
"KBETMXY ,*BETXY 
557 り の SYMEDL@ (X』Y) ,。FNKAN ま (KC) 。 MX。 MY。 ビ 

558 の X=X+16XMX : GUSUE 275 の 9 : IF B(L)X テ (-1) 丁 
EN_ 555 の : 'xLPSET 

5599 し =L+1 : RETURN 

56 の の '*XDUN 

561 の RETURN 

62 の '*ErrOF エラ ー ショ リ ルー チ ニ 

563 の = エー1 : RESUNE 194 の 

に 2 し 1/ 間 た キキ そそ キキ テキ キミ ミキ キテ オキ ネネ ネネ ネエ キテ ネエ ネエ テテ キキ ネエ エメ キネ ズミ よ 3 
半 基 基 基 基 基 基 基 基 天天 基 


し = ニレ +1 : GUDSUE 425 の : BOSUE 415 の 


565 の 「'※ PLUTTER OUTPUT 

566 の '※ CODED BY Y. MUDA。 19 昌 さ .9.1 フ 7 
革 

567 の 「※ RIVESED 


6 の  ' 革 基 基 共著 革 革 革 革 共 基 共 基 基 基 基 天涯 基 天 区 共 基 基 天天 天天 共 基 基 
エエ エメ テ エ キテ テキ エネ 3 
569 の PRINT :COLOR 6 


7 の の INPUT "Fi1e Name"』DTNM ま = BUSUB さる 2 の : 'XRD 
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FILE = ら 19 の = の ウ : TE= さ ら 61 
ら 57 1 の INFPUT "の YY イ リウ (1 。。. 王 .6) "』MPX 62 の の '*CIRCJ 
572 の INPUT "タテ カ 29" イ (SCREEN ./ トウ リ = テ の 。 1:1=1) "7sM 6 ご 1 の LFRINT ad reg STR ま (MPX*(X+RRDIUSxCODS (TS 
選 泌 *MDRF ) ) ) +" 。"+STR ま (YMQAX-MPYX(YーMFCIRCxRADIUSX5 
57 さ の IF MPY= の THEN MPY=MPX/.B98 ELSE MPY=NPX TIN(TS ォ *MDRF ) ) ) 
574 の INPUT "Co1 or (フロ = の 。 イロ リキ =1 ) "3 CDLUN も : FCUL= ニ 6229 FR THETA=TS TO TE STEP 6 

1 s "1=2 ロ 62 さり の LPRINT "D"+ STR ま (MPX X※(X+RQADTUS*COUS(TH 
575 の INPUT "Speed(1 一 1 の 9) "3SP: LPRINT "本 "+STR$(5 ETA*MDRF) ) ) +" 。"+STR ま (YMAX-ーMPY*(YーMFCIRCXRADTUS*S 
P) IN(THETAxIMIDRF ) ) ) 
576 の DIM KAF ま (2) : RESTDRE 662 の 624 の 9 NEXT THETA : BUTU 275 ウ : '*LPSET 
577 の FDR II= の TU 1: READ KaF$(II): NEXT : READ 6259 "*FAINTD 

KANA FUNT 6 つら 6 の BUSUB 421 り : BUSUE 415g : '*BETPCBC ,*BETXY 
ら 57 の 6279 BUTU 2759: '*LPSET 
ら 57 の エニ の : ゴ ニ の = ドニ の : し = の 62 の '*QRCD 
58 の の BUSUB さ 59 の 』 '*※BETKEYD 629 の BODSUE 415 の : RaDIUS=TQ(J) : IFCIR ビ =TR (J+1 ) : 
SB1 の "BETXY 
582 の MHILE CH く テ 1 6 さ の の TE=( 1 一 T(J+2 ) ) \※ さ 6 の : TB=(1 一 人 ( ゴ + さ ) ) * さ 6 の : J 
58 さ 3 の FOR II=1 TO CMN りす 4 
584 の IF CMMANDX(T 1T)=CH THEN F=1ITI :BOUTDU 586 の 6 さ 1 の IF TEXTS THEN TE=TE+ さ 6 の 
ELSE F=ー1 ら 6 さ 2 の BUTU 6219: '*CTIRCJ 
585 の NEXT IiI *%LPHD 
586 の 9 UN F BUSUB 595 の ,561 の , さ 66 の 。 6 の 6 の 。61 1 の 。618 の 。56 | じ ま = 人 (KK) : に = に ド +1:』 BUSUB 425 の: BUSUE 4150: 
1 の 9, 弓 61 の 561 の 61 の 5619。561 の 9561 の の 。5619,561 の 561 の 。 "%BETMXY ,*BETXY 
に ES 6260 , さ 9 の 。 さ 9 さ の 。 己 61 の 。555 の , 629 6 さ 5 の LFRINT "SB"+BTR ま (MXXNMPX) :「RLFHA-SCALE 

9,5619 6 ささ 3 の 5610。 sg1,5619。 5619,561 の 6 さ 6 の LPRINT "NM"+STR ま (MFPXXX) リリ TSTR ま (YMAX-ーMFY※ 
5B7 の =』 の 。1。bD』 ヒ ーッ バー。 人 マ (Y+16) ) 
BB “1 2 る 4 5 6 プーB 9 6 さ 7 の LPRINT "P リ "オビ 
SB899 'D mx ka キ レレ ュ i。dd ロ / FUR II2=1 TU LEN(C$) 
59 の の BUSUE さ 599 : 'XBETKEYD さり ドニ MTD ま ( じ も 11T2。1) 
591 MEND 64 の の IF ASC (Ra も) :&HZ7F THEN BUHSUE 6459: GOTOD 6 
592 の INPUT "モウ ゴイ チト" カサ ネ カ ガキ マズ スカ (Y/N) "』RR 和 ま : エ F an 42 の : XRaNA 
も = リ "YU UR QR$="y リ ! THEN 579 の 64 1 の LFRTINT "PP リ +KR 員 
593 の END ら 642 の NEXT 1I12 
594 の 「『 64 さ の RETURN 
595 の '*COULORD ら 644 の 9 'XKRNA 
596 の C=E(L) 』 上 =L+1 645 の T エ 1=1 : [エミ =ASC (KR ま ) 一 SC ("アリ ) : MX=MX/2 
597g IF C=1 THEN ビ =5 646 の BUSUE 6569: '*BET ド KR 
598 の IF =7 THEN =1 ら 647 の IF ド KA ま ="R" 。 THEN BUSUB 656 の 9: DX=VaL (KRQ ま ) は 
599 の IF_ CS>PEOL RND COLUN も ="10 THEN PCUL=C: LP SUB 6569: DY=VAL (KA 和 ま ) sLPRINT "R"+TSTR ま (MPX*MXXDX) 
RINT "JJ"+STR$( ビ ) すり リ +BTR ま (MPYMXxDY) : GOTO 64609 
6 の の の RETURN 648 の IF K ま ="1 リ 0 THEN BUSUB 65 の 9 の: GOTO 647 の : 'R 
691 の 'xPSETD ELQATIVE DRAM 
6 の 2 の BUSUB 4159 : 'XBETXY 649 の NX=NXx2』 _ RETURN 
6 の さ ⑦ LPRINT "NM"+TSTR ま (MPXXX) す リリ TBTR ま (YMAX-MPY※ 65 の の LFRINT "1174: BUSUB 656 の: DX=VQL (KR ま ) : BDSU 
Y) BE 656 の : DY=VaL (に 人 ま ) 
6 の 4 の LPRINT "N10 : |) PLOTT POINT oO LPFRINT STR ま (MPXxMXDX)+ "リリ TSTR ま (MPYxMXxDY 


6 の 5 の BOTD 275 の 9 :"*LPSET 

6 の 6 の "XLINED 

6 の 7 の BODSUE 416 の : BUSUE 41 の : 'XBETXY。*GBETLPXY 
6 の 8 の LPX$=STR ま (MFPXXLPX) : LPY$ 三 STR ま (YMAX-MFYXLP 
YO 

6 の 9 の X=STR$(MPXXX) : Y も =STR$(YMQX-MPY テ Y ) 

61 の の LPRINT "NM リキ LPX ま すり リリ TLPY も : LPRINT "DD"+X ま 二 
リリ +Y ま s GUTUD 275 の 』 "xLPSET 

611 の の '*BOUXD 

612 の BODSUE 416 の : BUSUB 418 の :'XBETXY。*BETLPXY 


らら 2 の BODSUB 656 ウ : IF KA ま ="R" DUR Ka まま ="E" THEN LFP 
RINT: RETURN :'*BET Ka ま 

65 さ の DX=VAL (KA) : BUSUB 656 の 9: DY=VAL (KA まま ) : LPR 
INT "。" ュ ュ BHTO 651 の 

654 の 

655 の 9 '*GET _ NEXT CHRS INTU KA$ FRUM KAF ま 

6569 KQ ま =MID ま (KAF ま (エエ さ ) 。 II1。 1): II1=IIT1+1: エ 
F Ka まま =" " THEN 656 の 

657 の IF KQ ま ="E" OUR KaQ$="! THEN RETURN 

658 の CH ま =NMID も (KAF ま (TI さ ) 。 II1 。 1): II1=II1+1 














21S9 LPX$ =STR*$ (MPXxLPX) : LPY$ =STR*(YNAX-MPY || CEog 。 rF CHs="." THEN RETURN 
614 の  。X$=STR$(MPX*X) : Y$=STR$ ま (YMAX-MPYY) OR NN 
615 の 。。LPRINT "NM"+LPX ま せり 。 リ TLPY$ 2 iR ET 
MV 人 ai る 2 DATQPRS1。43i1y1Ds Oi の SE2 ュ 27Ri ニ ささ Ss ご 4 
LFX ま すり リキ Y ま すり リキ LPX ま すり リキ LPY ま : GBDT ロ 2 フ 55 の :'xLPSET に Ge し リ 0 9 ご 9 3 LA 0 こよ まま 4) 
617 の "xDCIRCLED URLJAK ん ん 

1 四 8 本 コ 
618 の RaDIUS=TA(J) : NFCIRC!=Ta(J+1 ) : =J+2: BDS の DA 1 コー23ReAB42s 
HB | 6649 ・.SQVE"PenP1t-2 








ン パ イラ の ゲー ム を FIM-11 で 
化 、 引 数 の 突 更 を ど で す . 


圏 COMPAC K 参考 に “MELON PANIC" の 変更 箇所 を リス ト 1 に 示し ます . その 他 
現在 まで に 発表 きれ て いる K コ ン パ イラ 用 グラ フィ ッ ク ・ サ ブルー チン な 410 行 、PSG, PSG1, MUS.ONGA な どの サウ ンド 関係 を すべ て 取り ます . そし て , 
ど は FM-7/8 用 な の で , サブ ルー チン に よっ て は F M-11 用 に 変更 し な けれ ば マシ ン 語 は $ 701Bー $ 78FF ま で を 入力 し ます . 


な り ま せん . この 変更 は , KEY サブ ルー チン 以外 、 グラ フィ ッ ク 画 面 の 初期 サブ シス テム の コマ ンド に つい て は , 資料 編 を 参照 し て くだ さい . 
リス ト 1 








1519 "MIDiHLT[ ]』 DDR= 和 も FCB23 CPUKE DDR 。 ま 1. の 9。49。 2 コロ 。 の 9。 2 。9。 1 。93 SUE[ ] 

sp 9 HLTE ] 』 ADDR= 和 FCB2 CPUKE ADDR 。 ま 21 、 還 1Fi SUB ] 

1512 " HLTL ]i DDR= ま FCB2s CPUKE DDR 。 まつ 2 で 。 ま 1Fi SUE[ ] 

1513 “" HLT[ 1i RDDR= ま FCB2i CPURE DDR 。 2,。 9 ら 』 SUE[ ] si RETURN 

1559 "SUEIiCUDE も 7F。 ま FD。。 ま B6。 まま FD 。 あの ロ 。 まつ 。 まま F 日 。 まさ 

1579 * INKiHLT[ ]s ADDR= ま FCB2s CPUKE DDR。 *2D』 SUBL ]』 HLT[ ]i に ド YCH=PEEEK ( ま FCB さ ) 』 ド Y=PEEK ( ま 
FCB4) iFPUKE ま FCB2。 まさ Fi SUE[ ]:』 IF KYCH= ま 9 THEN KY=KY1 』FTIKY=KEYIKY1=KYiRETURN 
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F-BASIC.CP/M-80 
人 / ル / 
人 月 





フル カラ ー グ ラフ ィ ッ ク 画 画 ハ ー ド ユビ ピー 





783 年 3 月 に 発売 に な っ た シャ ー プ の カラ ー プ リン タ MZIP04 
を 使っ て ,FM- 7 /11 の グラ フィ ッ ク 画 面 の カラ ー ハ ー ド コ 
ピー を と る プロ グラ ム を 作成 し まし た の で , 発表 し ます . 

FM- 7 の 画面 は 640 ベ 200 ド ッ ト , FM-11 は 640X200 と 
640X400 の 二 種 類 が あり ます . また , MZ 1 P04 は 横 が 10 イ 
ンチ , 1024 ド ッ ト で 各 点 ご と に 8 色 の カラ ー を 印刷 で きま す . 
そこ て で 画面 モー ド が 640X400 ド ッ ト の 場合 で 画面 と プリ ン 
タ の ドッ ト が 1 対 1 に 対応 する 普通 版 (CCOPY) と , 縦 。 
横 と も 2 倍 に 拡大 する 拡大 版 (WCCOPY) の 2 種類 , 作り 
まし た . また , 640X200 ド ッ ト の 場合 に は , 縦 を 2 倍 に 拡 


大 し て 400 ラ イン と し て プリ ント し て いま す . 


同 EEE 5 


OSEREEENESieaEOseee 


FM シリ ー ズ で は グラ フィ ッ ク 画 面 と テキ スト 画面 が 別 
画面 と し て 扱え る の で , ハー ドコ ピー を 下り た い 画 面 で プ 
ログ ラム を プレ ー ク させ て ,、 介 思 の カラ ー ハ ー ド ・ コ ヒー フ 
ログ ラム を LOAD し て RUN し ます . RUN 後 , 画面 と ハー 
ドコ ピー 間 の 中 時 反転 の 和 有無 (BKTYP0 OR 1 ) お よび 画 
面 の ドッ トモ ー ド (640※400( 0 ) か , 640X200( 1 ) か ) を 
入力 する こと に より 動作 が | 開始 し ます . 

この プロ グラ ム は マシ ン 語 も BASIC で 入力 する よう に 
し て ある の で , あな た の BASIC プ ログ ラム 中 に 本 プロ グラ 
ム を マー ジ し て , CLEAR 文 を 先 更に 移し . か つ 600 ま た は 
610 行 日 の END 文 を RETURN 文 に か えて サブ ルー チン に 
ずれ ぽ 。 ブロ グラ テム を 寺 に で し まう こと も: を ぐだ な ゆま ず 。 
1 








| Sm 邑 度 図 に お ける 
開 係 

















六田 嘉明 





細川 治 





使い 方 で 注意 し て ほし い の は , FM- 7 の 場合 は 画面 の ド 
ッ ト ・ モ ー ド は 640X200 し か 選べ な いこ と , 7/11 と も マル 
チ ・ ペ ー ジ 画面 を 持っ て いる の で , も し 左 画 面 が CRT 上 に 
表示 され て いる 場合 は , ダイ レク ト 命 令 で , SCREEN 


n,n を 入力 し な けれ ば な ら な いと いう 点 で す Q は 画面 番 


な お ハー ド ・ コ ピー の 寸法 お よび 所 要 時 間 は , 表 1 に 示 
し て あり ます . 普通 版 で .、 は が きよ り 一 回 り 小 さい 程度 


拡大 版 で は 12 イ ンチ の ブラ ウン 管 よ り 少 し 大 きい 程度 の コ 
ピー が 取れ ます . 拡大 版 で も 極め て きめ の 細か い , ハー ド 
コピ ー が 得 ら れ ま す . 


表 1 ハー ドコ ピー の 寸法 お よび 時 間 (F-BASIC 版 ) 

| 。 。 。 。 | 普通 販 (CCOPY) | 拡大 版 (WCCOPY) 
大 き さ (mm) 84X134.5 | 168X269 | 
時 3 分 00 秒 程度 12 分 程度 | 
640X200 2 分 40 秒 程度 11 分 程度 | 


かー ンー 
光 の 三原 色 か ら 色 の 三原 色 へ の 変換 に つい て 
MEETDSSAPS 


みな さん も 中 学校 の 美術 の 授業 な ど で 習 っ た と 思い ます 
が , 光 の 三原 色 は レッ ド (R), グ リー ン (G), ブル ー(B) で あ 
り , 絵の具 の 三原 色 は マゼンタ ( 紅 ,M)., イ エロ ー( 黄 , Y), 
シア ン ( 青 。 CO) と な っ て いま す .。 本 プリ ンタ で も , M・Y・ 
C の 組合 せ で 7 色 を 合成 し て いま す ( た だ し , 黒 は イン ク が 

に じゃ ちの で 黒 イ ンク で , 表わす こと に な っ て いま す ). 
そこ で 人 回 は RGB で 表わさ れ て いる 色 を , MYC と 黒 
図 2 


FM-11 の デモ の ハー ドコ ピー 
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(BKK) の 4 色 を 使っ て 表わす た め の 関 係 を 話し ます . 

RGB と MYC の 関係 は 、 図 1 の 色相 胡 の よう に な っ て い 
ます . た と えば マゼンタ ( 紅 , M) は R と B を 混ぜ た も の で すか 
ら , R ま だ た は B の 一 方 また は 双方 が 1 (ON) で , か つ G が 0 
(OFF) で ある と き , M を 1 (ON) に する と いう 論理 で 与え 
ます . これ は , 次 の よう な 論理 式 で 表現 で きま す . 





マゼンタ :M= (RORB) ANDG | 





ここ で G は G の 冶 定 (NOT G) を 意味 し ます . 
同様 に し て , イエ ロー(Y) と シア ン ( 〇 ) の 論理 式 は , 





イエ ロー :Y= (RORG) AND B 
シア ン : C= (GOR B) AND R 








がり (まい 
次 に , プラ ッ ク (BK) は CRT 上 の 黒 ( 空 邊 ) を プリ ンタ ト 
で も 黒 で 表現 する 場合 (BKTYP 0 ) と , 逆 に 空自 で 表現 す 
る 場合 (BKTYP 1 ) の 2 つ を 選択 で きる よう に し まし た . 
先 の 場合 は ,CRT 1- で RGB が すべ て 0 ( 空 向 ) の 部 分 を イン 
ク の 黒 で 表現 する の で , 論理 式 は , 





プ ブラック : BK=NOT(R ORG OR B) 











と な り , 後 の 場合 は RGB が すべ て 1 ( 白 ) の 部 分 を 黒 で 表現 す 
る の で , 











プラ ッ ク : BK=R ANDG AND BE 





と な り ま す . 

R, G, B, M, Y,C の FM- 7 /11 で の カラ ー レ コー ド お 
よび プリ ンタ に お ける カラ ー コ ー ド の 対応 表 を 表 2 に 示 
し て お きま す . た と そば, FM で の 紫 は MZ1P0 4 で は マ 
ゼン ダ ( 紅 ) に , FM で の 吾 は MZ で の 紫 に , FM で の 水色 は 
MZ で の シア ン ( 前 ) に 対応 し て いて , これ で ほぼ , 画面 と コ 
ピー の 人 色 が 介 い ます . 画面 の 杏 は あざ や か な 青 で す が , プ 
リン タ で は 紫 ( 深 い 青 ) に な る 点 だ け 異 な り ま す . し か し 
これ は 。 症 机 快 上堂 うし よう や あび ませ ん 。 

表 2 カラ ー コ ー ド 対応 表 


FM7 ii 
カラ ー コ ュー ド | 色 。 | カラ ニコ ーF| ”" ぁ | 
0 | 黒 1 | 時 
1 青 7 | 紫 ( 紅 + 青 ) 
2 赤 3 | 赤 ( 紅 丁 黄 ) 
3 紫 ( 赤 + 青 ) 2 紅 〔 マ ゼン タ 〕 
4 緑 5 緑 ( 黄 十 青 ) 
5 水色 (緑青 ) 6 青 (シア ン 〕 | 
6 黄 ( 赤 十 緑 ) 4 黄 ( イ エロ ー〕 | 
| _ 7 | 自 。 | 0O | 無印 字 








= 日 らら | じ c フ 


FM シリ ー ズ で は ., CRT の 制御 は すべ て ディ スプ レイ ・ サ 
プシ ステ ム の CPU が 行なっ て いる た め , ドッ ト ・ イ メー ジ ・ 
デー タ の 読み 出し は , BIOS の RCB イ ンタ ー フ ェ イ ス の 
SUBIN コマ ンド 中 の GET-BLOCK 2 サブ プ コ マン ド を 用 い 
て 行なっ て いま す .CRT 上 で 読み 出し た い 領 域 の 対角線 の 
XY 座標 を 送る こと に より , RGB の ドッ トイ メー ジ ・ デ ー 
タ が 指定 し た バッ ファ ・ エ リア (RCBDB) に 読み 込ま れ ま す . 

一 方 ,. プリンタ に ドッ ト ・ イ メー ジ を 描か せる 命令 は 
| Esc |+[ Tln| 二 [m 二 | xi xt…xm | で n は 色 と ラ イン 
策 号 を 表わす 1 バイ ト の ASCII 表 現 。M は 転送 バイ ト 数 , 
Xn……X。 は , ドッ ト ・ イ メー ジ ・ デ ー タ で す . 





』O 


そこ で , ディ スプ ブレイ ・ サ ブシ ステ スム. か がら 取り 、 出 ほな 
RGB デ ー タ か ら 先 に 述べ た 論理 に よっ て , マゼンタ , イエ 
ロー ニー ジア シン デラ ッ ジ の デー ツ を 作 の 9 。 ブ リ ジ ダ の 下 有 
イン 分 の デー タ を 作り , プリ ンタ の 1 ライ ン 分 の デー タ を , 
X ュ 、 …X。 と し ます . 

これ を BIOS の RCB イ ンタ ー フ ェ イ ス の LPOUT コ マン 
ド を 使っ て , プリ ンタ に 送り ます . そし て 4 ライ ン 分 の デ 
ー タ を 送っ た 後 , 一 回 マイ クロ ・ ラ イン フィ ー ド 命令 








ESC |+ 和 を プリ ンタ へ 送る と , 4 ライ ン 分 が プリ ンタ に 








描か れる わけ で す . 

な お 拡大 版 の 場合 に は , 各 ビ ッ ト を 2 ビット に 拡大 操作 
し で ピリ ジ タ ペ の デー タモ し て い めい ます 、 

また この プロ グラ ム の マシ ン 語 部 分 は リロ ケー タプ ブル 
に 作っ て ある の で , 表 3 の 部 分 を 手直し すれ ば , ユー ザー 
エリ ア の 任意 の 場所 に 移す こと が で きま す . 

SHARP MZ1P0 4 は FM シリ ー ズ と ASCII コ ー ド 
が 一 部 違っ て いる だ ため に , グラ フィ ッ ク ・ キ ャ ラク タタ お よ 
(パグ た の うん 人 パー タク の 3 つと 学ん が 下 し で プリ 
ント され な い の は , 残念 で す . し か し を な がら, この よう な 
美しい ハー ドコ ピー も 取れ , 通常 の リス ト ・ ア ウト も で きる , 
すぐ れ た プリ ンタ で ある こと は 確か で す . 

表 3 マシ ン 語 部 分 を 移動 する 場合 の 変更 箇所 
Esg2 
6FFF エ Z 
7000 = ょ 。 


90 | 6FFF | 6FFF+e| 90 | 6FFF 

130 7000 7000 +。| 130 7000 

820 7010 7010 ょ 。| 810 7010 7010 +。 | 
880 7020 | 7020+z 870 7020 | 7020 ょ Z 
920 70B0 7080 ょ 。 | 920 7080 7080 ょ e 
980 70C0 70c0+Z 980 | 7090 |7090 ょ e 
1020 7024 7024 ょ 。 | 1030 | 7024 7024 +g 
1610 72B8 72B8 ょ 。 | 2220 | 7248 7248 +。 | 
-1660 | 72BE 72BE+。| 2270 | 724E | 724E gl 





aeP7IVEBUI 


ee 
プロ グラ ム の 入力 方 法 

まず , CP/M を 超 動 し た 後 (Z80 カ ー ド が 必要 で す ), 
DDT (8080 デ ィ バ ッ ガ ) を RUN さ せま す . つぎ に , 念 の 
だめ, E (Fil) コマ ンド で , 100H か ら 0FFFH ま で を クリ 
ア し て お きま す (F100, FEFE, 00). そし て , S(Set) コマ 
ンド で , ダン プ ・ リ スト (リス ト 3, 4) の 内 容 を , 100H 
番地 か ら 入 力 し て くだ さい . 入力 が 終わ れ ば , D(Dump) コマ 
ンド で 確認 し た 後 , 一 度 CP/M に 戻り ます (GO また は | CTRL 
土 [CD). 直ちに (内 容 が 壊れ な いう ち に ), CP/M の ビル ト 
イン ・ コ マン ド の Save を 使っ て , ディ スク に セー プ ブ し ます 
(SAVE 4 CCOPY. COM ま た は , SAVE 4 WCCOPY. 
COM). 

以後 ,。 CCOPY, また は WCCOPY と いう トラ ンジ ェ ン ト ・ 
コマ ンド で , グラ フィ ッ ク 画 面 の カラ ー ハ ー ド コピ ー が と 
れる よう に な り ま す . 

所 要 時 間 は オー ル ・ マ シン 語 の た め , 若干 速 ま り , CCO 
PY で 2 分 30 秒 程度 ,。 WCCOPY で 9 分 程度 で プリ ント で き 
まず 
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,O 


を 行なう こと と な り , 苦労 し まし た . ま た FM-11 を 使っ て 
作っ た の で す が , まだ 完全 な マニ ュ ア ル が 完成 し て いな か 
っ た の で , FM- 7 の 衣 料 を 使っ て 作成 する こと に な っ て し 
まい まし た し か じ し と こう し で 完成 し で 。 美しい バ パード コピ 



















サン プル を 見 る と わか る と 思い ます が , びっ くり する ほ ー が 出 て くる と , 何 か ワ クワ ク し て きま す . 
ど 美 し い カ ラー ハー ドコ ピー が 取れ ます . FM- 8 で は 、 BIOS の アド レス が 少し 培う だ け だ と 思い 

初め オー ル BASIC で 作っ た と 時 に は , 普通 版 で 40 分 も か ます の で , 簡単 に 移 値 で きる と 思い ます . 
か っ た の で , 玉 要 な 部 分 を マシ ン 語 に 置き 換 を た な わけ で す . 最後 に .。 この プロ グラ ム で , きっ と グラ ィ ッ ク の 楽し み 
6809 の アセ モン プラ が な か っ た た め に , ハン ド ・ ア モン ブル が 倍増 され る と 思い ます . 
EE に ビ - 巳 入ら |C 用 COP Y EE 

1 の " ポ 玉 玉 来 氷 玉 玉 炒 玉 ※ 玉 玉 玉 玉 玉 来 玉 素 玉 玉 玉 洲 米 米 玉 米 米 玉 玉 玉 素 玉 来 玉水 玉 玉 玉 玉 水玉 

ら の "' ポ COLOR _HRRD COPY = ニ =CCOPY== 玉 

3 の '※ ポ (SHARP カラ 園 イ ン フ リバ ェ ッ ト フ " リン タ 園 グー1P の 4 ) ト 

4 の '※ High Speed Version 3 

5 の "'※ ポ 

6 の '※ 1983.4.8 CODED BY Y. MUDR & 日 .HOSOKAuRQ 3 

? の "ポポ 4.16 カン セイ ! 4 

8 の 「 ポ 炒 素 玉 求 水 求 玉水 玉水 氷 玉水 素 水玉 玉 玉 水玉 来 水玉 玉 来 氷 来 玉 ※ 洲 玉 素 玉 ※ 求 氷 求 氷 氷 ※ 求 ※ 

に 2! CLERR ,&HBFFF 

1 の の LPR INT CHRS(S7): "MO9" 

11 の 9 LPR INT CHRS(G?): "HOO11 の 5": 

# の : ! 

139 BI0Sz=&H7 の の 9 : RCBZ=B 1OS メ +&H1 の : RCBDB>=B [0SZ+&H ら の : BLU メ =B 10S メ +&H ら 4 

149 REDZ=B 10S シ +&H4C: GRN メ =B TO0SZ+&H74 

15 ら BIOSLPOz=B IO0S>+&HQO : RCBLP ロ Z=B IO0SZ+&HBO : BK 々 = 10S ら Z+&HCO 

16 の トン タ =B [0S メ +&H1 16: YELZ=B IT0S メ +&H16C: CTRZ= ニ BT0SZ+&H1C ら 

17? の RGBIMIYCZ=B IOSZ+&H つ 2 ら の: BIOSMLF メ =B 10S メ +&HGB の 

189 " 

198 の DEF USR の =BTIOS> : DEF USR 1=BIOSLPOZ : DEF USR ら =RGBMYCZ : DEF USR3=B [OSMILF シ 

ら の の " 

ら ご 1 の FOR LTz= の TO_&H17?:RERD RS$:POKE BIOSz メ + ォ エッ , URL" &H "キロ $ ) : NEXT 

らら の FOR エタ = の TO _&H15:RERD $:POKE BIOSLPO メ + エッ, URL "&H"+ 仙 $ ) : NEXT 

ら 3 の FOR = の TO _&H85: RERD RS$:POKE RGBMYCZ+ エ ター UL "&H" 圭介 ) : NEXT 

ら 4 の FOR 1%= の TO _&HOF : RERD RS$:POKE BIOSMLFz+ エ ンタ , URL "&H ロ "寺内 5 ) : NEXT 

らら 5 の FOR Lz= の TO 3 

ら 6 の POKE BKz+(SBB※1I メ )+9,&H1B 

7 の POKE BKz+(86XIZ)+1.&H49 

ら 8 の POKE BKZ+(86※1IZ )+ づ 3, &H3 の 

ご 9 の POKE BK メ +(8B※IZ)+4.&H38 

3 の 9 POKE BKz+( BB※1Z )+5, &H3 の 

31 の 9 NEXT 

3 ら の 9 ESC$=CHRS(&H1B ) 

33 の COUNT= の : Y1= の : Y ら = の 

34@ " 

35 の INPUT "DISPRRY ノ ジリ ロラ PRTINTER テ * シロ = の ,2 ロ BKTYP メ 

36 の INPUT "DISPRRY モ 園 ト ~ 較 ら 4 ウホ ボス の の = の , 64 の * ら の の = 1 " : DHZ: IF DHz く < の OR _DHz >1 THEN 36 の 

37 の LPR INT ESCS:CHRS(&H18):: "Clear Printer Buffer 

38 の 9 " 

39 の ' *LPR 

4 の し LN シテ = の 

41 の '*LFB 

242 の メ 1= の : ※ ら =319 

43 の 9 GOSUB _ 65 の : 'Ca1 1 *GETSCRN 

44@ ・MIDz= の : CZ ミ USR ら CN IDz+BKTYPz* ら ) : 'RGB-to~BNYC 

45 ら 9 メ 1=3 ら の : X ら ご =639 

469 GOSUB BS の : 'Ca1 1 *GETSCRII 

47 の MID メ = 1: ビッ =USR ら (MIDZ+TBKTYP ッ ※G) : 'RGB~to~BMYC 

48 の 9 FOR TL エメ = の TO DHz 

498 の FOR 【z= の TO 3 :POKE BKz+(BBIz)+ ら ,LNz+&H3 の +( 4 エタ ): NEXT エッ 

5 の の B メ =USR 1( の) : "CRLL BIOSLPO 

51 の LN メニ ヒメ 1 

58 ら の NEXT LT エン 

539 Y1=Y1+1: Y ら =Y1 

54 の IF し NZ く > 4 THEN 489 :'*LPB 

55@ ′ END OF LPB LOOP 

S6@ 上 

57@ B>=UISR づ の ) > "LLPRINT ESCSi "人 "i (SEND NICRO LF > 

58 の COUNIT=COU ト IT+ 1 

59 の LPR INT ESCS: CHRS(&H18 ) :、 : "Clear Printer Buffer 

6 の の IF _ COUNT < く > 1 の の THEN 4 の の : '*※LPR 

619 ENID 

6 の * 

63 の " 

B4 の '*GETSCRN! (Get Screen Dot Imaqe into RCBDB=( BLUz ) 

5 の POKE RCBZ  + 4, の : "Mrite RCBLNH=11 ハ * イ ト 

66 の POKE RCBZ  + 5, &HOB 

67 の POKE RCBDBz+ ら , &H1D : "GET~BLOCK~ ら COMRND CODE 

689 POKE RCBDBZ+ 3, X1 ヽ &H1 の の ・"Mrite XX1 

6 の POKE RCBDBz+ 4, X1 ト MOD &H1 の の 

7 の の POKE RCBDB>+ 5, Y1 ヽ &H1 の の : "MritE Y1 

1 の POKE RCBDBz+ 6, Y1 NMOD &H1 の 9 本 | 
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リス ト 1 F-BASIC 用 CCOPY 
ィ 8 の POKE RCBDBz+ イマ, x ら さ  &H19g : "Mrite X ら 
ィ 3 の POKE RCBDBz+ 8. X ら FOOD &H1 の @ 
ィ 49 POKE RCBDBz+ 9, YS ヽ  &H19g :*Mrite Y ら 
ィ 5@ POKE RCBDBz+ 1 の, Y2 NMOD &H199 
ィ 69 人 ロメ = ニ USRO( の ) :*Ca11 BIOS 
アア の RE TURIJ 
ィ 8 の 
ィ 8@ 
8 の 9 
81 の 
82 の DaTQ BE.7 イ の, 19 : ' ? の 9 の LDX HRCBGD 
83 の 6 DATQ QD,SF,FB,Fa : ' て の の 3 JSR 〔sFBF〕=BTOS 
84 の DaTa 39 : の 9 イ RTS 
85 の  DQTQ の , の , の , の, の, の , の , の: ' 7 の 98 
86 の DaTaQ 11 :" イ 9 の 1 の RCB: SUBIN CMD 
8S?7 の 。 DRTR の :・) の 1 1 don't Care 
BS の DaTQ ? の ,829 :* イ の 18 RCBDBR= $ イ の 3 の 
Sg の  DQTQ 99, の B :! イ の 14 RCBLNH= 1 1 
9 の  DQTQ の 9,?c :* イ の 16 RCBBNIH= 1 つの 9( =54 の / ン 8 *※3 )+ ス 
91 の 
92 の  DQTQ BE,? の ,B9 :  ? の ROLDX RCBLPOQD 
3 の DaQTQ aD, SF,FB,FR : ' イ 93  JSR 〔*FBFR]=BTOS 
94 の DaTQ 39 :* イ の QR7 RTS 
5 の  DQTQ の , の の, の, の, の, の, の, の :' て ga8 
6 の DaTQ の E : "て 9B の RCBLPO :LPOUT CMD 
g? の DaTQ の :* イ の B 1 DON~T CaRE 
98 の DaQTQ イマ の .CO : "て 9B ら RCBDBQ=$? の CO 
9 の DaTa の 1,58 : * の 84 RCBLNH=86*4=&HO 158 
1 の 99 " 
1 の 1 の DQTQ Q6, の 3 : * イ 52 の 9 RGBMYC : LDR 3,※ : 人 =INPUT PRRRNMATOR 
1 の 2 の DQTQ 8E, イ の ,24 : * ? ら 2 らら LDX #$ イ の 24 : X=BLUz DRESS 
1 の 3 の DQTQ 33,89, の 1 ,F4 : * ?525 LEAU * の 1F4,X : り =MORK ING QRIA RADRESS 
1 の 4 の DQTQ 31,89, の 9.QS  .:'72298 LERY s の の Q2, ※ : Y=BKDT> ADRESS 
1 の 5 の DRQTR aF,C4 :*?22D ST 。 ぶり : STORE BLUz TO MORK.RRA 
1 の 6 の DQTQ 85, の 1 : * らら F BITR ##$ の 1 : MIDz= の ? 
1 の 7 の DaQTQ 27, の 3 :* ? ら 31 BEQO P1 : YES THEN JMP P1 
1 の 8 の DaTQ 31,Q8,28 : "で ら 33 LEAY s28,Y : NO THEN BKDT=BKDTz+4 の 
1 の 9 の DQTQ 19, PF, 48 :' イ 236 P1 STY ら 2.U : STORE BKDT TO MORK.RRa 
116 の DaQTQ C6,28 : ' ?539 LDB #s28 : B=4 の (SET COUNTOR 〉 
111 の DQTQ 85, の ら : ' て 83 日 BITQ #$ ら : BKTYP メ = の ? 
1129 DaTQ 26, 13 : * ?53D BNE BKT1 : NO _THEN JMP BKT1 
113 の DQTQ Q6,84 :"?S3F BKT の 。 : LDQA ,X : BLU 
114 の DaQTQ aa,88,28 : "7841 ORQ _$28,※ :OR RED 
115 の DaQTQ QR,88,5 の :*? ら 44 ORQ _*5 の , メ : OR GRN 
116 の DaTQ 43 :* 7847 COMa : NOT て BLU OR RED OR GRN) 
11? の DaQTQ 7,QO : て 248 STQ  ,Y+ : STORE BLACK, QUTO INO Y 
118 の DaTQ 6,89 :* イ 54 LDR  ,※+ :UTO INC x 
119 の DaTa Sa :* てら 4C DECB : B=Bー 1 
126 の DaQTQ 26,F の : * て 54D BNE BKT の : 昌 > の THEN JMP BKT の 
1 ら 21 の DaQTQ GE, CC, の F : * マ ら 4F JNMP +s の F , PC :JMP MYC 
1229 DaQTQ Q6,84 : ' て 5252 BKT1 : LDR ,X : BLU 
123 の DQTQ Q4,.88,28 : * て 554 RNDA 28,※ iQND RED 
124 の DQTQ 4,.88,5 の : ! 725 イ RNDQ 5 の 9, メ iQND GRN 
125 の DATQ _Q7, :* イ 25a STA  ,Y+ : STORE BLRCK,QUTO INC Y 
126 の DaTQ AS, 8 の 765G LDA  ,※+ : RUTO INC X 
127 の DQTQ Sa : * て 25E DECB : 日 = ピ 1 
1289 DaATA 26,F1 らら F BNIE BKT1 jiB> の 9 THENI JHMP_ BKT1 
129 の DaTQ PE,C4 : "て 261 NYC LDX  .U : メニ BLUz DRESS 
13 の の DaTQ 1 の 9,PE, 8 ら : * イ 563 LDY ら ,U : Y=BKDT ン 
131 の DaQTQ CG,28 : * 866 LDB #528 : B=4 の (SET COUNTOR ) 
1329 DQTQ 34, の 4 : て 268 FTYCLOOP: PSHS B : CDUNITOR STORE 
133 の DQTQ QB,84 :* ? ら Ga LDA .※ : BLU 
134 の DQTQ QQ,88,.28 :・ イ 26C ORQ *28,※ : OR RED 
135 の DaTQ E6,88,5 の : ' ?56F LDB $59,※ : GRN 
136 の DQTQ 53 : "57 ら COPB : NOT (GRN) 
137 の DATQR E イ , 44 MTーY ドー) STB 4,U jiSTORE NOTKGRN) TO MM. 品 
138 の DQTQ Q4.44 :*?275 RNDR 4,U : ND NOT(GRN ) 
139 の DQTQ _Q7,Q8,56 7 787p STQ _s*55,Y : STORE MAZNTQ 
14 の の DQTQ QAG,88.28 :* イ 87 ロ LDQ *28,※ : RED 
141 の DQTQ QQ,88,5 の :* 787D ORA 5 の ,※ : OR GRN 
142 の DaQTQ E5,84 : * て 8 の LDB ,※ : BLU 
143@ DQTQ 53 : ' て 58 ら CONB : NOT て BLU) 
144@ DATA E ィ , 45 :  ?283 STB 5.U : STORE NOT(BLU) 
145@ DRTQA 4.45 : ) ? ら 85 NDR 5,U j 伯 ND NOTCBLU) 
146 の DATQ QA7,Q9, の の, QC : 「 ? ら 8 イマ STQ saC. Y : STORE YELLOMI 
14? の DaTQ _ QB, 84 : "758B LDR 3 i BLU 
1489 DaQTQ aaA.88,5 の : * 58D ORQ s59, メ : OR GRN 
149 の DaTQ ES,88,28 : * て 599 LDB s28,※ : RED 
15 の 9 .DRATQ 53 : ' て 293 COPB : NOT (て RED) 
151 の DaTQA_ E7?, 46 ・' 7294 STB 6,U ji STORE NOTRED)TO MM. 
1529 DaTQ 4, 46 : て 896 RNDR 6,U : QND NOTKRED ) 
153 の DaTQ _Q7,Q9, の 1 . の 2 : ' て 298 STQ s の 192.Y : STORE CION 
154 の DaQTQ Q6,8 の : て 59C LDR  ,※+ : RUTO INC メ 
155 の DATQ QB, Rg : * て GE LDR  ,Y+ iQUTO INC Y 
156 の DaTQ 35, の 4 : 5a の PULS 日 : PULL 日 て COUNTOR 〉 
15 イ の DAT 5a : * イ らら DECB : =Bー 1 

ーー ニー 
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リス ト 1 F-BASIC 用 CCOPY 





1589 DaTQ 26,C3 ・' 7 ら 3 BNE MYCLOOP j 昌 >9 THEN JMP_ MYCLOOP 
1598 の 6 DaTA 38 :' 7 らら 5 RTS 

1699 " 

161 の 9 DRTR_ BE, 7? ら 8, B8 : "7 ら BB の LDX ##RCBF ト 1LF 
1B ら 8g DRTR_RD, SF,FB, FR : ) 7 ら B3 JSR [SFBF] 
163 の 9 DRTQ 398 :) 75B⑦ RTS 

164 の 9 DRTR CE :) 78BS_ RCBNMILF:  LPOUT CND 
16S の DaTR @ : 7B 紀 DON~ T CRRE 
1B6 の DRTR_ 7? ら , BE ・ "7 ら BR RCBDBR=$? ら BE ビ 
16? の DRTG_ 9, の ら : ) 72BC RCBLNIH= ら 
168 の 9 DaTR _1B,41 :・) 72BE RCBNILFDB : ESC, "人 n" 


169 の '※*※*※*※※※※※ 氷 END OF PRDGRAMI CCOPY *※*※ 氷 ※※ 水 ※※ 
179 の ' SQUE "COOPY" 

炒 玉 米 米 米 米 米 炒 玉 炒 米 炒 玉水 素 玉 氷水 チュ ウイ 水玉 水素 炒 ※ 米 玉 炒 玉 来 氷 炒 ※※ 炒 米 玉 米 米 
ポ ウエ ノ LIST チュ ッ ノ 。 和男 , 四 ヽ ハ ※ 
ポ FM ?,11 テ * ハ 2 83 学 。 プス ※ 
炒 求 来 玉 米 玉水 玉 炒 玉 炒 炒 水 玉 水玉 氷水 水素 水 水 水 水 炒 氷 素 氷 求 氷 玉 氷水 素 炒 炒 水 炒 丈 炒 氷水 


注 :360 行 モー ド 、5640 


スト 2 ビー 巳 A ら IC 用 WCCOP EE 








1 の 「 ポ 素 炒 炒 水 水 米 米 玉水 玉 米 米 米 水玉 玉水 求 炒 涼 炒 米 炒 米 水 炒 米 炒 玉 玉 米 米 炒 炒 玉 玉水 氷水 水 氷 ※ 炒 


ら の "ポポ MIIDE COLOR HARD COPY = ニ =MMCCOPY ニ = 炒 

3 の "ポポ ・ (SHRRP カラ 較 イ ン フ クジ ^ ェ ッ ト フ " リン タ 園 1Zー1P の 4 ) 玉 

4 の '※ High Speed Version 玉 

5 の '※ ポ 

6 の ' ポ 19883.4.8 CODED BY Y. NMUDQ_& 日.HOSOKRM ロ ※ 

7 の 9 !※ 4.22 カン セイ ! ポ 

8 の " 氷 玉 来 玉 来 水玉 玉 来 求 玉 素 玉 求 求 来 水玉 炒 水玉 玉 玉 涼 玉水 水玉 水玉 素 水 炒 水 沙 

の CLERR ,&HBFFF 

1 の LPR INT CHR$( ら 7?): "MOB" 

11 の LPR INT CHR$( ら ?): "HO の 911 の 5" : 

189 

13 の BTIOS ヶ =&HY の の の : ROB ッ =BTODSz+&H1 の : RGBDB ァ =B TDS メ +&H ら の : LU メーB TDS メ +&H ど 4 

14 の REDz=B IO0S メ +&H3D : GRNz= ニ B 10S メ +&HSB 

15 の BIOSLPOz=B TOSz+&H イ の : RCBLPO メ =B IOSZ+&HS の : BK 々 = ニ B 10S メ +&H ヨ の 

16 の ト MIQZz=B T0SZ+&HFR: YEL =B 10SZ+&H1B4: CT ロメ = ニ B 10S% メ +&H1CE 

17 の RGBNYOZ=B TO0S メ +&H25 の : BIOS ト 1LF メ BT0S メ +&H ら 4 の 

18 の " 

18 の 9 DEF USRO=B TOSz : DEF USR1=BTIOSLPOz : DEF USR ら =RGBMYCz: DEF USR3=B TOSMLF メ 
ら 29 " 

ら 1 の RESTORE 819:FOR TO_&H17?: RERD RS:POKE BI0SZ+ エ を , URL "& 昌 "寺内 $ ): NEXT 


ら 8289 RESTORE 9829: FOR 
ら 3 の 9 RESTORE 1 の 9289: FOR 
ら 4 の RESTORE ら 28 の 9: FOR と 
ら 5 の FOR ITz= の 9 TO 3 


TO _&H15: READ $:POKE IOSLPO メ + エメ , UaLC "&H" TRS ) : NEXT 
TO _&HFD: RERD Q$:POKE RGBMYC メ + エ メー , URL "&H"+S ):NEXT 
TO _&HOF : REQRD $:POKE BIOSMILF メ + エ ンタ , URLC " &H "キロ $)・ NEXT 










\` ら 69 POKE BKz+( 1 の 9B※ エ タメ)+ の ,&H1B 
ら ご 7 の POKE BKZ+( 1 の 6※ エ [タメ )+1.&H49 
8 の POKE BKZ+( 1 の 6※ エ メ )+3,&H31 
ら 9 の POKE BKZ+( 1 の 6※ エ タメ )+4,.&H3 の 9 
き の の POKE BKZ+( 1 の 2565※ エ タ )+5, &H3 の 
319 NE※XT 
きら の COUNIT= の : ぶ X1= の : ※ ら = の 
8 * 
34 の INPUT "DISPRRY ノ ジロ ヲ PRTINTER テ ~ ジロ = の , ウロ =1":BKTYP メ 
35@ INPUT "DISPRRY モ 回 ト " 詳 G4 の スコ の の = の , 64 の ※ ら の の = 1 " : DHZ: IF _DHZ く の OR DH タ >1 THEN 35@ 
36 の 9 LPR INT ESC$: CHRS(&H18):: 'Clear Printer Buffer 5 
37 の *" 
38 の ' *LPR 
399 LN テテ の 
4 の の ' *※LPB 
41@ Y1= ロ : Y ら =198 
42 の GOSUB_ 64 の : 'Ca1 1 *※GETSCRIJ 
439 ド IIDz= の : ビッ =USR ら ( ト N1LDz+TBK 和 TYP メ ※ ら +DH ロ 4) : )RGB~to BNYC 
44 の IF_DHz=1 THEN 48 の 
45 の Y1= ら 9 の : Y ら =3988 
46 の GOSUB _ 64 の : 'Ca1 1 *※GETSOCRIJ 
347 の : ビタ = ニ USR ら (トド 1TDZ+BK 和 TYP ピン ※ ど +DH メ ※ ス ) : "RGB~to BITYC 
48 の 2 TO 1 
49 の FOR エメ = の TO 3 :POKE BKz+( 1 の 6 エメ うす , し NZ+&H3 の + す (4 エタ ):NEXT 上 エ 
5 の 9 B ッ =USR 1 て @) : CRLL BIOSLPO 
51 の LNz=LN メ + 1 - 
5829 NEXT LILIz 
539 XX1= ニ メ 1+ 1 : ※ ら = メ 1 
54 の IF LNZ < く > 4 THEN 41 の :'*※LPB 
55 の ) *※END OF _LPB LOOP 
5S69 * 
57 の Bz= ニ USR3( の ) > LPRINT ESCSB:" 折 " 5 (SEND MICRO LF) 
SS の COUNIT=COUNT+ 1 
59 の IF_COUNT < く > 389 THEN 39 の 9 :' ※LPR 
6 の 9 END 
19 " 
6829 " 
63 の 9 ' *GETSCRN| KGet ScCreed Dot Imaqe ・into RCBDB=(B し U メ 〉 
64 の POKE RCB% 。 + 4, の : "Mrite RCBLNH=11 "イト 
65S の POKE RCOBZ 。 + 5, &HOB 
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リス ト 2 F-BASIC 用 WCCOPY 
6 の POKE RCBDBz+ どら , &H1D : "GET~BLOCK~ ら COMIIRND CODE 
67@ POKE RCBDBz+ 3, X1 ヽ &H1 の 9 >: "MritE X1 
89 POKE RCBDBz+ 4, 1 NOD &H1 の 9 
BS99 POKE RCBDBz+ 5, Y1 ヽ &H1 の の : "Mritg Y1 
7 の 9 POKE RCBDBz+ 6. Y1 FOOD &H169 
1 の POKE RCBDBz+ ?。 X ら 8 ヽ & 昌 1 の の : "MritE ※ ら 
7? ら の POKE RCBDB タ + 8, X ら 8 FIOD &H199 
?39 POKE RCBDBz+ 9, Y ら 6 ヽ &H1 の の : "Mrite Y ら 
7 ア 49 POKE RCBDBz+ 1 の 9, YY FIOD &H1 の 9 
5 の ロッ ニーUSR の ( @ ) : "Ca1 1 BIOS 
do12] RE TUR ト NN 
77 の 
果 ニ 121 
7 の 
89@ " 
819 DRTR SE, 7 の, 1 :) 7 の 9 LDxX RCBGD 
8 どら 9 DRTR_RD,BF .FB, FR : ! 7O93 JSR [SsFBFR]=B IOS 
83 の 9 DaTR 39 TO の Oi7 RTS 
84 の DRTR の の. の. の 9, の,g, の, の の, の: 7998 
SS@G DaTR 11 :) 7 の 1 の RCB: SUBE IN CMD 
8 の DRTR の :) 711 don' tt Car 所 
8?7 の 9_DRTR 7 の , ら 9 : "7 の 1 ら RCBDBR=$ イ @ ら ロ 
88 の 9 DRTR の 9. の B : 7 の 14 RCBLNH= 1 1 
89 の DRTR の 9, 4F ez の 86 RCBBNMIH= イ 5 ニス 5 の 2 コン 8 ※3)+ ス 
9 の " 
91@ ! 
89 DRTR BE,? の 9,.89 で 記 の の LDX RCBLPORD 
3@ DRTR _RD, BF , FB,F 台 : 7 の 73 JSR [ $FBF ロ =B ビ TOS 
4@ DRTR 39 で SC の 2 RTS 
59 DRTQR 9 の. の , の ,. の 9, の, の ,. の 9, の : ! 7 ロ 78 
59 _DQTR CE : 728 の RCBLPO:  LPOUT CRND 
7 の _DRTR の : 7 の 81 DON~ T CRRE 
コ 8 の DRTR 7 の , 9 の : ' の 988 RCEDB ロ = 5?G9G の 
899 DRTR 91.8 ・ 7 の 84 ROBLNH= 126* ス =&HO1 ロ 8 
1@99 " 
1 の 19 
1 の 929 DATR_ RB, の 3 :) 7 ら 5 の RGBKIYC LDR 3.※ j ロ = INPUT PQRRRIRTOR 
1939 DRTR SE, 7 ロ , ら 4 : "7 ら 5g LD: 持 57 の コス : メニ BLUZ DRESS 
194 の DQTQ 33,89, の 2, 14 s Y7B55 LERU $ の 814,※X MORK ING ARIQ QDRESS 
1 の 959 DRTQ 31.898, の 9, DS * * 7258 LERY 99DS, ※ ij Y=BKDTE ト ID QRDRESS 
196 の 9 DRTQ_ ロ RF,C4 : * ?25D STX 。 , ょ U jiSTORE BLUzZ TO MORK . QR 
1 の 7G DRTQ 85, の 1 : "75F BITR #$ の 1 iMIDz=9 ? 
1 の 28 の DRTR ら 7?, の 3 :) ?561 BEQO P1 ji YES THEN JHIP_F1 
1 の 69 の DaTQR 31.S,CE : 7263 LERYー38, Y :NO_THEN BKDT=BKDT テー59 
119 の 9 DRTQ 19, QF , 438 :) 7266.P1 5 SEY : STORE BKDT TO MORK . QRQ 
111 の 9 DRTG_ CB, 18 : "で 269 LDB 持 $19 : B= ら 5 (SET COUNITOR ) 
115 の 9 DRTR_ 7, 4 マ : ) YS6B STQ 7,U :STORE INPPRRRNM TO りり . 
113 の 9 DRTR 85, の 2 : ' 72BD BITR #$ ラ : BKTYP タ = の ? 
1149 DRTR 26.18 : "7?26F BNE BKT1 
115 の 9 DQTQ 34.94 : 77271 BKT の PSHS B ji PUSH BCOUNITOR ) 
116 の 9 DRTR GS, 84 > * 7@73 LDR XX i BLU 
11?7 の DRTR Rn, 38,198 S YZ75 GRQ _$19,※X i OR RED 
118 の 9 DRTR Rn, 88,3 ら : "7278 OR 38,※ iOR GRN 
1198 の 9 DRTR 43 コー タニ) COhHR i: NOT(BLU OR RED OR GRN ) 
129 の 9 DRTR 17, の 9 の, 85 : ) 787C LBSR BITEXTD 
1 ら 81 の DRTR_ ロ 6, 89 ・* 7 ら 7F P ら : LDR  ,※+ ji RUTO INC ※ 
12289 DRTQ 35, の 4 る お 91 PULS B j: PULL BCCOUNTOR ) 
1 ら 23 の DRTR SR : ' 7583 DECB : ロニ ロビ ー 1 
124 の DaTQ 26,EB ・) 7 ら 84 BNE BKTO 
1285 の DRTR_BE,CC, 13 : 7286 JMP +$13,PC jiJMP_ MYC 
126g DaTQ 34,. の 4 :' 7289 BKT1 PSHS B ji PUSH_B(COUNTOR ) 
127 の DRTQR RB,84 ・' 728B LDR iBLU 
12889 DRTQ_ 4.88,19 :) ?88D QRNDR 519,※ iQND RED 
129 の 9 DRTR_R4,.88,3 ら 8 ・' 7 ら 289 RNDR 3 ら , XX iQND GR ト ! 
13 の の DRTQ SD, GF : ) で 3 BSR_ BITEXTD 
1319 DRTQR RB,89 ょ "IiZegS, . 選 3 : LDR  ,※+ jiRUTO INC ※ 
13289 DQTQ 35, 94 7687 PULS : PULL BCOUNITOR ) 
133 の 9 DaQTQ 5 : 589 DECB : B=Bー 1 
134 の 9 の DRTQ_ 26,ED 4 っ 1 BNE BKT1 jiB> の 9 THE ト | JNIP_BKT1 
135 の 9 DaQTR_E.C4 : "29C_MYC 5 LE 3 : ベニ B ラ し Uz DRESS 
136 の 9 DRTQ 1 の 9, QE , 48 : "72GE LBY_ 8, いり : Y=BKDTE ト ID QRDRESS 
137 の DRTR_CB, 18 : 71 LDB 持 $19 : B= ら 5 (SET COUNITOR ) 
138 の 9 DaTR _ 34, の 94 :) 72R3 MYCLOOP: PSHS B : COUNITOR STORE 
1339 DRTR_ QB, 84 : 75 - LDR i BLU 
14 の 69 DRTR_ QR.88, 19 HMI に (2 OR $198,※ : OR RED 
141 の 9 DRTQ_E6, 88, 382 : TBaR LDB $38, : GR ト J 
1425 の 9 DRTQ 53 :) 7GRD COIB ji NOT KGRN ) 
143 の 9 DaTR EE イッ 44 : "72@E STB 4,U jiSTORE NOTCGRN) TO いり. ロ 
144 の DaATR 4,44 : ) 7 ら 5B の RNDR ココ , け iRND_NOTKGRN ) 
145 の DaTQ 34, ら の ・ ' 7 ら BB ら PSHS や \ : PUSH_DRTR DRESS 
146 の 9 DQTQ 31.,RB, の 9,.GR :) 7 ら B4 LERY +s の OOGQ, Y j MIQKE FRZDT DRESS 
14?7 の DRTR_ SD, 4 : ' 72B8 BSR BITEXTD 
148 の 9 DRTR_ 35, ら の : 7 ら BR PELS \ : PULL DaTQ RDRESS 
1498 の 9 DaTQ RB,88, 19 : " ?2BC P4 - ・ LDR $198,X : RED 
15 の 9 DRTR _RR.88, 3 ら 78BE OR 38, : OR GRI ト ) 
1519 DaTQ_E6, 84 : ) 7 ら C ら 8 LDB 3 : BLU 
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リス ト 2 F-BASIC 用 WCCOPY 
152 の DaTQ 53 :* 78C4 COPB 
153 の 9 DaATQ E ィ , 45 : 7805 STB 5,U 
154 の 9 DaQTQ Ra4, 245 23 PBOY RaNDR 5,U 
15S59 BRTA 34, ら の :) 7GC9 PSHS Y 
156@ DQTQ 31,RB, の 9 の, D4 :* ? ら CB LERY +sGoD4,Y 
15?7 の DRTQ SD, 33 : " マ ら CF BSR BITExTD 
158@ DQTQ 35, 2 の : 8D 1 PULS Y 
159@ DQTA RG,84 : ' 5D3 P5 : LDA ,X 
16@ の DRQTQ an,88, 32 : * ? ら D5 ORQ _*32.※X 
161 の DQTQ E6, 88,19 : ' 75D8 LDB 19,※ 
162 の DaQTQ 53 :' ? ら DB COB 
163 の DQTQ E ィ , 46 : "76DC STB 8.U 
164 の 9 DQTA a4. 246 :*? ら DE QNDQ 6.U 
165 の DaTQ 34,82 の : ' ?SE の PSHS Y 
1S6 の DaTQ 31,QB, の 1.3E : ' ?E ら LEAY +s913E, Y 
16? の DaQTQ 8D, 1C : "SEG BSR 日 ITExTD 
168 の DQTQ 35, 2 の : ' YoE8 PULS Y 
169@ DQTQ _E6, 4 マ :「 ?SER LDB マ ,U 
1? の の DaTQ C5, の 4 : ! て SEC BITB #*$O4 
1?1 の DRTR 27?, の 2 : ' SEE BEQ PG 
172 の DQTQ QG,R3 : ' ?SF の LDR  ,Yーー 
1?3 の DQTQ QAG, 8 の : ?oFS PFG : LDR ,X+ 
1?74 の 9 DQTQ QG,Q3 :* イ ら F4 LDR  ,Yーー 
1?75 の DQTQ 35, の 4 : ' 7 ら 5FG PULS B 
176 の DQTQ Sa : *? ら F8 DECB 
1?7 ィ の DaTQ 26,R8 : ' て SF9 BNE MYCLOOP 
1?8 の DaQTQ 398 : * ? ら FB RTS 
1?9 の DaQTQ の . の , の, の, の, の, の, の 
18 の の ・ 
181 の @ DaTQ _E6, スィ : 73 の 4 BITEXTD: LDB イ ,U 
182 の DaTQ C5, の 4 : ' 7366 BITB せ $ の 4 
183 の 9 DATQ 26, 1E : ' ?3 の 8 BNE QUaD 
184 の DaTQ CG, の 4 : "で 3 の Q DOUBLE : LDB の 4 
185 の DRQTQ _a7, 44 :* イ 3 の 6C L1 : ST 4,U 
186 の DQTQ SD, 38 : * イマ 3 の E BSR _ROTR 
187 の DaTQ SBD,36 :* 731 の BSR ROTR 
188 の DATQ Sa :* 7318 DEOCB 
189 の DQTQ 26,F ィ :* 7313 BNE し 1 
1929 DQTQ 31,Q8,FF :* 7315 LEAY -1.Y 
191 の DaTQ CS, の 4 : 7318 LDB # の 4 
1929 DaTQ 7, 44 : イマ 319 LS: 。 STA 4,U 
193@ DaTQ 8D.2a 20162 BSR ROTR 
194 の DRTQ SD,28 :* イ 31E ピ BSR _ROTR 
195 の DaTQ Sa : で 32 の DECB 
196 の 9 DaTQ 26,F マ :*?381 BNE し ら 
197 の DQTQ 31,QB8,FF : ' 323 LEAY -1,Y 
198 の DQTQ 3 : ' ?326 RTS 
199 の DQTQ の 
ら 2 の 9 の 2 の DaTQ OCG. の 4 : ) マ 3258 QUaD LDB #$ の 4 
ら 2 の 1 の DaTQ 34, の 4 : "イマ 32n LO PSHS 
ら 292 の 9 DaQTQ CG, の 2 : * 732C LDB 后 $ の ら 
ら 293 の DATQ Q7, 44 : 732E LQ1 : ST 4,U 
294 の DaQTQ SD, 16 : ' イ 33 の BSR ROTR 
ら 295 の DaQTQ 8D, 14 :' 7338 BSR _ROTR 
226 の DQTQ 8BD, 18 :) イ 334 BSR _ROTR 
ら 2 の 7 の DQTQ 8D, 1 の :) ア 336 BSR _ROTR 
の 8 の DaQTQ Sa : 7338 DECB 
299 の DQTQ 26,F3 : ' 7339 BNE LQ1 
ら 1 の の DQTQ 31.QB,FF :) ?33B LEAY -1,Y 
ら 11 の DaTQ 35, の 4 : イマ 33EE PULS B 
ら 129 DQTQ Sa :* 734 の DEOCB 
ら 13 の DaQTQ 26,E ィ : イア 34 1 BNE LQ 
ら 814 の DaTQ 39 :) ?343 RTS 
ら 15 の DaQTQ の , の , の , の 
816 の DaTQ QB,44 : 7348 ROTR LDQ 4,U 
217 の DaTQ 48 :) 34 SLQ 
ら 18 の DaQTQ 66,a4 : "734B ROR  ,Y 
ら 19 の DATQ 398 :* マ 34D RTS 
22 の の " 
821 の ' 
ら 222 の DaQTQ BE, ? ら , 48 : * マ 54 の LDX #RCBNMLF 
23 の DaTQ _QD,9BF,FB,FR : * 543 JSR [ $FBF] 
224 の DQTQ 39 :* イ 24 マ RTS 
ら 225 の DaQTQ CE : 848 RCBMLF : LPOUT CMD 
226 の DaTa の : '? ら 49 DON~T CaRE 
ら 227 の DATQ てら , 24E :*? ら 4 RCBDBQ= $? ら 4E 
ら 2528 の DaQTQ の 9, の ら :* ? ら 4C RCBLNH= ら 


ら 298 の DQTR_1B,41 :) 7 ら 24E RCBMLFDB : ESC, " R" 
3 の の ' 水玉 氷 氷 米 玉 氷水 END OF PROGRRN CCOPY ※ 水 素 氷 氷 玉水 素 ※ 
ら 31 の ' SRUE "MCCOPY" 


玉 米 玉 玉 洲 玉 米 玉 洲 玉 水 玉水 玉水 水 洲 洲 来 チュ ウイ 玉 米 炒 米 米 玉 米 玉 米 涼 玉 玉水 玉 米 玉 玉 米 米 玉 炒 
米 ウエ ノ LIST チュ ウノ 還 , 四 ヽ ハ 炒 
氷 FM 7 11 デ "ハバ oe 宮 。 の そ 素 
米 求 玉 炒 玉 炒 炒 氷 素 炒 水 玉 玉 米 玉 氷 炒 米 玉 米 炒 炒 玉 求 玉 水 素 玉 炒 米 米 炒 米 炒 玉 水玉 炒 炒 炒 米 炒 玉 米 炒 





ji NOT (BLU ゝ 

jiSTORE NOTCBLU ぅ 

iRND NOTCBLU) 

iPUSH DRTR_RDRESS 

ji IGRKE YELDRTR RDRESS 


iPULL DRTR RDRESS 
ij BLU 


iOR GRIN 
i RED 
i NOT (RED) 


i:STORE NOTCRED)TO M. ム aa 
ji RND NOTXRED 〉 

ji PUSH_ DRTR_RDRESS 
iaKE CIQN QRDRESS 


ji PULL DRTR _RDRESS 

iLD I ト IPUTPRRRI4RTOR 

: DH ロ = の 9?. 

i YES THEN JNMP PFG 
iRUTO 8 DEC Y 

iRUTO INC X 

iRUTO 8 DEC Y 

iPULL B (KCOUNITOR 〉 

: B=Bー 1 

iB > の THEN' JMP_ MYCLOOP 


:LORD INPUT PQRQNQTOR 
: DH 々 = の 9 

:ND THEN JMP QUaD 

: SET COUNTOR 


jiSTORE BRSICDRTR TO MM. 谷 


j 日 =Bー 1 
iB く > の JMP し 1 
ji Y=Yー1 
i SET COUNTOR 


jiSTORE BRSICDQTR TO M.Q 


: =Bー 1 
ij B く < > の JNMP L ら 


: SET =4(COU ト NTOR 〉 
iPUSH B 

ji SET COUNTOR 

iLD BRSICDT TO M.R 


ij B=Bー 1 
jaUTO DEC Y 


2POEE . 
j B= ロ ー 1 


iLD DaTA 
STET (L MIITRSOF 
j ROTRTE DRTR_MENMORY 


: =$? ら 48 


: 三 $ ア ら 4 ビ ー 





注 :350 行 モー ド 、5640 
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は PD ロ /M 用 CCOPY 


ICCOFY.CQM 

-R 

NEXT FC 

o4B0 Q1Q0Q 

-D1Q00,40F 

Q10Q 21 DR Q2 CD Bo Q2 21 Eo Q2 CD BO Q2 11 oo 
Q110 E9 Q2 06 1B CD BF Q2 11 aQ 05 21 Q1 0 さ 06 
Q120 BF 02 11 20 Q7 21 17 0 さく Q6 B6 CD BF Q2 11 
Q13O 21 9D 03 06 10 CD BF Q2 Q6 04 11 CQ Q5 C5 
Q140 AD 0 Q6 Q6 CD BF Q2 D1 21 56 QQ 19 E5 D1 
0150 EC SE OO さ 2 CE 02 21 Q0 QO 22 D5 02 22 D9 02 21 >2。 1 に に 
Q160 BS 0S CD 96 Q2 CD 85 Q2 さ 2 D1 0Q2 21 D1 0 ミ CD 96 .。......2.! 
Q170 Q2 CD Q5 02 32 D2 02 21 F1 0 さ CD BQ Q2 SE 2 

Q1BQ CF Q2 21 QQ QQ 22 DS Q2 21 さ F Q1 22 D7 02 
0190 02 SE QQ さ 2 DO 02 < D1 02 B7 47 さ a DO 02 
Q1A0 CD 6C Q2 21 40 Q1 22 D ミ Q2 21 7F Q2 22 D7 
Q1EO 1R 02 3E Q1 32 DO Q2 さ a D1 Q2 B7 47 < DO 
Q1CO 57 CD 6C Q2 < D2 Q2 SC F5 Q6 04 21 C2 05 
Q1DQ Q2 C6 <O0 77 11 56 QO 19 C6 04 10 F7 16 00 
Q1EQ Q2 さ CF Q2 SC さ 2 CF Q2F1 さ D 20 DC 2 D5 
01FO 22 D5 02 22 D9 02 さく ACF Q2 FE 04 C2 B2 01 
0Q200 CD 76 Q2 < CE 02 さ C さ 2 CE 02 21 F1 Q く CD 
0210 さ Q CE Q2 FE 64 C2 7D Q1 C ミ QO QQ DD 21 10 05 DD :.…d. は 3 
0Q220 さ 6 Q4 QO DD さ 6 05 QE DD 21 20 05 DD さ 6 02 1D 2 6...6。。。! 。。6,。 キ 
Q23Q DS Q2 DD 74 0 さ DD 75 04 28 D5 02 DD 74 05 DD 75 . ee も cu 
Q240 Qe 2 D7 Q2 DD 74 Q7 DD 75 QB 28 D9 02 DD 74 Q9 。 (Ta 
Q250 DD 75 0 16 QQO CS 5B Q2 QE 7F SE FE 21 QQ 05 
Q260 05 00 QOE 7F SE FE 21 A0 Q5 C ミ Q5 OO GE 7F SE 
0270 21 20 07 CS 05 Q0 GE 7F SE FE 21 BEO Q7 CS 05 
Q280 7E FE QQ CB E5 5F QE Q5 CD 05 QQ E1 2 く 18 F1 
0290 12 1 さ 23 10FAC9 7EFE QQO CB E5 5F GE Q2 CD 
Q2A0 0Q E1 2 さ 1BF1 QE Q1 CD Q5 QQ F5 1E QD QE Q2 
02RO 05 OO 1E QA QE 02 CD 05 OO F1 FE ミ Q 2B QC FE 
Q2CO 2B QB 21 F ミ SQSCD 96 02 1B DR Q6<Q 90C9 55 
Q2DQ 55 55 55 55 55 55 55 55 55 55 55 1B 57 30 9 
Q2EO 1R 4B さ O さ O さ 1 く 1 <0 さ 5 QQO BE 05 10 aD 9F FE 人 
02FO さ 9 55 55 55 55 55 55 55 55 11 00 Q5 20 QQ OR 00 9UUUUUUUU..。 
Q300 7C BE 0Q5 BRO AD 9F FR Fa さ 9 55 55 55 55 55 55 55 !.......9UUUUUUU 
0 さ 10 55 QE QO Q5 CO Q1 5B 12 12 BE 05 24 < ミ さ 

0 さ 20 さ 1 B9 00 A2 AF C4 B5 Q1 27 0 ささ 1 aB 28 
03SO C6 2B B5 Q2 26 1 ミ 6 B4 Aa BB 28 AA BB 50 4 7 .(..&....・(..PC。 
0 さ 40 AO A6 BO 5 26 FO 6E CC QF 6 B4 A4 BB 28 4 BB 。..Z&n. (し 。 
050 50 A7 AO A6 BO 5A 26F1 AE C4 10 AE 42 C6 28 ミ 4 P....Z%. < B.(4 


























QS6Q0 Q4 6 4 AA BB 28 E6 BB 5Q SS E7 44 A4 44 7 AB 。。 (。.PS.D.D。。 
0S70 56 6 BB 2B An BB 5Q E6 B4 5 E7 45 a4 45 A7 A9 V。 ・P..S.E。E。。 
QSBO 00 AC A6 B4 An BB 5Q E6 BB 28 53 E7 46 A4 46 7 。。 P.。(S。F.F 
QS90 9 01 0Q2 A6 BO 6 AQ 35 Q4 5a 26 C さ ミミ 9 BE 0Q7 BB 。。。....5.Z&.9.。 
QSAQ AD 9F FR FA さ 9 QE QQ Q7 BE QQ Q2 1E 41 PPPPPP に TE (| 





QSBO SO さ B さ Q 4E 4F 4E 20 49 4E 56 45 52 4 20 42 4C QBONUN INVERT EL 
QSCQO 41 4 さ 3 4B さ D 30 2C 49 4E 56 45 52 54 SD く 1 20 さ F ACK=0, INVERT=1 ? 
QSDO QO 44 49 5S 50 52 41 59 20 4D 4F 44 45 20 さ 6 34 .DISPRAY MODE 64 
QSEO さ Q 2 さ 4 30 さ Q SD さ Q 2C 2 さ 2 さ 0 さ Q SD さ 1 20 SF Q*400=0。*200=1 ? 
QSFO QO 18 0Q0 52 45 54 52 59 21 20 2D 2D 2D 20 5Q 55 。..RETRY! - 一 - PU 
Q400 5 48 20 さ Q 20 4F 52 20 さ 1 20 2D 2D 2D 20 0Q0 A7 SH Q OR 1 一 - .。 


スト 4 。 CD/M 用 WCCOP Y EEE 








IMCCHPY.CON 
-R 


NEXT PC 

o5QQ Q100 

-D1CQ0,497 

Q10Q 21 ER 02 CD BF Q2 21 FO Q2 CD BF Q2 11 QO 05 
Q11Q F9 02 06 18 CD 9E 02 11 70 05 21 11 Q さ 06 16 
0Q120 9E Q2 11 5Q 07 21 27 0 さく 06 FE CD 9E 02 11 40 
Q13O 21 25 04 Q6 10 CD 9E Q2 Q6 04 11 90 Q5 C5 D5 
0140 35 04 Q6 06 CD 9E Q2 D1 21 ea QQ 19 E5 D1 C1 
Q15Q EC 21 QQ 00 22 DD 02 22 ES 02 22 E7 02 21 SB 
Q160 CD 5 02 CD B4 02 さ 2 E1 02 21 59 04 CD 5 02 
Q170 E4 02 32 E2 02 21 79 04 CD BF 02 さ E QQ ミ 2 DF 0 
Q1B0O 21 QQ 0QO 22 E5 Q2 21 C7 QQ 22 E9 Q2 CD 2 02 
Q190 00 32 EO 02 さ a E2 Q2 7 B7 47 さ A E1 Q2 B7 B0 
Q1Q0 36 EQO Q2 BQ 57 CD 7R Q2 さ Q E2 Q2 FE Q1 28 28B 
Q1BO CB 00 22 E5 Q2 21 BF Q1 22 E9 02 CD 28 02 SE 
0Q1CO さ 2 EQ 02 さ Q E2 02 H7 B7 47 さ E1 Q2 B7 B0 47 
Q1D0O EQ Q2 BO 57 CD 7R 02 SE Q2 F5 06 Q4 21 92 05 
QtEQ DF Q2 C6 <0 77 11 69 GO 19 C6 Q4 10F7 16 QQO 
Q1FO 71 02 3 DF Q2 3C さ 2 DF Q2 F1 3D 20 DC 28 E ミ 
0Q200 2 22 ES Q2 22 E7 02 3 DF Q2 FE Q4 C2 80 Q1 
Q210 QQ CD B5 Q2 2 DD Q2 23 22 DD 02 7CFE Q1 C2 
Q220 01 7D FE 40 C2 7R Q1 C ミ QQ Qo DD 21 10 05 DD 
Q2<0 04 0O DD さ 6 05 QR DD 21 20 Q5 DD さ 6 02 1D 28 
0240 Q2 DD 74 0 さ DD 75 Q4 28 E5 02 DD 74 Q5 DD 75 
0Q250 2 E7 02 DD 74 07 DD 75 QB 28 E9 Q2 DD 74 09 
Q260 75 QQ 16 QQ C さ 67 Q2 GE 7F SE FE 21 QQO Q5 
0270 00 QE 7F SE FE 21 70 05 C さ Q5 QQ GE 7F SE FE 
Q280 50 07 CS Q5 OO QE 7F SE FE 21 40 7 C さ Q5 oo 
0290 FE 00 PB E5 SF QE Q5 CD 05 QQO E1 2 さ 18F1 7E 
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リス ト 4 CP/M 用 WCCOPY 


02A0 1 さく 2 さ 10FA C9 7EFE QQ CB ES 5F QE Q2 CD OS OO 放 。。。Y ュ レレ 。/ に 
Q2RQO E1 2 18 F1 QE 01 CD 0Q5 00 FS 1E QD QE 02 CD OS 科 。。。。。。。 に に に に に 
Q2CO 0Q0O 1E Qa QE Q2 CD Q5 0QQF1 FE 30 2B QC FE さ 1 28 ,。 <0(。.1( 
Q2DO QB 21 7E Q4 CD A5 Q2 18 DR Q6 さ Q 90 C9 2 76 SB 。!(。。.。。..0。.2yB 
Q2EQO C9 CD 5A 19 CD 24 24 CD 49 1E CD 1R 57 さ Q さ 9 00 。.Z。.$ ま 。1。。 MO9。 
Q2FO 1BR 4B 3Q 3Q 31 くさ 1 さ Q S5 QO BE 05 10 aD 9F 
QQQ 9 さ 7 SD BB C2 94 25 32 72 11 0QQ 05 20 00 
QS10 4F BE Q5 BO AD 9F FRFA 39 C さ FS QA CD 7 04 C9 
QOS20 SA QE 00 05 90 01 AB 12 12 BE Q5 24 ささ B9 Q2 14 
B9 QQ DS AF C4 B5 01 27 Q く ミ 1 aB CE 10 AF 42 
0340 19 7 47 85 02 26 18 さ 4 Q4 A6 84 An BB 19 an .。 
QS5Q さ 2 4 さ 17 QQ 8B5 A6 B0 35 Q4 5 26 EE 6E CC 1 ミ 

QS60 さ 4 04 A6 4 4 88 19 4 BB 32 8D 6F A6 BQ 35 04 
0370 5A 26 ED AE C4 10 AE 42 Ce 19 34 Q4 A6 B2 Aa 88 
QSBQO 19 E6 88 32 3 E7 44 a4 44 さ 4 20 さ 1 a9 QQ 6 8D 
QS90 4 さ 5 20 A6 BB 19 AA BB さ 2 E6 B4 5 ミ E7 45 a4 45 
Q さ 4 20 さ 1 9 QQO D4 BD 3 35 20 A6 4 aa BB さ 2 E6 4 1.。 PP 
0 BB 19 5 EZ 46 4 46 34 20 さ 1 9 01 SE BD 1C 35 ..S.F.F4 1..> 
20 E6 47 C5 0Q4 27 Q2 6 AS 6 BO 6 さ 35 04 5 .6.." 
0 26 AB 39 B7 C2 5B 25 C1 AF 21 4 E6 47 C5 0Q4 26 &。9.。XZ。。!4。 
Q 1E C6 Q4 A7 44 BD ミ 8 BD さ 6 5 26 F7 さく 1 8 FF C6 ..。.D.B.67&。1.。。 
QSFO 0Q4 7 44 BD 28 BD 2B 5A 26F7 ミ 1 aB FF 39 26 C6 。..D.*。(Z&.1..9%&。 
Q40Q 0Q4 さ 4 Q4 C6 Q2 7 44 BD 16 8D 14 BD 12 8D 10 5 .4.。..D.. し し < Z 
0410 26 F さ さ 1 aB FF 35 Q4 5 26 E7 39 ES 2 C1 7 AG %&。1。.5。7%&。9.*#。7。 
0420 44 4B 66 A4 さ 9 BE Q7 48 AD 9F FE FA さ 9 QE QQ 07 DHf.9..H。 . 9..。 
04 さ 0 4E QO_ 02 1B 41 1B 49 4D さ 1 0 3Q 4E 4F 4E 20 49 N... 人 IM1QQNHN I 
0440 4E 56 45 52 54 2Q0 42 4C 41 4 さ 4R さ D さ Q 2C 49 4E NVERT BLACK=Q。IN 
Q45QO 56 45 52 54 さ D さ 1 20 さ F QQO 42 49 5 50 52 41 59 VERT=1 2。.DISPRAY 
Q460 20 4D 4F 44 45 20 36 さ 4 30 2 さ 4 さ Q さ Q 3D 3Q 2 MODE 640*400=0。 
0470 2 さ 2 さ Q さ Q さ D くさ 1 20 SF QQO 1 00 52 45 54 52 59 *200=1 2。。.RETRY 































Q480 21 20 2D 2D 2D 20 5Q 55 5 48 20 3Q 20 4F 52 20 ! --- PUSH Q OR 








0Q490 さく 1 20 2D 20 2D 20 Q0 5 1 一 - ,Z 











"83 年 12 月 号 FM-7/8 将棋 対局 に 手合 割 の ②LOADM バフ ァイル ネー ム ”, 一 HI1D00 MK 参 考 文 献 
機能 を 加え まし た の で 発表 させ て いた だ きま ・ メ イン ・ プ ログ ラム * 将 棋 千 帳 ” 日 本 将棋 連 明 
す . ③LOADM・ $4D00-$59FF 
マイ コン で の 将棋 対局 は ,、 まだ レベ ル が 低 ④SAVEWM SHOGI" , 和 を H1000,&H59FF, & 
く , 負け た 人 は 少な いと 思い ます . そこ で , H3300 と し て 完成 で す . プロ グラ ム ・ エ リア と 
現 段階 で な ん と か 訂 角 に 勝負 で き な い か と 思 スタ ー ト ・ ア ドレ ス が 変わ っ て いる の で 注意 
い 考 えつ いた の が この プロ グラ ム で す . し て くだ さい 。 
プロ グラ ム は , デー タ の うち $1200-$13CD, 資料 に は 5 段差 まで し か な か っ た の で 6 段 
メイ ン ・ プ ログ ラム , サブ プ プ ログ ラム を それ 級 差 か ら は 適 則 に つく り ま し た . 
ぞ れ $200 ず つ 手 前 に ずら し た の で 変更 前 の また , 駒 を 落と し た 側が 先手 で す . 
プロ グラ ム か ら $1200 一 $34FF と $4D00 一 $59 合 害 と ロレ ルー レル レア ペ 
FF を セー ブ し て お いて くだ さい . 次 に メイ ン 0 段 ( 級 ) 基 平手 7 段 ( 級 ) 差 4 枚 沙 
プロ グラ ム を リス ト 通 り 変 更 し て コン パイ ル ht ME 0 2 
上 ss 失 の 2 段 ( 級 ) 基 角 落 9 段 ( 級 ) 碁 6 枚 落 B 9 
US 1 < っ 人 の 3 自 ( 示 ) 飛 座 。 10 段 ( 締 7 覆 和 0 
リモ セッ ト の 後 。 以下 の 圭 順 で ロー ド し ます . 4 段 ( 級 ) 差 飛 左 11 段 ( 級 ) 基 8 枚 深 
①LOADM パフ ァイル ネー ム ?。, 一 &&H200 5 段 ( 級 ) 碁 飛 角 落 12 段 ( 級 ) 碁 9 枚 沙 
$1200-$34FF 6 段 ( 級 ) 其 3 枚 秒 13 段 ( 級 ) 差 10 枚 落 

















ーーー 一 陸中 > 人 送 に ーーー ニー ーーーーー ニ ーー ニー | Nm ヶ v 上 上 yN 友 AAOOOE に SOON 0 DU ヶ RI 








さ 6 さ の" BN= エ エ +JJ ミド = ニ H1TGBH(PEEK(KDQTA) iKDATA=KDATR+1* 1 の の "GUBGYG=$ 1 2 の 69 

IF K=19 THEN IF GUTU L さ 3679 ミ FI さ 364 の 9 "BUSUB し さ 499 
さ 6 さ 1 "IF K=1 THEN IF TERTI>= さ THEN BUTOU し さ 659iFIs 15 の 962 *PRINT " ショ ウキ ^ ヲ ィ キョ フ Ver 2.1 by MaX &。 NISH 
FI 0 INO" 。/。/ 
さ 632 : TF に K=2 THEN IF TEAT=2 UR TEAI>=5 THEN GOTO 61G1 の O "FOUR 1=O TO 5 さ 』PUKE 659 の O+ 1 。PEEK($19G9+I)s 
L さ 65 の FT エミ F エ NEXT 
さ 6 さ さ . ” IF KK=6 THEN IF ((TEAI=1 UR TEAI=4 DUR TEAI= 6192O "FOR 1=G TOU 15』POUKE *$5B49+I。PEEK (1949+1)』 
6) RND BN=111)UR TEAI>=7 THEN BUTU し L3659sFTiFI NEXT 
さ 634 "ITF K=5 THEN IF(TEAI=B AND BN=112) ロ R TEAI>= 6195O "人 Q= ニ IX16+JIPUKE $ ら 5D46+a。 PEEK (1 の 5 の O+ ) 
9 THEN BOTH L さ 659sFIsFI 6197G "FOR 1= ら TO 193PUKE $ ま SDEB+1 , PEEK ( 生 19FG+I)* 
さ 635 "IF K=4 THEN IF(TERI=19 QND BN=11 さ ) OR TEAI> NEXT 
=11 THEN GUTU L さ 659』F エ TiFI ら 6111 の 9 "POKE 6 さ の 4+1 。PEEK( 事 111G+1 ) 
さ 636 "IF K= さ THEN IF(TERI=12 QND BN=114) ロ R TEAI> 611 ヨ GO "FUR 1=G TO 59iPDUKE ま 6929+ IT 。PEEK( 生 1169+1)s 
=1 さ THEN BOT し さ 6593FIsF エ I NEXT 
さ 65 の 9 "し さら 65 の 3 ドニ に +1 ロ * BN=142ーBNI BUSUB し さ 499 61199 "FUR 1T=G TO 45kPUKE 6969+1 。PEEK( あ 11O+I)5 
1599 さ "PRINT "テア イ (@ー1 さ ) "3 TEAI=INPUTi IF TERI く =9 NEXT 

THEN PRTNT プッ や フグ oe 9 ノノ ェ ムン ト コ ド テ 2 "CH= 
INPUTsFI 
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測 計算 


そろ そろ マン ネリ 化し て きた と ころ で , 仕事 に 使え る プ 
ログ ラム を 作ろ うと 思い , 吉 要 予測 する プロ グラ ム を 作り 
に 間 に 

人 口 , 事務 量 , 物理 実験 な どの 実験 観測 値 を 時 系 列 的 に 
分 析 し , 4 種類 の 方 程 式 に あて は め る こと に より , 将来 の 
値 を 予測 する プロ グラ ム で す . 

o pm =ー 
プロ グラ ム の 説明 

プロ グラ ム は すべ て BASIC で 記述 し て あり , 他 の 機種 へ 
の 移植 も 容易 に で きま す . FM は , 算術 計算 の 精度 が 小数 点 
以下 6 桁 上 以降 1 は 精度 が 悪く な る よう で す が , 実用 上 は 問 
題 は な いと 思い ます (FM の 関数 の 演算 は , 単 精度 で 計算 し 
て いる た だ ため .。 だ ただし, プロ グラ ム 中 の 変数 は すべ て 倍 精 度 
Ke 

プロ グラ ム は メニ ュー 方 式 (画面 で 指示 ) と し て お り 
漢字 ROM を 実装 し て いる と き は 画面 の み 漢字 表示 し , 実装 
し で いな いと き は み カナ で 表示 も ます 、 た だ ただ じ 。 ジ シリ ンタ 
の 印字 は , 9 か も 漢字 を 使う と , 印字 
速度 が 極端 に 遅く な り 実 用 に な いた だ ため, カナ 文字 で 印 
字 す る こと に し まし だ た 。 

子 測 で きる 方 程 式 は , 直線 指数 曲線 、 対数 曲線 お よび 
べき 乗 曲線 の 4 種類 で す . 子 測 す る 式 を 選択 し た 後 , デー 
タ 入力 指示 終了 で 方 程 式 を 求め 、 その 後 の 変数 と の 入力 で 
子 測 結果 を 出力 し ます . 

本 プロ グラ ム で は , 得 ら れ た 方 程 式 が 入力 デー タ に どの 
程度 一 致し て いる か , わか る よう に 決定 指数 (R2 で 表示 ) 

も 計算 し , 子 測 式 の あて は め が 適 合 し て いる か どう か 判断 
の 参考 に な る よう に し て いま す . 

プロ グラ ム ・ リ スト の 説明 を 表 1。 2 に 示す の で , 使い 

に くい と 思う 人 は 改造 し て , 使っ て くだ さい . 


操作 方 法 


プロ グラ ム を RUN さ せる と , プリ ンタ に 出力 する か 聞い 


て くる の で や まだ は “N で 答え て 《 だ さい つぎ に 。 


漢字 ROM を 実装 し て いる か 聞い て くる の で , これ に も “Y? 
まだ た は“N” を 入力 し ます . 

これ で , 準備 OK で す . メニ ュー 画面 ( 図 1) が 表示 され 
る の で , 予測 する 式 の 番号 を 入力 し て くだ さい . あと は , 


回 帰 計算 を BASIC で 回 帰 計算 を BASIC で 





ブフ ログラム 


園 り G1INE 





図 1 (漢字 ROM 実 装 時 ) の タイ トル 画像 





ルネ ポポ ネネ ポポ 予測 計算 プ ログ ? ム *#% ポ ※% 


3 抽 負 4 明 の 稚 を AL て At 
1・… 赴 軒 2 … 撤 骨 


3 " 板 衣 4 べき 東 隊 
red 缶 。 











画面 の 指示 に 従い 予測 する デー タ を 入力 し ,、 デー タ が な く 
な っ た ら x* の 値 と し て “9999” を 入力 し ます . “9999” を 入 
力 する と , 方 程 式 を 計算 し て 画面 に 表示 (プリ ンタ に 出力 
指定 し た と き は , 印刷 し ます ) し , 子 測 デー タ の 入力 待ち に 
な り ま す . 

子 測 デ ー タ の 入力 (> の 値 ) を する と 予測 値 を 計算 し , 計 
算 結 果 を CRT に 表示 (プリ ンタ に 出力 指定 し た と き は ,x の 
値 と 予測 結果 を 印字 し ます ) し ます . 了 予測 デー タ が な く な 
っ た と き は , の 値 に “9999” を 入力 す 人 と , メニ ュー 画面 
を 表示 し , 次 の 子 測 デー タ の 入力 が 可能 に な り ま す . 
実行 し た と き の プ リン ト ・ ア ウト を 図 2 に 示す の で , 自 
生 人 24 ・ リ スト を 入力 し た と き は ,。 テス ト ・ デ ー 

て 結果 を 比較 すれ ば , 入力 し た プロ グラ ム が 正常 か 
う うぅ か わか る と 思い ます . 


終わ り に 


以上 で 本 プロ グラ ム の 説明 は 終わ り ま す が , x+ お よび ッ に 
*0” を 入力 する 0 *Division By Zero" の エラ ー に な る の 
で ,。 入力 デー タ に “0” が ある と き は , * の 値 を 0 以外 に 変 
換 ( 例 :ー2, 一 1.0,1.2.3 つ 1.2.8.4.5,。6) し た 
後 、 デー タ を 入力 し て くだ さい . 

最後 に . この プロ グラ ム が 少し で も , 仕事 の 役 に た て ば 
率い で す . 
参考 文献 
1 ) EF-BASIC 文 法 書 
2 ) YHP モ デル 25P プロ グラ ムラ イブ ラリ ー 
3 ) パコ ンピュータ マネ ジメント サイ エン スハ ンド プ ブック < : 
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1.760 さ 12 さ き 4 ヨ 9BO99 * メ + (<: 





OOQOoO 
55. 0Q000Q0QO 





ーー 





・9906662692890 フ ミ 1 


・7351 1 日 
=1 .5 さ 668Q 
・ さ さ B242 
-1 ミ 904 
・74292 フ 7 





ミッ ー テ "フキ ー 生生 年 本 


4.5000QO 
.QOOQOO 
5.5oQQoQO 
ら 6. OOOQOO 


ーー 


X 


さき さ -QOOQQQO 
4.000Q0QO 
ら 6.Q00QOQO 








_- 素 2 リス ト の 説明 
表 1 変数 の 説明 
数 の 計算 ) に ジャ ンプ 
キー 入力 変数 予測 式 の 画面 出力 お よび プリ ンタ に 出力 
0 : プリ ンタ な し 1: プリ ンタ あり 予測 デー タ の 入力 , 予測 の 計算 お よび 出力 
0 : 漢字 ROM な し 1 : 漢字 ROM あ り 初期 画面 に 
一 次 式 の 定数 指数 曲線 の 処理 ルー チン 
一 次 式 の 定数 漢字 ROM 実 壮 , プリ ンタ の 有無 の 処理 ルー 
一 次 式 の 決定 係数 チン 
予測 デー タ 画面 家 示 ルー チン 
予測 デー タ サ プ ル ー チ ン (1500 一 1730…… デ ー タ 入力 
指数 曲線 の 定数 ルー チン , 予測 式 へ て の あて は め お よ び 決 定 
指数 曲線 の 定数 。。 | 係数 の 計算 に ジャ ンプ ) 
指数 曲線 の 決定 定数 _650- 700 予測 式 の 画面 出力 お よび プリ ンタ 出力 
対数 曲線 の 定数 。 710- 860 | 予測 デー タ の 入力 予測 の 計算 お よび 出力 
対数 曲線 の 定数 870- 880 初期 画面 に 
対数 曲線 の 決定 定数 890-1180 対数 曲線 の 処理 ルー チン 
べき 乗 曲線 の 定数 890- 910 | 漢字 ROM 実 凌 . プ リン タ の 有無 の 判断 ルー 
べき 乗 曲線 の 定数 ID チン 
べき 乗 曲線 の 決定 定数 920 一 930 画面 表示 ルー チン 
X キ の 累積 値 940 | サブ ルーチン (1500 一 1730…… デ ー タ 入力 
X キ の 2 乗 の 累積 値 : ルー チン , 予測 式 へ の あて は め お よ び 決 定 
Y# の 累積 値 NN 係数 の 計算 ) へ ジャ ンプ 
X# XY 后 の 秋 積 値 950 一 1000 予測 式 の 画面 へ の 出力 お よび プリ ンタ 出力 
Y# の 2 乗 の 累積 値 1010-1160 予測 デー タ の 入力 予測 の 計算 お よび 出力 
X キ Xlog(Y 寺 ) の 累積 値 1170 一 1180 初期 画面 に 
log(Y#) の 累積 値 1190 一 1480 べき 乗 曲線 の 処理 ルー チン 
log(Y キ ) の 2 乗 の 累積 値 1190 一 1210 漢字 ROM 実 装 . プリ ンタ の 有無 の 判断 ルー 
Y 半 Xlog(X#) の 累積 値 チン 
log(X 半 ) の 累積 値 1220 一 1230 画面 表示 ルー チン 
log(X# ) の 2 乗 の 累積 値 1240 サ プ ブル ー チ ン (1500 一 1730…… デ ー タ 入力 
log(X#) Xlog(Y#) の 累積 値 ルー チン , 予測 式 へ の 当て は め お よ び 決 定 
デー タ の 数 係数 の 計算 ) に ジャ ンプ 
還 1250 一 1300 予測 式 の 画面 出力 お よび プリ ンタ 出力 
表 2 リス ト の 説明 1810-1460 | 予測 デー タ の 入力 , 予 測 の 計算 お よび 出力 
10- 90 REM 文 1470 一 1480 初期 画面 へ 
100- 120 プリ ンタ の 有無 の 処理 1490 終了 女 理 
130- 150 漠 字 の 有無 の 処理 1500 一 1730 デー タ 入 カル ー チ ン , 予測 式 へ の 当て は め お 
160- 170 漢字 ROM を 実装 し て いな いと き の , 式 選択 メ よび 決定 係数 の 計算 サ プ ル ー チ ン 
人 ニュ ー 面 面 1500 一 1550 漢字 ROM の 有無 , プ リン タ の 有無 の 判断 ん 
180- 240 式 選択 後 の 処理 選択 ルー チン 2 
250- 280 漢字 ROM を 実装 し て いる と き の 式 選択 メニ ュ 1560 一 1610 プリ ンタ が ある と き の デ ー タ 入力 ルー チン 
( ー 画 面 1620 一 1630 各種 デー タ の 累積 値 の 計算 ルー チン 
290- 580 一 次 式 の 負 理 ルー チン 1640 一 1670 プリ ンタ が な いと き の デ ー タ 入 カ ルー チン 
、 290- ai0 漢字 ROM 実 装 , プリ ンタ の 有無 の 判断 ルー 16801690 | 友 種 デー タ の 系 積 値 の 計算 ルー チン 
( 1 チン 1700 一 次 式 の 計算 
320- 330 画面 家 示 ル ー チ ン 1710 指数 曲線 の 計算 
340 | サ プ ル ー チ ン (1500 一 1730… デー タ 入 力 ル 1720 対数 曲線 の 計算 
ー チ ン , 予測 式 へ の あて は め お よ び 決 定 係 1730 べき 乗 曲線 の 計算 
2 予測 計算 例 
ヨプ ゼ = ニャ キー 半年 年 也 X b6 
0.72O000 2.160000 
党 1. さ 10o00O 1.61000O 
1.950QO0O 1.160000 
2.58QQQOQO 0.85OQOQOO 
さ .140QOO 0.50000Q 
9999.000QQ0Q 
Y = さき .4450B1472 さ 96851 * “ご (一 。.5B20248764581503 * X) 
FR“ コニー .980 さ 2592273224 1 アフ 


・2510 さ 5 
・18765O 
・140270 
・104852 


こえ ここ <】 


ター イー ウゴ ロゴ ーー 


Nd 


1.50OQQO 
9. さ OOQQQO 
3・400000 


内 
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10.0OOOOQO 45. BOOQQO 
60. 10000Q0 


=ー47.0207 ミ 1 1 ヨ 8751196 + ( 41. さ 9420920761625 ) * LOG X 


・?79H279748480709 


59 . 15 さ さ 26 
62 .22096 さ 
65. 076 日 7 フ 
67. 74 日 さ BZ 
70.257894 


T 当 ウー イキ 生生 





&O 


2 予測 計算 例 












7/ 間 凍 は まさ さよ さよ スエ ユエ ささ エエ メメ テ メ エ エメ キテ マエ マ コ 








29 ※ 3 
さ の の ヨ ソ ク ケイ サン フロ 2" ラム (FM- 日 ) # 
4 の 
5 の を 19 ミ /19/1 の 
6 の 才 
7 の '# by JG1INE 攻 
B の 9 '% 革 





に // 間 昌 さよ エ よ こさ エメ エ エエ エエ エエ エエ テキ エ エエ エメ エエ テコ 

1 の 9 CLS:MIDTHB の s CULUR 4:PRINT "フッ リフター ニー ジュリ リョ の 
マス カ ? (Y gr N)" 

1 1 の に K ま =INKEY$ も : TF K ま = リリ THEN 11 の 

12 の IF K$= リ "YU OUR K ま も = リッ y" THEN DPEN"OU" 。 揚 1"LPT の Os " 

PR=1 

1 さり PRINT "カフ トー RUM ラー ミド リリ ツウ ジテ イマ スカ ? (Y_ or N)" 
14 の KK ま = ニ INKEY$ も 』TF KK ま = リリ! THEN 14 の 「 

15 の ITF K$= リ YU DR K$="y" THEN KR=1: BUTD 25 の 

16 の 9 CLS: SYMBOL(16,1 の 9) "XXXX% ヨリ ソリ ワケ イサ フフ 2 ロ 
フラ 2 XX%%※% り 。 242。4: SYMBOL (16。 さ 4 ) 。 "ヨリ ソフ ケイ サー ヌル ミキ 
ノ ハフ コ ^ リウ ラ ニュ ウリ ョ フ シテ フタ "サイ リ 1 。5。 1 。 YNMBOL(48,72 
) 。 リ 1・・・ チ ョ フワ セン フリ 。 22: SYMBOL ( さ 2 の 。 72) "2・・・ シ スウ キョ フワ セ フ リ 。 

2。2 

17 の SYMBOL(4 昌 1 12) 。" さ ・・・9 ィ スウ キョ フ セ フ " 。 2 。 つ : SYMBOL (さろ 2 

の 。112) 。"4・・・ の キジ" ョ ウキ ョ フ セ フ リ " 。 2 2: SYMBOL (48 , 152) 。 "5・ 
・・ ジ コウ リョ ウリ 22 

18 の K$=INKEY$= ITF K ま = リリ! THEN 1 の 

19 の 1F に Kb= THEN 299 

2 の の TF に = THEN 59 の 

21 の IF ド K ま THEN 89 の 

22 の TF に 民 まま ="4" THEN 119 の 

2 さ 3 の 1TF ド K 和 ま = リ 5! THEN 149 の 

324 の GUTO 18 の 

25 の CLS:PRINTG( さ 2 。 19) 。%&H2176。&H2176 。&H2176,&H21 フ 
6。%&H2176」&H2176。&H2176 ,SH2176 。&H2120 ,。&H4D さ D , %H21 
2 の , 人 H422C ,&H2120 , %/H さ 757 ,。 4H2 1 2 の , 4HSB さ B 。 4H2 1 2 の , SH2 

557 , H2 1 2 の , &H256D 。 &H2 1 2 , /H25 さ の , &H21 2 の 。 &H2569 。 &H 
21 2 。 &H2560 。 H2 12 の 。&H2176。&H2176」&H2176,&H2176。& 

H2176 

26 の PRINTG(528 。 1 の ) 。&H2176。&H2176」&H2176:FRINTG(4 

日 ,44) ,&H4D さ D , &H422C 」&H さ 757 。 &H さ ESE 。 kH24 さ 9 。 &H246 日 
%&H さ 364 」%H4 の 7E 。 SH244E 。 %H4B56 , &H さ 966 。 4H2472 ,&H467E 
ヵ %&H4E4F , &H24 さ フ 。&H2446 。&H さ 2 さ C 。 4H2435 。 4H2424 

27 の 9 PRINTG(4B。72) ,&H2 さ さ 1 。S4H2126 」&H2126,&H2126 。&H 

443E 。 SH2 12 の , &H21 2 の 。 &H4 の 7E: PRINTG( さ 2 の 。 72) 。 4H2 さ さ 2 。 

&H2126。&H2126。&H2126。 SHSB5B 。 4H さ F74 。 SH さ 64 人 。 &H4 の 7E 
: PRINTG(4 昌 112) 。&H2 さ ささ 。 &H2126 。 SH2126 。 8&H2126 。&H42 
5 の , &HSF74 。 &&HS64a 。 &H497E 

2 の PRINTG (2 の 」 112) ,&H23 さ 4 」&H2126,&H2126 。&H2126。 
&H2459 。&H242D 。 4HSE68 。 &zH さ 640 。&H497E ょ PRINTG(4 昌 152 
) 。&&H2 さ さら 。 4H2126 。&H2126 。 8H2 126 。&HSD2A 。 &H2 120 。 &H21 
2 の , &H4E さ Es BU TO 18 

29 の CLS: IF PR=1ANDRKR=1 THEN PRINT 提 1:PRINT 韻 1:FR 
INT 提 1:PRINT 拉 1 CHR$(&HE) 』 "XX チョ セー カイ キ 
MX"sBUT ロ ささ の 

さ の の IF FR=1ANDKR= の THEN PRINT 本 1:PRINT 柱 1:PRINT 

韻 1:PRINT 提 1 CHR$(&HE ) 』 "区 チョ セー カイ キ 光 基 
XsSYMBOUL(16。 1 の) 。! 共 光 チヨ セー カイ キキ 光り 

2,2:G0 TU さ 49 

さ 1 の IF PR= の ANDKR=1 THEN GU TO ささ の 

さき 2 の SYMEDL(16,1 の ) 。 "XX チョ フワ セ フカ イキ XX りつ 
ぅ 2 BU TU さ 4 の 

ささ の CLS:PRINTG(4 日 。 16) 』&H21 フ 6 。SH2176 』&H21 ブ 6 。&H217 
6,H21 プ 6, SH2176。&H2176 。&H21 フ 6 。&H2129 。&H44SE 。 &H21 
2 の , <H497E 。 &H2 1 2 の 。 SH さ 27 さ 。 H2 1 2 の 。 4H さ 522 。 &kH2 1 2 の 。 &H2 
176。&H2176』&H2176。%&H2176。&H2176。&H2176。&H2176。%H 
2176 

さ 4 の BUSUE 15 の の 

さ 5 の 9 PRINT:PRINT:FRINT"Y 
+ ("ssiPRINT 人 の 失 ::PRINT")" 






















































iPRINT 1 提 』sPRINT"X X 












さき 6 の PRINT:PRTNT:PRINT "R^2=" ュ :FRINT R1 本 3:PRTNT:FRTI 


さ Z7 の IF FR= の THEN 5 の 9 

さ 38 の PRINT #1:PRINT 失 1。" 
さ 9 の PRINT 失 1:PRINT 1。"Y = 
間 1。"% X + ("!ssPRINT 揚 1。A 失 ssPRINT 揚 1.9)『" 

4 の の PRINT #1:PRINT 拉 1 "RC2 ニ "siFRINT 提 1。RR1 提 

41 の PRINT 揚 1:PRINT 提 1:PRINT 揚 1 。EHR ま (SHE ) 』 "ーーーーーー 
で ーー 当 よ バグ 2 トー ニー ニー ニー ピン "PRTNT 拉 1:FPRTNT 音 1』TAB(15 
)"X"s:PRINT 拉 1』TAB( さ 5) "YY" 

42 の IF 民 | 
4 さ の PRINT: PRINT: PRINT:PRINT "ヨリ ウス メル テーー グ ヲ ニュ ウリ ョ の 
シテ 29" サイ (END : X= ニ 9999) ": PRINT:FRINT:GU TO 45 の 

44 の PRINTsPFRINT:PRINT:PRINT: PRINTG( さ 2 。168) ,%H4D さ 
D ,&H422C , &H24 さ 9 。 4H246B 。 SH2547 , &H215D 。 SH25 さ F 。 %H24 
72,&H467E ,&H4E4F ,&H24 さ 7 。 SH2446 。&HS2 さ C 。 4H24 さ 5 。 NH2 
424:PRINT:PRINT" (END: X=9999) "sPRINT 

45 の INPUT "X リョ X 揚 

46 の IF X 失 =9999 THEN 57 の 

47 の PRINT 井 1 TE(7) 』 :PRTNT 提 1。USTNG " 拉 提 拉 拉 半井 。 提 提 間 提 
章 提 ミュ X 提 3 

4 Y 提 = 人 1 提 %X 韻 + 人 の 哲 sPRINT TAB(29) "Y = リュ Y 提 iPRINT 柱 
1 TAB(27) ::PRTINT 提 1 USTNG "" 拉 拉 提 提 提 。 間 # 拉 提 提 提 " ュ Y 提 

49 の BOTD 459 

5 の の IF KR=1 THEN 52 

51 の PRINTsPRINT:PRINT : PRINT "ヨリ ソフ メル テ "ー ダ ヲ ニュ ウリ ョ の 
シテ 29" サイ (END : X ニ 9999) " sPRINT:PRINT:GH TO 5 さ 3 の 

529 PRINT:FRINT:FRINT:PRINT:PRINTG( さ 2。 16 日 ) ,。&H4D さ 
D 。%H422C ,&H24 さ 9 。 &H246E 。 &H2547 ,&H215D , 4H25 さ F 。 4H24 
72 。&H467E 。 <H4E4F SH24 さ 7 。 SH2446 。%H さ 2 さ C 。 SH24 さ 5 。kH2 
424:FRINT:FRINT" (END : X=9999) " s PRINT 

5 さ の の INPUT "X 
54 の IF X 提 =9999 THEN 57g 

55 の Y 提 1 章 *X 提 の 井 :PRTINT TAB(29) "Y = リュ Y 揚 

56g GUTO 5 さ の 

57 の IF KR=1 THEN 25g 

589 BUT 169 

59 の CLS: IF PR=1QNDKR=1 THEN PRINT 失 1:PRINT 1:PR 
INT 1:PRINT 拉 1 。CHR 和 (SHE ) 』 リー ジス ズ ウ カ イキ 
Ms BOT 6 さ の 

6 の の IF FR=1ANDKR= THEN FRINT 1:PRINT 拉 1:PRINT 提 
1: PRINT 提 1 。CHR 生 (&HE ) 』 オー ジス ズ ウ カ イキ 光 革 天光 半 半 
XsSYMBDL (16』1 の ) 。"% 光 攻 光 夫 マウ カイ ゴキ 光り の 
ヵ 2: BU TO 649 

ら 1 の IF PR= の ANDKR=1 THEN GO TO 6 さ 3 の 

62 の SYMEOUL(16,1 の ) 。" XX えー スウ カイ キ 光り の 
ぅ 2:BO TO 64 の 

6 さ の CLS: PRINT@(48。16) 。%&H2176 』&H2176 。&H2176 。&H217 

ら 6。&H2176」&H2176。&H2176 」&H2176 。 &H21 2 の 。 4HSB5 。 &H21 
2 の 。 4HSF74 。&H2120 。 SH さ 27 さ 。&H2120 。 SH さ 522 。 &H2120 。 &H2 
176。&H2176。&H2176」&H2176。&H2176」S&H2176 。&H2176。&H 
2176 

64 の GUSUB 15 の の 

65 の PRINT: PRINT:PRINT"Y = リュ gsPRINT 2tsgPRINT"X 呈 
^ ("ssPRINT 3 手 』:PRINT"X X)" 

66 の 9 PRINT:PRINT:PRINT "RT2="』:PRINT R2 失 :PRINT:PRI 










: PRINT 揚 1。 人 1 間 isPRINT 








67 の IF PR= の THEN の の 







PRINT 音 1:PRINT 提 1."Y = 
間 1。 リ % 呈 の ("agPRTNT 揚 1。 谷 くさ 拉 RINT 間 1。"% X) 
7 の の PRINT 失 1:PRINT 1。 "RA2 PRINT 音 1』R2 柱 
71 の PRINT 揚 1:PRINT 拉 1:PRINT 丘 1 。EHR も (&HE ) 』 "ーーーーーー 
ーーー 9! の チ RINT 1:PRINT 拉 1。TAB(15 
)"X り jsPRINT 拉 1。TAB( さ 5) "Y 
72 の IF KR=1 THEN 74 の 


RINT 揚 1.2 析 EPRINT 














7 さ の PRINT:PRINT: PRINT : PRTNT " ヨ ソ フ スル テー ヲ ニュ ウリ ョ フワ 





&O 


計算 プロ グラ ム リス ト 








シテ ウ 27" サ # (END: X= ニ 9999) "sPRINT:PRINT: GU TO 75@ 

749 PRINT:FRINT:PRINT: PRINT: PRINT@(32。168) ,&H4D さ 
D ,&H422C 。&H24 さ 9 。 &H246B 。 4H2547 。 SH215D 。 &H25 さ F , 4H24 
7 。%&H467E 。&H4E4F 。%zH24 さ 7 。&H2446 。&H さ 2 さ C ビ 。 8zH24 さ 5 。 &H2 
424:FRINT:PRINT" (END : X=9999) "=PRINT 

759 INPUT "X リュ メ 柱 

フ 76 の TF X 提 = ワ 999 THEN 7 

77 の PRINT #1 TAB(7) 』:PRTINT 持 1 USINE "" 杖 電電 。 拉 音韻 
韻 井 " ミ X 提 』 

7 の Y#=n2 提 *(EXP (人 3 提 #X 韻 ) ) =FRKINT TAE(2g) "Y = リュ Y 持 = 
PRINT 揚 1。TAE(27) 』:PRTNT 間 1 USING "' 韻 提 韻 韻 電 。 提 提 提 提 提 " 
ョ Y 持 

7 BUTO 75g 

B の の ITF KR=1 THEN 日 2g 

B1 の PRINT:PRINT:PRINT: PR INT "ヨリ ソフ スル テ "ー ヲ ニュ ウリ ョ ワ 

ョ シテ 29" サイ (END : X=9999) ": PRINT:PRINT: GO TU B ミ の 

B29 PRINT:FRINT:FRINT: PRINT:PRINTe( さ 2。 168) ,SH4D さ 
D ,%H422C ,&H24 さ 9 。&H246B 。 4H2547 。&H215D 。 &kH25 さ F 。 &H24 
72 。SH467E 。&H4E4F 。&H24 さ 7 。&H2446 。&H さ 2 さ C 。 &H24 さ 5 。 SH2 
424:PRINT:PRINT" (END: X=9999) "=PRINT 





B さ の INFPUT "X 6 
8B4 の TIF X##=9999 THEN 日 79 
5 の Y 村 = 人 N2 韻 (EXP (人 Q さ 提 XX 提 ) ) :PRTNT TAB(29) "Y = リュ Y 拉 


B6 の GOTOU 8S の 

7 の IF ERR=1 THEN 25g 

BB の GOTO 169 

9 の CLS: IF PR=1QNDKR=1 THEN PRINT 1:PRINT 音 1:PR 
TNT 音 1sPRINT 揚 1 CHR ま (SHE ) 』 "XXXXXXXXX ワイ ズ ウ カ イキ 
XX%※%% り "= BUTU 9 さ の 

9 の 9 IF FR=1ANDKR= の THEN PRINT 失 1:FRINT 桂 1:』PRINT 

井 1:PRINT 韻 1 。CHR 和 (SHE ) 。 XXXKX※※ ワイ ズ ウ カ イキ XX 
XXXU: SYMEBHL(16』 1 の) 。 "XX えー ウイ コウ カイ ゴキ 基 基 類 
リ "22:BD TO 949 

91 の IF PR= の ANDKR=1 THEN GU TO 9 さ の 

72 の SYMBOL(16」1 の ) 。" XXXXXXX メ えー ワイズ ウ カイ キ XP 
2,2:BO TD 949 

93 の CLS:FRINTG(4 日 。16) 。&H2176 。&H2176 。&H2176 。 8&H217 
ら 6。%&H2176」&H2176。&H2176。&H2176。&H212 の 。&H425 の 。 &H21 
2 の, %HSF74 。&H2 1 20 。 &H さ 2 フミ 。 H2 1 2 の 。 &H さ 522 。 &H21 2 。 SH2 
176。%H2176。&H2176 。&H2176 。&H2176 。&H2176。&H2176。%&H 
2176 

94 の GUSUE 15 の の 





25 の 9 PRINT:FRINT:PRINT"Y = リュ iPRINT 4#s EPRKINT"+ ( 
"iiFRINT 5 失 3sPRINT") * LOG X" 

969 PRINT:FRINT:PRINT "RT2= リ 』:PRINT R さ #:PRINT: PRI 
NT 


97 の IF PR=g THEN 11 の 9 
98 の PRINT 提 1:PRTNT 韻 1 リーーーー 






99 の PRINT #1:PRINT 半 1。"Y = リ :EPRINT 間 1。 人 4 音 s PRINT 
幕 1 リキ ("iiPRINT 音 1。 人 5 社 』iPRINT #1。") * LOG X" 

1 の の の PRINT #1:PRINT ##1。"RC2 ニ "3 EPRTNT 韻 1」R さ 拉 

1 の 1 の PRINT ##1:PRINT 1:PRINT 音 1 CHR$(&HE) "ーーーーー 
ーーーー ヨ ソウ フチ テ : PRTNT 昔 1:PRINT 拉 1」TAB(1 
5) "X"j:PRINT 1。TAB( さ 5) "Y" 

1 の 2 の IF KR=1 THEN 1 の 4 の 

1 の さ の PRINT:PRINT:PRINT:PRTNT" ヨ ソフ ァ ル テー9 ヲ ニュ ウリ ョ フ 
ジテ ワウ 7* サ f (END: X=9999 ) ":FRINT: PRINT: GBH TO 105g 

1 の 4 の PRINT:FRINT:FRINT:PRINT:PRINT@ ( さ 2」168) ,&H4D 
3D ,&H422C 」&H24 さ 9 。 SH246B 。&H2547 。&H215D 。 H25 さ F 。 &H2 
472 ,&H467E , SH4E4F , &H24 さ 7 。 SH2446 」&H さ 2 さ C 。 &H24 さ 5 。 &H 
2424:PRINT:PRINT" (END: X=9999) ":PRTNT 

195 の 9 INFUT "X "3 X 提 

1 の 6 の IF X#=9999 THEN 1170 

1 の 7 の FRINT #1 TAB(7) ::PRINT 装 1 USTNG " 拓 提 。 提 提 
章 提 章 "』X 提 

1 の B の Y#= 人 4#+ 人 LUDG(X##) =FRINT TAB(2O) "Y = リュ Y 拉 : 下 
RINT #1。TAB(27) 』:PRINT 間 1 ,UBTNG "半音 。 提 電電 
Y# 

1 の 9 の BUTD 1959 

11 の の IF RR=1 THEN 112 の 

111 の 9 PRINT:FRINT:PRINT: PRINT" ヨ ソフ メル テバ ー グ ヲ ニュ ウリ ョ フ 
ジテ の" サイ (END: X=9999) ":PRINT:PRTNT: GU TO 11 ミ の 
1129 PRINT:FRINT:FRINT:PRINT:FRINTe (32 。16) ,&H4D 
さ D 。&H422C 。 SH24 さ 9 」 H246E 』 kH2547  kH215D 。 H25 さ F 。 H2 
472 。&H467E , SH4E4F 。&H24 さ 7 。H2446 。 SH さ 23C 。 4H24 さ 5 H 
2424:PRINT:PRINT" (END: X=9999) " ょ PRINT 














113 の INPUT "X "5 X 提 
114 の IF X 提 =9999 THEN 117 の 
1 1 の Y 提 =Q 人 4 韻 + 千 LUG(X 提 ) :PRINT TaE(2 の ) "YY ニ リ ュ Y 柱 


116@ BUT 11 さ の @ 

117 の IF KR=1 THEN 25 の 

118 の BTO 16@ 

119 の 9 CLS: IF PR=1QANDKR=1 THEN PRINT 1:PRINT 音 1: ピ 

RINT 1:PRINT 拉 1 CHR$ ま (SHE ) 』 リ へ トキ |” ョ ウ カ イキ 
KK"sGBUTO 12 さ の 

12 の 9 IF PR=1QNDKR= THEN PRINT 持 1:PRINT 1:PRINT 
韻 1:PRTNT 提 1 CHR$ も (SHE) 1 の キョウ カイ キ 
区 ※ り = BYMBOL (16』 1 の) 」" 交え へ "キト ヨウ カゴ キ 

XX" 2。2: BU TU 124 の 

121 の IF PR=gQNDER=1 THEN BU TO 123| 

122 の SYMBOL(16」1 の 9) "XXXXX% 基 の " キ ヨ ウ イキ 半 光 基 交 区 涯 
リ "22:BD TO 124 の 

12 さ の CLS:PRINTG(4 昌 16) 。S&H2176 。H2176 。&H2176 。%H2 1 
6」&H2176」&H2176」 SH2176」&H2120 。&H2459 。&H212 。&H2 
42D , &H2 1 2 の , HE68 , 4H2 1 2 の 。 HH さ 2 フミ 。 HI21 2 。 &H さ 22 。 &H 








30 























マ 1 2 の 。%H2176」&H2176 。S4H2176』&H2176。SH2176」&H2176。% 
H2176 

124 の 9 BUSUE 15 の の 

125 の 9 PRINTiPRINTiPRINT"Y = リュ :PRINT 6##ssFRINT"※ 





X や ("ssPRINT 7#』sPRINT 
1269 PRINT:FRINT:FRINT"R 








2= 


:PRINT R4 提 iPRINTFR 








127 の IF PR= の THEN 14 の の 
128 の 9 PRINT 提 1:PRINT 拉 1』"ー 
PRINT #1:PRINT #1。"Y 

CS PRTNT 提 1 内 7 提 RINT 拉 1.9) う 7 

1 さ の 9 PRINT 提 1:PRINT 揚 1 "RT2= PRINT 1 ,R4 揚 

の FRINT 1:PRINT 拉 1:PRINT 揚 1 CHR 員 (SHE ) 』 "ーーーーー 

sFRINT #1:PRINT 拉 1 TB(15 

2 "XsgFRINT 1』TAB( さ 5) "YY" 

のり IF KR=1 THEN 1 さ 49 

1 ささ の PRINT:PRINT:FRINT: PRTNT "ヨリ ソフ スル テ "ー9 ヨ ニュ ウリ ョ フ 
シテ 79" サイ (END: X=9999) "sPRINT:PRINT:GU TO 1 さ 5 の 

1 さ 4 の 9 FRINT:PRINT:PRINT:PRINT:PRINTG(32 。16 日 ) 。&H4D 

さき D ,&H422C 。 <H24 さ 9 」 &zH246H 。 skH2547 , zH215D 。 &H25 さ F 。 %H2 
472 。&H467E 。%&H4E4F 。 &H24 さ 7 。 SH2446 。 SH さ 23C 。 zH24 さ ら 。 

2424:FRINT:FRINT "(END : X=9999) "iPRINT 

の INFUT "X リュ メ 提 

の IF X#=9999 THEN 147 の 

1 さ 7 の PRINT 皇 1 TAE(7) 』:PRINT 提 1 USITNG "' 半 電電 拉 韻 。 措 提 電 
井 提 井 "! ュ X 提 ョ 

1 さり Y 提 人 6 韻 %(X 提 7 韻 ) =FRINT TAB(2 の ) "Y = リュ Y 村 :PRIN 
丁 音 1 。TRB(27) 』:PRINT 提 1 USTNG "" 間 電 提 提 提 間 。 井 提 拉 提 電電 " ュ Y 欄 
1 さ 9 の BOTO 135 の 

14 の の IF KR=1 THEN 142 の 

141 の 9 PRINT:PRINT:PRINT: PRINT " ヨ ソ フ スル テーー9 ヨ ニュ ウリ ョ ウ 
シテ ウタ 9 サイ (END: X ニ 9999) ":PRINT:PRINT:GH TO 14 さ の 
142 の 9 PRINT:PRINT:PRINT: PRINT:PRINTG( さ 2 。16 日 ) 。&H4D 
さ D ,&H422C , &H24 さ 9 ,&H246B 。&H2547 ,&H215D , SH25 さ F 。 &H2 
472」&H467E 。%<H4E4F , <H24 さ ブフ , SH2446 。 %H さ 2 さ ビ 。 SH24 さ 。 %H 
2424:PRINT: PRINT " (END : X= ニ 9999) "iPRINT 

14 さ の INFUT "X 6 

144 の IF X#=9999 THEN 147 の 

145 の Y 提 6 韻 \#(X 提 7 韻 ) sPRINT TAE(2 の ) "YY = リョ Y 提 

1469 GUTO 14 さ 9 

147 り IF KR=1 THEN 25 の 

14 ヨ の BUTO 169 

149 の CLOSE 1:CLSsEND 

15 の の IF KR=1 THEN 1520 

151 の SYMBOL ( さ 2 。 4g) 。" テ ドー ヲ ニュ ウリ ョ フ = ミ テ 29" サ イリ 02425L 
DCATE 4。6:PRINT" (END: X=9999) "BUTO 15 さ の 

152 の 9 PRINT@ ( さ 2 。 49) , SH2547 ,H215D , IH25 さ F ,&H2472 
H467E , <H4E4F , &H24 さ 7 。 &H2446 ,&H さ 2 さ C 。 &H24 さ 5 」&H2424* 
LOUCATE 4』6:PRINT "(END : X=9999) " 

15 さ の = の : 日 本 の : ビニ の : D 韻 の : ビ 韻 三 の : X 提 の :Y 村 = の : QRLY 村 = の =: し 
Y# ニ : LY2 村 三 の : じ L X 提 = の: LX 社 三 の :LX2 本 の: XLY 持 の: N 持 = の 
154 の IF PR= の THEN 164 の 

155 の 1F X 提 =9999 THEN 17 の 9 

156g PRINT 拉 1:PRINT 提 1:PRINT 拉 1。TB(15) "X" siPRIN 
T 幕 1 。TAB( さ 5) "YUgPRINT 掛 1:LUCATE 0 の,8 










RTINT 音 1 。 介 6 提 』:PRTN 





























157 の 9 BEEP: INPUT "X も.】 

15B の PRINT 拉 1。TAEB(7) 』 :PRINT 提 1。USING "' 拉 寺 提 提 村井 林 章 
電視 乾 り 』X 電 3 

159 の 1F X##=9999 THEN 17 の の 

169 の 9 BEEPs INPUT "Y リョ Y 


161 の PRINT 1 TAB(27) 』:PRINT 音 1 USBTNE " 基 拓 持 。 韻 
UP 

162 の 内 守谷 持 X 提 日間 日 持 X 昔 の ェ ビ 章 ピ 昔 キ Y 神 』D 提 D 音 キ X 音 Y 電 提 
ーE 間 +Y## へ 2 ェ 人 NLY 間 ALY 韻 キ X 韻 XLUG (Y 井 ) し LY 韻 し Y 提 +LDG(Y 提 ) :LY 
2 間 LY2 持 +(LDG(Y 昔 ) ) 2』 ビ LX 半 = ビ LX#+Y 欄 LUG (X 韻 ) し XX 柱 
+LDG (X#) :LX2 社 = ニ LX2 六 +(LUG(X 昔 ) ) 2:LXLY#=LXLY#+(LUG( 
X#) ) *(LDB (Y#) ) : N##=N#+1 

16 さ の GU TD 157g 

164 の LUCATE 9,8 


165 の 9 の BEEP: INPUT "X リョ X 欄 
166 の TF X 提 = ワ 9999 THEN 17 の の 
167 の 9 BEEP: INPUT "Y リョ Y 柱 


16 日 の 人柱 仙 提 キ X 井 』 日 柱 日 電柱 …2』 ビ 提 三 ピ 音 Y 韻 』 D 杜 三 D 村 XX 提 XY 提 』E 韻 
ー ピ 提 +Y 提 べつ ェ 人 QLY 音 人 L Y 章 +X 間 LUG(Y 柱 ) :LY 韻 LY 柏 上 LOG(Y 拉 ) =LY 
2 持 =LY2 音 (LUG(Y 柱 ) ) で 2 CLX 柱 = ビ LX 揚 +Y 持 LUG(X 韻 ) =LX 持 =LX 提 
+LUG(X 提 ) = し X2 提 し X2 韻 キ (LUB(X 揚 ) ) 2:LXLY 提 =LXLY 拉 +(LOUG( 
X 提 ) ) (LUG(Y 柱 ) ) 』 N 提 三 N 提 +1 

169 の 9 GO TO 165 の 

17 の の 人 1 提 三 (D 提 一 ( 谷 韻 ※ 選 韻 /N 揚 ) ) / (日 桂 一 ( 人 持つ /N 相 ) ) 』 の ニ じ /N 
章 一 仙 1 提 (谷村 /N 井 ) : 民 1 音 三 (D 村 一 ( 全 村 % 相 /N 昔 ) ) へ 2/( (日 村 一 (内 昔 2/N 
井 ) ) *(E 提 一 ( じ 昔 2/N 失 ) ) ) 

171 の 人 Q さ 本 (ALY 村 一 (内 柏 XLY 電 ) /N 井 ) / (日 ボ 一 ( 谷 則 2) /N 井 ) 』 2 幕 ピ 
XP (LY 后 /N 拓 一 (向井 人 提 ) /N 提 ) : R2 村 =((RLY 提 一 ( 朋 音 LY 募 ) /N 音 ) 2 
) / ((B 提 一 ( 人 Q 提 2) /N 音 )※(LY2 相 一 (LY 幕 2) /N 失 ) ) 

172 の AG 提 =(CLX 間 一 (LX 提 ※ 幕 ) /N 韻 ) /(LX2 相 一 (LX 相 2) /N 揚 ) s 4 
井 ( じ 一 筒井 X 村 ) /N 電 5 民 さ 社 三 (( じ LX 音 一 (LX 電 放電) /N 提 ) 2)/((L 
X2 提 一 (し X 間 べつ) /N 井 ) % (EE 井 一 ( ビ 幕 へ 2) /N 韻 ) ) 

17 さ の 人 7 草 三 (LXLY 一 (LX 章 XLY 堤 ) /N 井 ) /(LX2 提 一 (LX 音 2) /N 昔 )s 
人 6 音 EXP((LY 林 /N 提 ) 一 ( 代 7 提 ※LX 章 ) /N 提 ) :R 人 4 社 三 ((LXLY 村 一 (LX 昔 ※ 
LY 埋 ) /N 昔 ) 2) /((LX2 電 一 (LX 芋 2) /N)(LY2 内 一 (LY 則 2) /N 単 ) 
) 』 RETURN 











FM-/ 


FM- 8 用 の DOS モ ー ド DISK BASIC が 発表 され て いま し 
た が , 改良 を 加え , FM- 7 / 8 両用 の DOS モ ー ド DISK BAS 
IC を 作る プロ グラ ム を 作り まし た . 


特 人 箇 


ALL RAM モ ー ド で ある の で , BASIC の 拡張 , 変更 が 容 
易 . 

@FM-7 の イン ター プリ ンタ を FM- 8 で 走ら せる こと が 可 
能 . この 逆 も 成立 . つまり, サブ CPU に 保存 し な けれ ば , 
マシ ン 語 の コン パチ ビリ ティ ー を 保つ こと が で きる . た 











だ し , ハー ド の 都合 に より , 何 も な い 機 能 は で き な い が , 


SYNTAX ERROR な ど は で な い . 
@⑥FILES を と っ た と き に , 最初 の ファ イル 名 に DOS-7 (DO 
S- 8) と カラ ー で 表示 され る の で , どちら の イン ター プリ 


タク が 入 入っ て いる みか 一 目 有 瞭 然 . 


1) ブ プラ ンク ・ デ ィ ス ケッ ト に , FM-7 (FM-8) の シス テム ・ 
ディ スク の “SYSDSK” と いう プロ グラ ム で , FORMAT 
を か け , BASIC コ ピー を 行なっ て くだ さい . 

2) 本 プロ グラ ム を ロー ド し , EXEC &H6000|2 で 実行 し ま 
す . 

3) さきほど の ディ スケ ッ ト を , ドラ イブ 0 に 入れ て [| キ 
ー を 押し ます . する と , ALL RAM (DOS モ ー ド ) DISK-B 
ASIC の ディ スケ ッ ト が で き あ が り ま す ( な お , 自 動 的 に D 
SKINIO の コマ ンド も 実行 し ます ). 


BASIC の 拡張 ・ 変 更 


1)DOS モ ー ド ・ デ ィ ス ク で プ ブート し て , 何ら か の 方 法 で , 
イン ター プリ タ を 変更 し て くだ さい . 

2) 本 プロ グラ ム を ロー ド し , EXEC&H6000|2| を 実行 し ま 
992 

3)DOS モ ー ド ・ デ ィ ス ク を ドラ イブ 0 に 入れ [ 選 キ ー を 近 し 
ます . する と , 拡張 , 変更 さき れ た BASIC の ディ スケ ッ ト 
が で き あ が り ま す . 











LL RM DISK BRSIC 
作成 ログ ラム 


FM-7 で FM-8 の DISK BASIC を 動か す 





圏 コ ン ピ 





ブログ ラム 
リロ ケー ト の 必要 は な い ど 電 0 ポッシ ベン "ヨッ ジ 同定 の プロ 
グラ ム で す . 必ず 6000(H) 番 地 か ら 入 力 し て くだ さい . 

まず 初め に , DISK-BASIC の 転用 部 分 (FM-7 は $6E00 一, 
FM-8 は $7000 一 が , DISK-BASIC を 起動 し て し まう と, 内 
部 が 書き 変わ っ て し まい ます . そこ で , トラ ッ ク 0 の 15- 
32 セ クタ を トラ ッ ク 2 の 1 セク グ クタ か ね わ も の セク タ に コピ ー し 
ます . 

次 に , BASIC イ ンタ ー プ リタ を $8000 一 SFBFEF ま で すっ 
ぼり 続き の モ クタ に コピ ー 1 その あと , FAT の 初 
期 化 , ディレク トリ の 初期 化 を 行ない , 最後 に , IPL を 設定 
し て 終了 し ます . な お ,。 BASIC イ ンタ ー プ リタ は , トラ ッ 
ク 2 か ら セ ー ブ さ れ ま す が ( 通 常 こ こ は , ユー ザー エリ ア ), 
FAT に シス テム 領域 と 設定 し て いる の で , いま まで 通り に 
何ら 支障 な く 使 えま す . 

また だ , DSKINIO を 実行 し て も , “134 Clusters Free" の ま 
まな の で ., DSKINIO を 実行 し て も DOS モ ー ド BASIC 
その まま 使え ます (FM-8 の 場合 は , DISK-BASIC の 都合 
*152 Clusters Free” 2 まり ます つま り ゆり 。 EAT の ステ デム 
領域 の 設定 が 破壊 き 0 め , DSKIN10 実 行 後 は も う 一 度 , 
初め か ら DOS モ ー ・ デ ィ ス ク の 作成 を し て くだ さい )、 

本 プロ グラ ム 実 行 拍 の の ィ ス ケッ ト の 構造 スロ ッ ト を 図 
1 に 示し ます . 


CE まま まま まま まま ま おま る お RS 


使 万 


DISK-BASIC で は あま り 使 われ な い , MOTOR の 省略 形 
M. を FEILES の に 変え て し まっ て も 大 変 便利 で は な いで 





に おっ: 
$C724 $4D 一 $46 
MM $C726 $A8 一 $B0 
SCA5。 S4D 一 $46 
る SCA5A  $ $ 


$CA5C $A8 一 $BO 








ウッー ジョ ジー 


また , FM-8 用 に 開発 され た 言語 . アフ 
ソフ ト も 倍速 で FM- 7 で 走る の で , 大 変 便利 だ と 思い ます . 
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10 


構造 スロ ッ ト 








サイ ド 0 サイ ド 1 


記 ) 
の 


15 16 7 32 」 


リザ ー プ 十 DISK BASIC イ ンタ ー プ リ ターーーーーーー]| 
1 Far|2 ダ トー ーーー テ ィ レク トリ ・ ス ロッ トーーーー ト ーーーーーーーーーーーーーーーーーーーー 一 | 
に た =1【eP 区 シシ ニレ 4 ターーーーーーーーーーーーーー ーー ーーーーーーーーー ニ ーー ーー 











っ ば ヾ テ 


pr| ID 
































以下 ユー ザー エリ ア ー 























CK 


最後 に 


OK 





発売 当初 は FM- 8 の ユー ザー と し て , 大 変 腹 立 た し か 
っ た FM-7 も , FM-8 の 隣り に 並ん で いる いま で は , その 
性 能 の すご さ に 和解 か され て いま す . 使い 方 次 第 で , FM-8 
と の 連携 プレ イ も こなし て し まう の で すね . 

な お , 本 プロ グラ ム で 作っ た DOS モ ー ド DISK-BASIC の 
入っ た ディ スケ ッ ト を 使っ て ブー ト す る と き は ,DIP ス イッ 
チ の 変更 を 忘れ な いで くだ さい (ROM/DISK モ ー ド の まま 
で も , ジー ドル し まず が )、 
参考 文献 

1) FM-7/8 活 用 研究 

2)I/O 誌 FM-7/8 に 関す る 号 
還 還 AM DS に 巳 A へ SIC 作成 プ ロ グラ ノ /、 EE 

















Add  + の +1 +2 オミ + 人 4 + 品 + す 6 + フ 日 +9 +a +EB +C +D +E +F Sum ら 199 72 69 76 65 20 ミ 39 2D 9 ga 11 の 7 49 ec6 2 52 65 iC5 
60 の 2 2 OR の の 61 BC の の の の の の の の の 9 の の の の の の の 9 の の :7 昌 ら 61g 61 64 79 2 の 74 6B 65 6E 2 4 69 274 2 52 455 54 :S5D 
6 の 1 の の の の の BE 6 の の 2 2 の の BE 6 の ウ Q EZ7 4 5F 日 1 1 の 2F :15 61EO_ 55 52 4E 2 の 6E 65 79 2 21 21 の の D の の の の の の :D7 
692O の 3 8 の 1 の 5C ED の 5 6E 9F FE Fa BD 61 19 8E 61 EC :C5 ら 1C の の の の の の の の の 20 の の の の の の 0 の 9 の の の の の の の の の の の : の gg 


6 の 9 さ EF 6 の C CC の F の FD 61 62 CC の 1 92 FD 61 64 CC :23 61D の の の の 0 の の の の 9 の 2 の 0 の の 9 の の の の の 9 の の の の : の 9 
6 の 4 の 6E の の FD 62 C4 CC の 2 の 1 FD 62 C6 CC の の の 9 FD 62 :EO の 61E の の の の の の の の の 2 の の の の 0 の の の の の の の 9 の 2 の : の 9 


605 の CB BE 7 の の の 1 の BE 6E の の C6 日 B6 FE FA BB1 F2 27 :15 ら 1F の の の の の の の の の OO の の の の の の の の の の の の の の の の の の の の 9 
6 の 6 の 5 1F 21 5Q BE の 4 BEF 6 ミ 2 F7 61 6C BB の EF E7 61 :C さ ー ー 5 
6@7 の の 67 FC 61 61 64 8BD 9C 7C 
6 の 8 の 62 B6 61 62 8 E9 BE B の の 9 EF 
ら 69 の 64 BD B4 7C 61 64 Bo6 61 64 日 1 21 25 
6ga の 61 64 7C 61 65 CC の 1 の の F ミ 6 の C FD 
ら 6 の RBO FC の の 26 DQ BE 61 BC EF 6 gC 5F 6 2D の 
ら C ロ 26 FE CC の 4 の 1 FD 61 62 FC 61 62 BD 6 17 7C 61 : 昌 2 62E の 
6 の 2D の 62 RB6 61 62 日 1 21 25 F BE 61 C1 C6 12 6 B 5Q :S5E 62F 
69E の 26 FE BE 61 EC 6F 4 CC @1 1 ED 6 の 17 BE 61 EC :6C ae 
6 の F Co6 2 の 6F BB 5Q 26 FE BE 


: の の 





DF _D5 27 CO nAF F5 の 5 5 95 の 8 :27 





+ ら 6 + プ + せ 日 +9 + 人 +ER +C +D 
2 の 1 の の の の の Q の の 3 98 
の の の の の の の の 1 の 
4 日 E の 2 A6 4 
ED FE の 8 4D 27 


g7 aD の 












55 Da CB 











Sum: 1E 24 54 6 EB 4 36 gB ミ +2 + ミ +4 + 巳 +6 +7 + 日 49 +a +B +C +D +E +F Sum 
CC の 1 の の E ミ の 2 ED の 2 QA6 の 5 4C B1 1 の 2F の D :EB2 
27 95 6C 4 6F 6 BC 6C の 6 B6. の 1 QA7 5 35 :ER 
26 DO 4F 1F BE BE 6E 6E 9F FB FE CE6 s58 
94 ご 4 1 さ BC 9 BEBD 5 19 1 の 27 >:BB 
FE の 8 35 94 4D 27 の E 8B1 の Q 27 の ミ 5 26 E1 : さ 
B7 FD の 3 2 の FE さ 9 の の の の の の の の の の の の の の の の :15 


RdH  + の +1 +2 ユミ + 人 4 + 品 + ら 6 + プ + 日 +9 +a +BE +C +D +E +F Sum 
ら 61 の の 6 の 7 AP 5 26 F9 CC の 4 @1 BEBD 6 の 17 BE 62 CO :9E 
611 の EF 6 の の C CC の 1 の の 7E 6 の 17 BD ミ 7 BE 61 6E 1 BE :aC 
ら 12 の FC B2 C6 4E Q6 B ウ Q7 QA 5Q 26 F9 7F FD 5 BD 22 :aAB ヨ 
61 さ 3 の CC 29 の の FD FC 2 7F FD の 5 BD 17 6 の BZ7 FC の :CE 











ら 14 の Bo6 FC 日 ミ 7F FD の 5 7D の ミ 1 26 5 1 gD 26 DF 39 :49g さこ の の ここ 
ら 615 の 35 9 の B6 FD の 5 2E FE 6 日 9 EZ FD の 5 Bo6 FD の 5 2 :44 Sum: 2E FF D2 3 5Qn 9C さ 4 BD 6< 
616 の FE さ 9 の の O の の の の 11 4 44 4F 5 2D ミ 9 @ ミ 4C :EC 

617 の の D の Q 11 の 4 5 65 74 2 74 6 65 2 41 6C 6C :FC 














ら 18 の 20 52 41 4D 2 64 69 フミ 6B 65 74 2 6F 6E 2 44 :5 | 注 ) 6200 一 S62BF ま で 00 に し て くだ さい . 
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| | | | | | 男 呈 | 軸 了 較 計 昌 旨 上 
IOP/M-66 胆 じ 畜 語 を 使 コ だ お 絵 描 天 有 プラ /」 
me |ーー 上 | 蘭 








これ は FM-11 の CP/M-86 上 で 走る , グラフィック ・ エ ディ 形式 と し て は , 中 間 コ ー ド ・ イ ンタ プリ タ 形 式 を と っ て 
タ で あり , C 言 語 で 記述 され て いま す . FM- 11 は 高度 な グ お り , それ ぞ れ の グラ フィ ッ ク ・ コ マン ド に 中 間 コ ー ド が 
ラフ ィ ッ ク 機 能 を 持っ た マシ ン で す が , 残念 な が ら そ れ を つけ られ て いま す . 出力 ファ イル は , この 中 間 コ ー ド の フ 
生か し た ソフ ト は あま り で て いな いよ う で す . ァイル と , C の ソー ス ・ フ ァイル の 2 種類 に な っ て いま す 。 

単なる 事務 用 の ビジ ネス ・ マ シン と し て 終わ ら せ る の は , そし て , この グラ フィ ッ ク ・ エ ディ タ は 中 間 フ ァイル の 
非常 に も ちっ た いな いこ と で す . 他 メ ー カ ー の 機種 と 比べ て 方 を 読み 込ん を で, エディ ッ ト を 行なう こと に な り ま す . C 
も , グラ フィ ッ ク 機 能 は 充実 し て お り , また DISPLAY の ソー ス ・ フ ァイル の 方 は 当然 その まま で は 実行 で きま せ 
SUBSYSTEM が 公開 され て いる の で , BASIC 以外 の OS 2 これ を コン パイ ル し て や れ ば ,。 より 高速 の 実行 が 可 
か ら で も 簡単 に グラ フィ ッ ク 機 能 を 使う こと が で きま す . 能 に な り ま す . し た が っ て , すべ て の エディ ッ ト が 終了 し 
この グラ フィ ッ ク ・ エ ディ タ の 場合 は , C て 書か れ て いま た 段階 で C の ソー ス ・ フ ァイル を コン パイ ル し て や れ ば 
す が , C の 言語 仕様 に は 入出 力 機能 すら な く (た だ し , 標 良い わけ で す . また , ラン タイ ム ・ ル ー チ ン も 用 意 し て あ 
準 ラ イプ ラリ 関数 に 含ま れる ), ま し て グラ フィ ッ ク 機 能 は る の で , 中 間 コ ー ド に よる 実行 も 可能 で す . 
備わっ て いな いた め , まず , グラ フィ ッ ク ・ ラ イブ ラリ の 操作 は グラ フィ ッ ク ・ カ ー ソ ル を , カー ソル ・ コ ント ロ 
作成 を 行なわ な けれ ば な り ま せん . ー ル ・ キ ー に よっ て 移動 きせ , 位置 決め を し て か ら , グラ 

私 の 場合 , 既に BASIC と ほぼ 同機 能 を 有する グラ フィ ッ フィ ッ ク ・ コ マン ド を 入力 する 方 式 で す . グラ フィ ッ ク ・ 
ク ・ ラ イプ ブ ラリ を 作成 済 だ どっ た の で , 作業 は 楽に 進み まし コマ ンド は 標準 的 な も の で す が , 中 間 色 ペイ ント 259 色 








の サン プル が 表示 され , その 中 か ら 選 べ る よう に な っ て い 


ます . まだ, この 際 (サン プル 表示 の と き ) は , 一 種 の マ 


ーー @ 円 ーッ ト 

グラ フイ ッ ク ・ ル チ ・ ウ イン ドウ 方 式 に を っ て いま す . 
mm 「 レーー」 | に これ は FM-11 の マル チ ・ ペ ー ジ 機能 を 生か し た も の で サ 
ノ ジウ リリ に つい て ンプ ル を 表示 する フィ ー ル ド の VRAM エリ ア を , サブ シス 


F- BIOS 直 接 コ ー ル を 使っ て , ディ スプ "レイ ・ サ ブシ ステ テム の COPY GRAPHIC VRAM コマ ンド を 使っ て , 使用 
ム を コン トロ ー ル し ます . RCB イ ンタ フェ イス の SUBIN し て いな い ペ ー ジ の VRAM エリ ア に 転送 , 退避 さき せ て いま 
な いし , SUBOUT で す 。RCB イ ンタ フェ イス は , ソ フト ウ す . これ は , 単なる メモ リ の プロ 1 か な り 
ェ ア ・ イ ンタ ラプ ト の 221(F-BIOS の シス テム ・ コ ー ル No.) 高速 で す . た だ し , 1 バイ ト 単 位 で の 転送 に な り ま す が . 
で 呼出 し ます . コマ ンド ・ ラ イン も 同様 に 使用 し て いな い VRAM に 退避 

私 の 使用 し て いる C コ ン パ イラ に は , sysint と いう ライ させ て いる た だ た め , 画面 は 全 画 面 フ ル に 使え ます . また だ , 現 
デラ リ 関 数 が 合 ま れ で お り 馬 に が よっ で ,。 アモ セン プラ を 在 ま で に 行なっ た 任意 の コマ ンド を 削除 し た り , どこ に で 
使わ ず に , グラ フィ ッ ク ・ ラ イブ ラリ の 作成 が 可能 に な り も 挿入 する こと が 可能 な の で , 試行 錯誤 的 に 色 決 め を し た 
まじ に 活 。 りす る の に 都合 が 良く な っ て いま す . 

も し , こう いっ た 関数 が な い 場 合 に は , こ の 部 分 を アモ セン 入力 可能 な コマ ンド 数 は . グラ フィ ッ ク ・ コ マン ド の 種 
プラ で 記述 すれ ば 良い こと に な り ま す . 注意 する 点 と し て は , の に - る た め (た と えば PAINT 
80 系 で は 2 バイ ト の 整数 が , 上 位 バ イト と 下位 バイ ト が 逆さ は 最も 多く , PSET な ど は 少 ゝ ), 一 概 に は 言え ませ ん が , 
ま に な っ て 入っ て いる と いう こと で す . 座標 パラ メー タ な ど 通常 4.000 コ マン ド 1 フリ ー エ リア 9 
を ユー ザー バッ ファ に 作っ て サブ プシ ステ ム に 渡す 際 に は , し て き て 危 く な っ た と き に は , 強制 終了 する よう に な っ て 
上 位 バ イト と 下位 バイ ト を 入れ 換え て お か な いと ダメ で す . いま す . 


本 グラ フィ ッ ク ・ エ ディ タ の 開発 期間 は , 構想 か ら デ バ 


oi 
グラ フィ ッ ク ッ ク ま で 入れ て , 2 週間 ほど と , C の 開発 効率 の 良さ を 示 
ーー = し て くれ まし た 。 た だ , 前 述 し た よう に , グラ フィ ッ タ ・ 
エフ イタ に つい て ライ ブラ リ が 作成 済 だ っ た の で , その 分 労力 が 少な く て 済 


プロ グラ ム に つい て 7 さよ うう で です: 
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1O 





先 に 述べ た よう に , すべ て C 言 語 で 記述 し て あり ます . 


この うち の GEDIT が グラ フィ ッ ク ・ エ ディ タ の メイ ン で す . 


これ は C の 標準 ライ プラ リ , グラ フィ ッ ク ・ ラ イブ ラリ と 
リン ク さ せ て “CMD" ファ イル を 作り ます . 

TCOLOR は 中 間 色 ペイ ント の た め の タ イル スト リン グ ・ 
パタ ー ン が 含ま れる ファ イル で , GEDIT を 走ら せる と , ま 
ず こ れ を 読み 込み ます . これ は DDT86 な ど で 入 れ て くだ さ 
い 。 この ダン プ に は ヘッ ダ が 付い て いま す . 

RUN は ラン タイ ム ・ ル ー チ ン で , 中 間 フ ァイル を 読み 込 
ん で 実行 し ます . これ も ,“CMD" の コマ ンド ・ フ ァイル に し 
て お きま す . 

な お , グラ フィ ッ ク ・ ラ イブ ラリ は FM-11 用 な の で , そ 
の 他 の マシ ン で 使う と き は , その マシ ン に 合わ せ て 書い て 
くだ さい . 

さて 具体 的 な 操作 で す が , 仮に GEDIT の ディ スク が A に 
入っ て いる と し ます . 


A> GEDIT-, フ ァイル 名 (8 文字 以下 , 拡張 子 は つけ な い ) 


と する と , GEDIT が 起動 し ます . 画面 が クリ ア さ れ , 既存 
の ファ イル な ら ば 中 間 フ ァイル を 読み 込ん で , 前 回 描い た 
と ころ まで トレ ー ス し て 入力 待ち に な り ま す . 新しい ファ 
イル な ら ば , その まま 入力 待ち に な り ま す . コマ ンド ・ ラ 
イン は 水色 で 表示 され ます . この モー ド で 使え る コマ ンド 
は , 以下 の 通り で す . 入力 は 大 文字 で も 小文字 で も 構い ま 
せん (z は 数 字 を 表わし ます ). 

IE インサート ・ モ ー ド に 入る (つま り 画 像 の 入力 モー ド ). 
Tn:nm ス テッ プ ・ ト レー ス し , CP を 移動 する . z が 負 な 
ら 72 ス テッ プ 戻 る . 

Dn: 現 在 の ステ ッ プ か ら 7 ス テッ プ 前 まで の コマ ンド を 削 
除 す る . 

TB: 最 初 に 戻る . 

TE: 最 後 ま で トレ ー ス する . 

E: エ ディ ッ ト を 終了 し , デ ィ ス ク に 結果 を セー プ ブ す る . 
QUIT: エ ディ ッ ト の 中 止 , 結果 は セー プ ブ しない. 

T( ト レー ス ) コマ ンド を 使っ て , 任意 の 点 に CP を 移動 し , 
I( イ ン サ ー ト ) コマ ンド に よっ て グラ フィ ッ ク ・ コ マン 

ド を 挿入 する 形 に な り ま す (感覚 的 に は , CP/M の テキ 
スト ・ エ ディ タ と 同じ で す ). し た が っ て , 実際 の グラ フィ 

ッ ク ・ コ マン ド の 入力 は , イン サー ト ・ モ ー ド 下 で 行なわ 
4 まお 。 

イン サー ト ・ モ ー ド に 入る と , コマ ンド ・ ラ イン は 緑色 
に な り , 画面 上 に 十 印 の グラ フィ ッ ク ・ カ ー ソ ル と 起点 座 
標 を 示す 口 印 が 現われ ます . この グラ フィ ッ ク ・ カ ー ソ ル 
を カー ソル ・ コ ント ロー ル ・ キ ー に よっ て 動か し , 位置 を 
決め て キー を 押す と 座標 デー タ が 入力 され ます . 

通常 グラ フィ ッ ク ・ カ ー ソ ル は 1 ドッ ト ず つ 動 きま す が , 
速く 動か し た いと き に は 数 字 キ ー を 押し て か ら , カー ソル ・ 
キー を 使え ば , その ドッ ト 数 ずつ 動き ます . まだ た , シフ 
ト ・ キ ー と カー ソル ・ キ ー を 併用 する と , 20 ド ッ ト ず つ 動 
きま す . 

こう し て 起点 座標 ( 口 印 ) と 終点 座標 が 入力 され , コマ 
ンド ・ ラ イン 上 に 1., Y]、 ダ 2. Y2 と し て 表示 され ます . 次 に 
グラ フィ ッ ク ・ コ マン ド の 入力 で す . な お , 色 コ ー ド は , 
BASIC と コン パチ に な っ て いま す . 

Ln( ラ イン ) … 起 点 一 終点 を 結ぶ 直線 . z は 表示 色 を 示 

















34 


す . 省略 する と 直前 の 表示 色 に な る . 直 前 の 表示 色 は コマ ン 
ド ・ ラ イン に 表示 され て いる . 
Bn( ボ ックス ) … 起 点 と 終点 を 対角線 と する 逢 を 描く , 
2 に つい て は 上 に 同じ . 
BEFz( ボ ックス ・ フ ィ ル ) … 起 点 と 終点 を 対角線 と する 
箱 を 描き , 内 部 を 塗り つぶ す . z は 同上 . 
POz( ポ イン ト ) … 終 点 に 点 を 打つ . z は 同上 . 
CRz1,z2( サ ー ク ル ) …21 を 半 経 と し て , 終点 を 中 心 と す 
る 円 を 描く . z2 は 色 . 
Pz0, 1 2 73.74、725、26.77 (ペイ ント )… 終 点 位置 か ら 
ペイ ント . 70 は 塗 色 . 刀 一 77 は 境界 色 . 境界 色 を 省略 する 
と , 背景 色 の 部 分 の み 塗 りつ ぶす . 
TPz1. 2.73、74、725. 26、77( タ イル ・ ペ イン ト ) … 終 点 位 
置か ら 中 間 色 塗り . 刀 一 727 は 境界 色 (ペイ ント と 同じ ). キ 
ャ リッ ジ ・ リ ター ン す る と , 右端 に 色 見 本 が 表示 され る . 
色 見 本 の 先 を 見 た いと き は , 十 を 押し て か ら 罰 , 戻り た いと 
き は 円 、 以 です. 259 色 ある . 欲し い 色 が きま っ た ら , その 
No. を 入力 する . 
M( ム ー ブ ) … 単 に 起点 を 終点 の 位置 まで 移動 . 
GCz… グ ラフ ィ ッ ク ・ カ ー ソ ル の 色 を 変え る . z は 色 コ ー 
ド . 
CAN (キャンセ モル) … 何 も せ ず に , も う 一 度 グ ラフ ィ ッ ク 
カー ソル ・ モ ー ド に な る . 
CLS… 画 面 ク リア . 

イン サー ト ・ モ ー ド か ら 脱 ける に は [| Esc + 罰 を 入力 し 
ます . な お , コマ ンド ・ ラ イン 上 の CP, EP と いう の は EP 
が 既に 入力 され た 最後 の コマ ンド ・ ナ ン バ ー で ,CP は 現在 
エディ ッ ト を 行なっ て いる コマ ンド ・ ナ ン バ ー で す . これ 
が 一 致し て いる と き は , 最後 に つけ 加 を て いる 場合 で す . 
(つま り , テキ スト ・ エ ディ タ の 行 番号 の よう な も の で す . 
CP を 移動 きせ る に は , 前 述 の 通り F〒( ト レー ス ) コ マン ド を 
使い ます . 

エン ド ・ コ マン ド に より エディ ッ ト を 終え る と , 前 述 し 
た 通り , 2 つの ファ イル が 出力 され ます . C の ソー ス ・ フ 
ァイル は , コン パイ ル し な いと 実行 で きま せん が , 中 間 フ 
ァイル を 実行 する に は , run.CMD と いう , ラン タイ ム ・ 
ルー チン を 使え ば 実行 で きま す . 


A> run フ ァイル 名 (拡張 子 な し ) 


で 実行 し ます . 
C の ソー ス ・ フ ァイル を コン パイ ル す る に は , C コ ンマ 
イラ , お よび グラ フィ ッ ク ・ ラ イブ ラリ が 必要 に な り ま す . 


の や と 1 



















ここ で 使っ た の は , CI 社 の C コン パイ ラ で す が , 現在 CP/ 
M-86 な いし , MS-DOS あ る い は , CP/M 上 で 走る C コ ン 
パイ ラ は 結構 出回っ て いる よう で す . 価格 が 高い の が 難点 
で す が , C は 単なる シス テム 記述 言語 で は な く , 非常 に 汎 
用 性 の ある 言語 で あり , それ な り の 利用 価値 は ある で し ょ 
う . グラ フィ ッ ク な ど 行 な うこ と を 考え る と , ハー ド に 密 
着 し た 関数 ,OS と の イン ター フェ イス を 提供 する 関数 を 含 
ん で いる C コ ン パ イラ の 方 が いろ いろ と 便利 だ と 言え ま 
す . また , アセ モン プラ と の リン ク が 可能 か どう か も 重要 で 
す 今後 も ,FM-11 CP/M-86 上 で , ゲー ム な ど を 作成 し よう 
と 思っ で いき ます | まだ この グラ シス イツ グン イシ タプ リタ 
を 使っ た , グラ フィ ッ ク が 可能 な PROLOG な どの 作成 も 考 
CV ます 。 


uu5S5S5W〔WM※・565055 85508 還 グラ フィ ッ ク ・ ラ イブ ラリ 


ーーー ニ ーーーーーーーー… 










width(w,line) 
unsigned char wline: 
w : 画面 表示 文字 幅 . 40 な いし 80. 





line : 表示 行 数 . 20 な いし 25. 
どちら も パラ メー タ が 範囲 外 の と 
き は 現状 維持 . 
console(slns,pf) 
unsigned char slns,pf 
sl : スク ロー ル 開 始 行 (0 一 表示 行 
数 ). 
ns: スク ロー ル 行 数 . 
pf : フ ァ ン クシ ョ ン ・ キ ー 表 示 ス 
イッ チ (1 で 表示 , 0 で 表示 せ 
ず ). 


unsigned charn: 
n : 消去 モー ド 
Ox グラ ジィ イッ ク 
画面 と テキ ス 
ト 画 面 全部 消 
計 % 
1 … ス クロ ー ル ・ 
モード の チキ 
スト 画面 を 消 
夫 : 
2 … ペ ー ジ ・ モ ー 


ド 1 の テキ ス 


ト 画 面 を 消去 . 


3 … ペ ー ジ ・ モ ー 
ド 2 の テキ ス 


ト 画 面 を 消去 . 


4 … テ キス ト 画 面 
の み 全 画面 消 
赤 : 
の ラッ クィ ッ グ 
画面 の み 全 画 
面 消去 
locate(x1,y1) 
int x1,y1 
x1 っ カー ソル 座標 (0 一 79) 
y1 一 カー ソル 座標 (0 一 24) 
beep( ) 
ビー プ 音 の 発生 . 
color(fgcolor,bcolor) 
int tgcolor,bcolor: 
文字 表示 色 お よび 背景 色 の 設定 . 
: 表示 色 . 
: 背景 色 は グラ フィ ッ ク 画 
面 の 消去 を 行なわ な いと 
変わ ら な い ). 


fgcolor 


bcolor 


atribute(n) 
unsigned char ni 
表示 廊 字 の アト リ ビ ピュー ト を 設定 


する . 
「 
0 … ノ ー マ ル 
1 … リ バー ス 
2 … プ ブリ ング 
3… リ バー ス ・ プ ブリ ンク 
4 … イ ン テ ン シテ ィ 


ーーーーーーーーーーーーーーーーーーーー ニ ーー 


ーーーーーーーーーーーーーーーー- 











』O 


ンジ ラン Hi アン 
5… イ ン テ ン シテ ィ ・ リ バー dspbank: 
ス 画面 モー ド お よび アク ティ ブ ・ ペ 
6 … イ ン テ ン シテ チ ティ ・ プ リン ー ジ ジア ネ スグ レイ ッ ペ ポー ジア 
み クティ プ ・ バ ング,。 ディ スプ レイ ・ 
7 : インテ ン シ テ ィ ・ リ バー ス パン ク の 設定 . 
・ ブ プリ ンク mode : 画面 モー ド . 


linec(Y1, Y1, マ 2, Y2,c,color,fig) 
int X1. Y1. 2, Y2.color,fig: 
unsigned char c: 
キャ ラク タ で 線 や 四角 形 を 描く . 
1 Y1: 始点 の え 座 標 。 座標 





(キャ ラク タ 座 標 ). 
2, YY2 : 終点 の 座標 , 座標 
(キャ ラク タ 





C : 表示 に 使う 文字 の 値 
color : 表示 色 
fig: /L(0)… 線 
B(1)… 四 角形 
BF( 2 )… 四 角形 塗り つぶ し . 
line( マ 1 アメ 2, 2,func,color,fig) 
jnt 1 也 1. 2、 YY2,func,colorJfigi 
え 1, 1 : 始点 の 座標 , 了 座標 
(グラ フィ ッ ク 座 標 ). 


メ 2.Y2 : 終点 の 叉 座標 , 座標 
(グラ フィ ッ ク 座 標 ). 
func : 機能 : 
PSET(0 ) 
PRESET( 1 ) 
OR (2) 
AND (3) 
XOR (4 ) 
fig:L (0) 
B (1) 
BF( 2 ) 


sline( マ 1 アマ 2, 2,func,color,fig, 
style) 
int 1 YY1. 2. YY2.func,colorfig, 
style: 
スタ イル 付 直線 
style: 16 ビ ピッ ト の ドッ ト 
この 繰り 返し で 線 を 引く . 
他 の パラ メー タ は line と 同じ . 
pset(1,Y1,color,func) 
int 1.T 了 1.color,func: 
え 1, 了 Y1 つ 表示 座標 . 
color 一 表示 色 . 
func 一 機能. (PSET(0) -XOR 
(4) ). 
paint( メ 1,Y1,color,bnom,b1,b1,b2,b3, 
b4,b5,b6,b7) 
int 1.Y1,color,bnom.b0,b1,b2,b3, 
b4,b5,b6.b7: 
え 1.Y1 : 塗り 始め る 位置 . 
color : 表示 色 . 
bnom : 境界 色 の 数 . 
b0 一 b7 : 境界 色 (bnom で 指定 し た 
数 だ け 有 効 ). 
screen(mode,actpage,dispage,actbank 
dispbank) 


int mode,actpage,dispage,actbank, 


・ バ ター ン . 


0 … カ ラー モー ド 
(640※X200) 

de カラ ーー モード 
(640※400) 

2 … 単 色 モ ー ド 
(640X200) 

3 … 単 色 モ ー ド 
(640 X400) 

4 … グ ラフ ィ ッ クス クロ ー 
ル ・ 科 一 ド 
(640X200) 

55 欠 ラジ イッ ジス の グロー 
小 * モ ー ド 
(640X400) 

ネネ カラー モー ド で は クティ ズ ょ 2/\ 

ンク , ディ スプ レイ ・ バ ンク の 指 

定 は 無 祝 さ れる . 
tpaint( マ 1 1,tn,t1,t2,t3,t4,bnom,b0, 
b1,b2,b3,b4,b5,b6,b7) 

int 1.T ア 1: 

unsigned char 玉 ,※72,*※t3,※74 

unsigned char bnomb0,b1,b2,b3, 
b4,b5,b6,b7: 

タイ ルス トリ ング ソン パ ター ン に よる 

ペイ ント . 

カー タイ ルス トリ ング の 数 

1-9、「 

ロー/44 3 バイ ト の タイ ルス トリ ン 

グ へ の ポイ ンタ . 

後 の 引 数 は ペイ ント と 同じ . 
unsigned char *※get ga 
(X1.Y1.X2.Y2) 

int 1,Y ア 1 メ 2, YY2: 

え 1,Y1. え 2. 了 2 を 対角線 と する 枠 

内 の BANK0 一 2 の 画面 デー タ を 読 

みとり , メモ リ 上 に 拡 納 す る . 

return 値 は 取り 込ん だ ドッ ト 情 報 

の 先頭 の ポイ ンタ . 

ドッ ト 情 報 の うち 最初 の 2 バイト 

に バイ ト 数 . 
put_ga(Y1,Y1, え 2,Y2,p,func) 

int 1, 也 1,2. ア 2.func: 
unsigned chan *pi 

get ga で 取り 込ん だ ドッ ト 情 報 に 

従っ て , 表示 する . 

P : ド ッ ト 博 報 の 拡 納 され て いる 

メモ リ の 先頭 の ポイ ンタ . 

func : 機能 
unsigned char *get g(X1,Y12, 
c0,c1,c2,c3,c4,c5,c6,C7) 

int 1, ア 1, え 2.T2: 
unsigned char c0,c1,c2,c3,c4,c5,c6, 
c7: 

え 1.Y1.X2.Y2 の 枠 内 の 指定 し た 
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ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー デ ーー デー 








! 

! 色 の ドッ ト 情 報 を 取り 込む . : 娘 字 列 を 指定 し た 倍率 、 角 度 で 表  : 正 つ 上 に 1 
1 retum 値 は 取り 込ん だ ドッ ト 情 報 : 示 : 負 つ 下 に 
N の 先頭 の ポイ ンタ . 1.Y1: 左 上 の 表示 庫 標 (グラ フ : (X200 モ ー ド )(X400 1 
c0 一 c7 : 指定 する 色 で ^#? で 終了 ィ ッ ク 護 標 ). 200 1 
1 に な る 、 S : 女 字 配列 へ の ポイ ンタ . ! ! 
! Put _g(1,Y1. 々 2,Y2,P,func,color) yoko : 横 倍率 ー200 ! 
! int X1.Y1.X2.Y2: : rate : 継 倍率 . 6 (X400 モ ー ド ) 1 
! unsigned chan*p 2 color : 表示 色 . 1 400 1 
1 unsigned chan func,color: : angle : 角度 コー ド . 3 ) 1 
! get_g( ) で 取り 込ん だ ドッ ト 情報 : 0… ノ ー マ ル (8) 5 ー400 ! 
! に 従っ て , 指定 色 , 機能 で 描画 す : 1 …90' 左 回 転 (9 ) 1 Yoko… 横 の ドッ ト 数 ! 
1 る . 2…80 な 0) | 正 左 
! P : ドッ ト 情 報 の 先頭 ボ ポインタ.  : 3…270 左 回 転 (11) 1 喘 ! 
! func : 機能 . 3 つ 8 X16 の 廊 字 パ ター ン の 拡大 。 : 640 ! 
! color : 表示 色 . 8 func : 機能 . ) 1 
symbol(Y1,Y 1,s,yoko,tate,color,angle, IONayeko) ー640 
1 func) 6 int 96 Pd : 400 
! int Y1.Y 1.yoko,tate,colorfunc: 3 グラ フィ ? 画 周 の スク ロー ル . つ 16 の 倍数 . ! 
1 unsighed char angle: : tate … 上 下方 向 ド ッ ト 数 9 
! char 米 si ! 
N ! 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


トリ レー スト リン グ ・ バ パ バターン ダン プ ・ リ スト (tcolor. dat) EE 還 昌 昌 


QAD0:OO000 03 01 00 00 00 00 00 00 55 00 00 AA 00 00 00 55|| QADO:0340 11 FF BB 44 EE FF 11 BE FF 44 FF FF 11 FF FF 44 
OADO:O010 00 00 AA 00 55 55 00 AA AA 00 00 00 55 00 00 AA|| QADO:0350 BB AA 55 EE AA 55 AA BB 55 AA EE 55 BB BB 55 EE 
OADOiO020 55 00 55 AA OO AA OO 55 55 00 AA AA 55 55 55 AA|| OADO:03EO EE 55 EE BB 55 BE EE 55 FF BB 55FF EE 55 BB FF 
OADO:0030 AA AA FF 00 00 FF 00 00 AA 55 00 55 AA 00 FF 55|| OADO:0370 55 EE FF 55 11 0Q0 AA 44 00 AA 00 11 AA Q0 4 AA 
OADQiO0040 00 FF AA 00 AA OO 55 55 00 AA FF 0O 55 FF 00 AA|| OADOiO3SO 11 11 AA 44 44 AA 00 00 BB 00 00 EE 11 00 BE 44 
OADO:O050 AA 55 55 55 AA AA FF 55 55 FF AA AA 00 FF 00 00|| OADO:O330 00 EE 00 11 BB 00 44 EE 11 11 BB 44 44 EE 44 11 
OADOIOOEQO FF 00 55 FF 00 AA FF OO 00 AA 55 00 55 AA 55 AAl| OADO:O3AO AA 11 44 AA 55 11 AA 55 44 AA 44 00 EE 11 00 EE 
OADO:0070 55 AA 55 AA 00FF 55 00FF AA 55 FF 55 AA FF AA|| QADO:03BO 55 00 BB 55 00 EE 44 11 BB 11 44 EE 55 11 BB 55 
OADOIO080 FF FF 00 FF FF 00 AA AA 55 55 55 AA FF AA 55 FF|| OADO:O03CO 44 EE 11 55 AA 44 55 AA 00 44 BB 00 11 EE 11 44 
OADO:O0030 55 AA AA FF 55 55 FF AA FF FF 55 FF FF AA 00 00|| QADO:03DO BB 44 11 EE QO 55 BB OO 55EE 11 55 BB 44 55 EE 
OADOiOOA0 FF 0QQ 00 FF 55 QOFF AA OO FF 00 55 FF 00 AA FF|| QADOiO3SEO 44 44 BE 11 11 EE 55 44 BE 55 11 EE 44 55 BB 11 
QADOIOOBO 55 55 FF AA AA FF FF 00FF FF QOFF AA 55 FF 55|| OADO:Q3FO 55 EE 55 55 BB 55 55 EE 11 0OQFF 44 QOFF 00 11 
QADO:QOCO AA FF FF 55 FF FF AA FF 0O FF FF OO FF FF 55 FF|| OADO:0400 FF 0Q0 44 FF 11 11 FF 44 44 FF 44 11 FF 11 44 FF 
OADO:O0DO FF AA FF FF 11 00 00 44 00 00 00 11 00 00 44 00|| OADO:0410 55 11 FF 55 44 FF 11 55FF 44 55 FF BE 00 AA EE 
QADOIOOEO 11 11 00 44 44 0Q0 00 00 11 00 00 44 11 00 11 44|| OADOIO420 00 AA AA 11 AA AA 44 AA BE 11 AA EE 44 AA AA 00 
OADO:O0FO 00 44 00 11 11 00 44 44 11 11 11 44 44 44 44 11|| OADOEQ430 BB AA 00 EE BB 00 BB EE QQ EE AA 11 BB AA 44 EE 
OADOiO100 00 11 44 00 55 11 00 55 44 00 44 00 11 11 00 44|| OADOI0440 BE 11 BE EE 44 EE EE 11 AA BB 44 AA FF 11 AA FF 
OADOi0110 55 QO 11 55 00 44 44 11 11 11 44 44 55 11 11 55|| OADO:0450 44 AA EE 00 BB BB 00 EE FF QO BB FF 00 EE EE 11 
QADOi0120 44 44 11 55 00 44 55 00 00 44 11 00 11 44 11 44|| QADOI046O BE BE 44 EE FF 11 BE FF 44 EE BE 55 AA EE 55 AA 
OADO:0130 11 44 11 44 00 55 11 00 55 44 11 55 11 44 55 44|| OADO:0470 AA 44 BB AA 11 EE BB 44 BB EE 11 EE AA 55 BB AA 
QADOi0140 44 44 11 11 11 44 55 44 11 55 11 44 44 55 11 11|| QADO:0480 55 EE BE 55 EE EE 55 EE EE 44 BE EE 11 EE FF 44 
QADO:0150 55 44 55 55 11 55 55 44 11 00 55 44 00 55 00 11|| QADO:0430 BB FF 11 EE EE 55 BB BE 55 EEFF 55 BBFF 55 EE 
OADO:0160 55 00 44 55 11 11 55 44 44 55 44 11 55 11 44 55|| OADO:04A0 BE 00 FF EE QO FF AA 11 FF AA 44 FF BB 11 FF EE 
QADO:0170 55 11 55 55 44 55 11 55 55.44 55 55 BB 00 00 EE|| OADO:04BO 44 FF EE 11 FF BB 44 FF FF 11 FF FF 44 FF BB 55 
OADOIO180 00 00 AA 11 00 AA 44 00 BE 11 QO EE 44 00 AA 00|| OADO:04CO FF EE 55 FF 11 AA AA 44 AA AA OO EE AA 00 EE AA 
QADOI0130 11 AA 00 44 BB 00 11 EE 00 44 AA 11 11 AA 44 44|| OADO:O4DO 11 BB AA 44 EE AA 00 AA BE 0Q AA EE 11 AA BB 44 
OADOiO1A0 BE 11 11 EE 44 44 EE 11 0O EE 44 00 FF 11 00 FF|| QADQ:Q4EO AA EE 00 EE BE 0Q EE EE 11 EB EE 44 EE EE 44 BB 
OADO:O1B0 44 00 EE 0O 11 BB 00 44 FF Q0 11 FF 00 44 EE 11|| OADO:Q4FO AA 11 EE AA 55 BB AA 55 EE AA 44 AA BB 11 AA EE 
OADOiO1CO 11 BB 44 44 FF 11 11 FF 44 44 BE 55 00 EE 55 00|| QADO:0500 55 AA BE 55 AA EE 4 BE BE 11 EE EE 55 EE EE 55 
OADOIO1DO AA 44 11 AA 11 44 BB 44 11 EE 11 44 AA 55 11 AAl| QADO:Q510 EE EE 11 FF AA 44 FF AA QQ EE BE QQ BB EE 11 EE 
OADO:O1EO 55 44 BE 55 11 EE 55 44 EE 44 11 BB 11 44 FF 44|| OADO:O520 BE 44 BE EE 00 FF BBE 00 FF EE 11 FF BE 44 FF EE 
QADO:Q1FO 11 FF 11 44 EE 55 11 BB 55 44 FF 55 11 FF 55 44|| OADO:O530 44 EE BB 11 BB EE 55 EE BB 55 BB EE 44 FF BB 11 
OADQ:02O00 BE 00 55 EE 00 55 AA 11 55 AA 44 55 BE 11 55 EE|| QADO:O540 FF EE 55 FF BE 55 FF EE 11 AAFF 44 AAFF 0Q BE 
OADO:0O210 44 55 EE 11 55 BB 44 55FF 11 55 FF 44 55 BB 55|| OADO:055Q FF QQ EE FF 11 BB FF 44 EE FF 44 BB FF 11 EE FF 
OADO:O220 55 EE 55 55 11 AA 00 44 AA 00 00 BB 00 00 EE 00|| OADOIO5BQ 55 EE FF 55 EE FF 11 FF FF 44 FF FF EE AA AA EE 
0ADOI0230 11 BB 00 44 EE 00 00 AA 11 00 AA 44 11 AA 11 44|| 0ADO:O570 AA AA AA BB AA AA EE AA BB BB AA EE EE AA AA AA 
OADO:O240 AA 44 00 BB 11 00 EE 44 11 BB 11 44 EE 44 44 BB|| OADO:iO5SO EEB AA AA EE BE AA EE EE AA EE AA BE EE AA EE EE 
OADO:O250 00 11 EE 00 55 BB Qo 55 EE 00 44 AA 11 11 AA 44|| OADO:O5 ヨ 0 BB BB BB EE EE EE EE BB AA BB EE AA FF BB AA FF 
OADO:O2B0 55 AA 11 55 AA 44 44 BB 11 11 EE 44 55 BB 11 55|| QADO:QO5A0 EE AA EE AA EE EE AA EE FF AA EE FF AA EE EE BE 
0ADO:0270 EE 44 11 FF 0Q 44 FF 00 00 EE 11 QO BB 44 11 EE|| OADOiQ5BQO BB BB EE EE FF BB BB FF EE EE BB FF AA EE FF AA 
OADOI02SO 11 44 BB 44 00 FF 11 00 FF 44 11 FF 11 44 FF 44|| QADOiO5CO AA EE BEE AA BE EE EE EE BE EE BE EE AA FF EE AA 
QADO:0290 44 EE 11 11 BB 44 55 EE 11 55 BB 44 44 FF 11 11|| QADQiO5DQ FF EE BB FF BB EE FF EE EE EE BB BB BB EE FF EE 
OADOi02A0 FF 44 55FF 11 55 FF 44 11 AA 55 44 AA 55 00 BBE|| QADOiO5EO BE _FF BE EE EE FF BB BE FF EE FF FF EE' FF FF EE 
QADO:Q2BO 55 00 EE 55 11 BB 55 44 EE 55 44 BB 55 11 EE 55|| QADO:iO5FO BB AA FF EE AA FF AA BB FF AA EE FF BB BB FF EE 
QADO:02CO 55 BB 55 55 EE 55 11 FF 55 44 FF 55 BE AA 00 EE|| OADQiOBO0O EE FF EE BE FF BE EE FF FF EE FF FF EE FF EE FF 
OADO:O02DO AA 00 AA BB 00 AA EE Q00 BB BB 0O EE EE 00 AA AA|| OADO:OB1Q0 FF EE FF FF 1A BB 44 55FF 11 55 FF 44 55 BB 55 
OADOI02EO 11 AA AA 44 BB AA 11 EE AA 44 AA BB 11 AA EE 44|| OADOiOE20 55 EE 55 55 11 AA 00 44 AA 0Q 00 EE O00 QO EE QO0 
OADO:O02FO BB BB 11 EE EE 44 EE BB 00 BB EE 0QO FF BB 00 FF|| OADOiQBS30 11 BB 00 44 EE QO 0Q0 AA 11 OO AA 44 11 AA 11 44 
QADO:0300 EE 00 EE AA 11 BB AA 44 FF AA 11 FF AA 44 EE EB|| OADQOiOE40 AA 94 00 EE 11 00 EE 34 11 BE 11 44 EE 44 49 BBE 
OADOI0310 11 BB EE 44 FF BB 11 FF EE 44 BB FF 00 EE FF 0Q0|| QADO:QB50 QO:11 EE QQ0 55 BE QQO 55 EE Q0 44 AA 11 11 AA 4 
OADOi0320 AA EE 11 AA BE 44 BB EE 11 EE BB 44 AA FF 11 AAl| QADO:OESO 55 AA 11 55 AA 44 44 BE 11 11 EE 44 55 BE 11 55 
QADO:0330 FF 44 BB FF 11 EE FF 44 EE EE 11 BB BB 44 FF EE|| QADO:QB70 EE 44 11 FF QO 44 FF QO QOQ EE 11 QQO BE 44 11 EE 


ーー ドク ラフ イィ イッ ク ・ ラ イブ ラリ (stdgra. h ) 














/ ま staridard raphic Iibraray hesding #define  XOR に 1 
ま / 

#define L el 
#defirie PSET #definie 1 
#define PRESET #define BF Pe 





Q 
1 
#defirme OR 妥 
#defimie AND 3 
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/ 半 graphic Iibrary キキ / 


#include “gtdgra.h" 
#innclude “stdio.h“ 


unSi&ned char usrbuf[1S8]i 
Struct rob 
{ 


unSigned char reqno」 Statusi 

unSigned usroff。 usr5egi 

unsigned char nofbyte。 null。 reserve,」 r_bytei 
) &_rcb = {1 OO。040404040i0 ]5 


Struct /* ま 。 current console parameter aria キ / 
( 


unsigned char cur-※。 CuF-Y。 atri。 nc。 nl。 5l。 ns。 pf 
unSigned ofs 
] consi 


Btruct / ま current vram tatus parameter キ / 


unSigned char hard」 act,。 dispi 
unSigned pa&eu。 page1 , Pages。 page3# 
) vrams 


Static truct 


unSigned gg※。 gy。 bcolor#i 
) current = {1 0。Q。 0 1 


Struct regval 
1 
int ax。 bx。 CX。 dX。 Bi。 |。 dS。 eS 
) BTF。 Fr 


width (wu。 | ime) 

unsi&ned char wu。 Iineis 

{ 
Fead_cons 0 
uSFbuf [2] = OxQ1* 
usrbuf [3] con5・atri# 


usFbuf[4] = (Mu == 40 1| MM == SO)7 MM 1 COnS。nCi 
usrbuf[5] = (Iine == 20 || Iime == 25)? line : cons.nlI 
usFbuf[E] = 03 

usFbuf[7] = usrbuf[5]i 

usFbuf[8] = cons.Pfi 

usrbuf[ ヨ ] = 1# 


g&_rcb.nofbyte = 10* 
EuboutOs 
1 


console(5l。 ns。 Pf) 
unsigried char =l。 ns。 Pft 
{ 





Fread_cons()! 


uFbuf[2] = Cx01I 
ugFbuf [3] = cons。atrii 
usrbuf [4] = cons。nci 
usrbuf[5] = cons.nl* 
usFbuf[B] = (sl>=0 &8& 1 く <=conB。n1)7 sl : 0 
usTbuf[7] = (ms>=0 && ns く =conS.nl uFbuf[B]) 7 msicon.nl-usFbuf[B]# 
usrbuf[S] = (Pf != 1? 0 ig 11 
uFbuf[ ヨ ] = 0i 
g_-rcb.nofbyte = 10* 
SuboutO『 
} 
cls(m) 


unSigmed char ni 
f 


mn = ニー (n>=0 && nm く =5)7 nmn ! 0OW 

if (mn==O 1l n==5) 

{ 
USFbuf [2] = Ox25* 
usFbuf [3] = current.bcolori 
ミ g_-rcb.nofbyte = 4* 
Subout() 1 

} 

if 〈 != 5) 

1 


Fead_cons(①# 

uSFbuf[S] = OxxQ2H /* ま console erase Command code set キ / 
usFbuf [4 は] = cons。atri# /\ conisole atribute set ま / 
suitch G①) 

1 
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C85e Os 
USFbuf[3] = 0 
bregk* 
Case 1* 
usFbuf[3] = 11 
break* 
CaS5e * 
usFbuf[3] = Si 
breaki 
C8Se 3* 
usrbuf[3] = 3* 
bregk* 
C8Se す * 
usrbuf[3] = 0i 
break* 
defaults 
breaki 
} 
g_-rocb.nofbyte = 5i 
Subout()* 


} 


locate (Cx1』y1) 


int x1。 y15 

{ 
USFbuf [2] = Qx03H / ま put string commarid code キ / 
usSrbuf[3] = 5 /* length of string キ / 
usFbuf[4] = Qx1bi 
usFbuf [5] = !=! ョ 
usFbuf[E] = y1+Ox20i / ま 。 offset Ox2Q0 キネ / 
usFbuf[7] = x1+Ozx205 


g_-rcb.nofbyte = 8i 
Subout() 
] 


/ キ EEEP FUNCTION キネ / 

beepri () 

{ 
USFbuf[2] = 0x12* / ま charsoter out command code ま / 
ugFbuf [3] = Ox07* /* beep code !QZ7! キキ / 
g_-rcb.nofbyte = 4# 
SuboutO* 

) 


color(fgcolor。 bcolor) 

int fgcolor, bcolori 

{ 
Fead_cons 0 
fgcolor |= (cons.atri & OxfE)# / ま ma5k and set color bit キ / 
Put_atri(fgcolor) ぅ 


current。bcolor = bcolor! / ま bmck&ground color set #/ 
1 


atribute (mn) 
unsigned char ni 
{ 


Fead_conS() ぅ / ま read Current atribute キ / 
nm くく = 3* / 六 convert parameter ネ / 
n |= (cons。atri & OxQ7)* /* set atribute bit #/ 


Put_atri(n) 
} 


Put_atri(atri) 
unsigned char atri#t 
{ 


uSFbuf[S] = QxQ03I / ま put gtring command code *OxOS' キ / 
usrbuf [3] = 3# /* ま tring length キ / 

usFbuf[4] = Ox1bi /* ま escape code 'Qx1b* ま / 

usFbuf[5] = !GY'$ 

usFbuf[E] = gtrii 

g_-rcb.nofbyte = 71 

EuboutO)! 


1 

linec (1。y1。x2。y2rcrcolor。funo) 
in も tx1。 y1。 x2。 y2。 color。 funci 
unSigned char Ci 

{ 


Fead_con5() 1 


USFbuf[2] = Ox20# /* charcter |ine command code キネ / 
usrbuf [3] = (cons。atri & OxfS) | colors 

usFbuf[4] = coI 

uFbuf[B] = x1! 

usFbuf[8] = y11 


usFbuf[10] = x21 
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usrbuf[12] = y21 
usFbuf[13] = func* 
g_-rcb.nofbyte = 141 
Subout(①*# 


line 1。 y1。 2。 y ダ 。 func」。 color。 fig) 
6 X1。 y1。 x2。 y2。 fumc』。 color』。 fig 


usFbuf[2] = Ox15! 

usFbuf[3] = color* 

usFbuf[4] = fumoi 

usrbuf[5] = gethigh(x1) 
usFbuf[B] = 

usrbuf[7] = gethigh(y1) 
usrbuf[8] = y1I 

usrbuf[ ヨ ] = gethigh (2)* 
usFbuf[10] = current.&gx = x2f 
usrbuf[11] = gethigh(y2)# 
usFbuf[12] = current.gy = ySI 
usFbuf[13] = figs 


g_-rcb.nofbyte = 16H 
Subout () 『 
} 


sline(1iy1ix24y2ifuncicolorifig。5tyle) 
int x1。y1jk2ay24fumncicolorifigistylei 
{ 


usFbuf[2] = Ox15* 

usFbuf[3] = colors 

usFbuf[ 和 4] = func* 

usFbuf[5] = gethigh(::1) 
usFbuf[E] = 1# 

usFbuf[7] = gethigh(y1)! 
usFbuf[8] = y11 

usFbuf [3] = gethigh (:z2) * 
usFbuf[10] = current,gx = 2 
usrbuf[11] = gethigh(y2) * 
usFbuf[12] = current.gy = y21 
usrbuf[13] = (fig == B)7 4 1 3 
usrbuf[14] = gethigh(style) # 
usFbuf[16] = stylei 


g_-rcb.nofbyte = 1Bs 
Subout()* 
) 


Pset(※1。 y1。 color。 funo) 
int 1。 y1。 color。 furici 
f 


usFbuf[2] = Ox17* / ま Point command_code Ox17 キ / 
usrbuf[3] = 1* / ま mumber of pointS キ / 

usFbuf [4] = gethigh (1) 1 

usrbuf[5] = current。gx = 1* /* ま set current x キ / 
usFbuf[E] = gethigh(y1)! 

usrbuf[7] = current.gy = y15 / ま set current y value キ / 
usFbuf[8] = colors 

u5Fbuf[ ヨ ] = (fumc>=O && fumC ミ = ニ 9)? fumC ! 0H 


8_-rocb.nofbyte = 105 
Subout()! 
} 


Paint(x1。y1。color。brmom。b0。b1 。b2。b3。b4 。b5 DE 。b7) 
int x1。y1。color。bnom。b0。b1。b2。b3。b4。b5,。b6 ,b7* 


usFbuf [2] Ox18!  / ま Paint command code et */ 


usrbuf[3] = gethigh (1) 3 

usrbuf[4] = x11 

usrbuf[5] = gethigh(y1)# 

usrbuf[E] = y11 

usrbuf[7] = color! 

uBFbuf[8] = bmomt  /* キ number of border color キ / 

u5rbuf[ ヨ ] = bO3 usrbuf[10] = b1* 

usrbuf[11] = b2I u5Fbuf[12] = b3I 

usrbuf[13] = b45 usrbuf[14] = b5! 

usrbuf[15] = b6I uSrbuf[1E] = b7! /* border color code キ / 


g_rcb.nofbyte = 17} 
SuboutO! 
1 


tpaint (1」y1。 tm も 1。 モ 2 ュ モ 3 上 。bmom 。b0。b1 。D2 。b3。b4 。b5 DE 。b7) 
int xx1。 y13 

unSigned Char キネ 上 1 。 上 2 。 ま も 上 コ 。 まま も 

un5i&rmed char tn。 bnom。 DO。 b1 。 b2。 bD3。 b4。 b5。 bB。 b7* 








39 


グラ フィ ッ ク ・ ラ イブ ラリ 





uSFbuf[E] = Ox1Si 

usFbuf[ ヨ ] = gethigh G:1) 

uSFbuf [は] = 15 

usFbuf[5] = gethigh(y1) 

usFbuf[E] = y15 

usFbuf[7] = Oxffi /* ま tile string flag * ま / 
usFbuf[] = brioms 

usFbuf[ ヨ ] = bQs usrFbuf[1Q] = b1j 

usFbuf[11] = bs usFbuf[1E] = b3j 

usFbuf[18] = bs uSrbuf[ 14] = b5i 

usFbuf[15] = bB usFbuf[15] = b7s 

usrbuf[17] = tns / キ number of tile-string キ / 
movmem (t1 。 &usrbuf 上 18] 。 3) 

movmem(t。 &uSFbuf [LE1] 。 3) 

movmem(t3。 &usFbuf [上 和 は] 。 3) 

movmem (上 。 &usFbuf [LE7] 」。 30 5 


g_rcb.nofbyte = 3Qi 
SuboutO 
} 


screei (mode 。 actpage,。 dispage』 actbani ド 。 diBPbai ド ) 
init mode, actpsge, dispege。 sctbai 。 diSPDbar ド 5 
unSigried char 5Sfi 


/ ま 8-bit shift for page set キ / 
0 07P 7 : actbar ド 5 
日 /* ま select active vrgam Commarnd キ / 
/ ま select-flag set キ ま / 





USFbuf [EE] = Qusg1 
usrbuf[B] = gfs 





g_-rcb.nofbyte 1 
SuboutO* 
Sf = dispages 
5f で ミニ 5 
Sf += (mode = 1 ) 宮 7 idispbank* 
1f (mode==1 || mode==3 1| mode==5) 
5Sf |= QixxdOH / ま Bth bit on for 4QQlinme display キ / 
else 
Bf &= Qix1fH / ま Eth bit off EQQ lime display キネ / 
usFbuf[S] = Ox22* /* ま select display vram command ま / 
usFbuf[S] = sf 
g_-rcb.nofbyte = 4j 
suboutO 
if (mode== 叶 11 mode==5) 
| 
USFbuUf[] = Onfs /* ま set console flag command キ / 
usFbuf[3] = 145 / ま with graphic scroll bit キ ま / 
} 
else 
| 
usFbuf [2] Qx0es / ま clear console fla& command ま / 


usFbuf[3] = 145 


} 
g_-rcb。nofbyte = 1 
Subout(①* 


unSigned char * ま get_ga (1。y1。x2。y2) 
int xx1。y1。 x2。y2! 
{ 
unSigrnied char キ ps 
long tate。 yokos - 
unSigned lem』。 mumber,」。 is 


yoEo = (RE1 SO ーー1+1 ま xx1-k2+15『 
tate = ( ツ 1 < y2)7 y2-y1+1 : y1-y2+18 
P = mlloc(lem = (yoko ま tate+7) / ま 3+ 人 2) * 


number = len-2# 

movmem(&mumber 。 p。 sizeof(int)) 3 

P += 28 

uSFbuf[S] = Ox1d# / ま put block 2 command code キ / 
usrbuf[3] = gethigh(xz1)* usFbuf[4] = ※1* 

usFbuf[5] = gethigh(y1) * usFbuf[B] = y13 

usrbut[7] = gethigh(::2) * usFbuf [8] = xi 

usrbuf[ ヨ ] = gethigh(y2)* usFbuf[10] = y2i 


11* 
Qiumber > 123)7 128 ! number+4i 


g_rcb.nofbyte 
g_-rocb.r_byte 


SubinO} ぅ 
movmem (&usrbuf [4] 。 P。 usrbuf [3]) 
P += usFbuf[3]s / キ COunt up "PP' キ ま / 


g_rcb.nofbyte = 3* 

g_rcb.r_byte = 128s 

uhile ( usrbuf[1] >= QxxEO ) / ま continue flag is on */ 
〔 











40 


』O 


グラ フィ ッ ク ・ ラ イブ ラリ 








USFbuf [2] = Ox64# /* continue command set */ 
Sysint(221。 &sr, &rr) 3 
movblocE (&usFbuf [上 4] ,g_rcD.uBrSeg iPrg_-rCD.usrseg 。 usFbuf [3]) ! 
P += usrbuf[3]* /* ま count up "p* 
} 
Feturn(P -= len)# 
1 


unSigned char * ま get_g(x1ay1ixEaySrCO」C1 CS C き Cd。C5 CE。G7) 
int x1。 y1。 x2。 YS25 
unSigned char CO。 c1。 CE。 Cd は 。 cC5。 CB,。 c7* 
〔 
unSigried char キキ pi 
lon& tate, yokos 
unsigned char cl[8]I 
unsi&ned i。 len。 numbers 


CI[Q] = c0I cl[1] = c18 clI[2S] = c23 clI[S] = cSi 

cl[4] = cd35 clI[5] = c5i clI[B] = cB# cl[7] = c7i /* color set キ / 
yoko = (X1 xx2) 字 ターxX1+1 ix1-x2+18 

tate = (1 < y2)? y タ ーy1+1 』 y1-y2+15 

PF = alloc(len = (yoko* ま tate+7) /E+2) # 


number = len - 25 

movmem(8&mumber。 Pi sizeof(int))! 

P += 25 

usFbuf[2] = Ox1b* /* ネ get block 1 command code キ / 
usFbuf[ ヨ ] = gethigh( ぶ 1) # usFbuf[ 上 4] = x1* 

usFbuf[5] = gethigh(y1) 1 usFbuf[E] = y11 

usrbuf[7] = gethigh (2) usrbuf[8] = 2 

usFbuf[ ヨ ] = gethigh(y2)! u5BFbuf[10] = y2I 


for (| = 05 1i く 8 && clI[i] != "#! オキ) 
usFbuf[12+i] = cl[i]i 

usrbuf[11] = i# /* ネ mumber of color code キキ / 

g_-rob.nofbyte = 12 + usrbuf[11]* 

&_rcb.r_byte = (mumber > 124)? 128 : number+4* 

subinOI 

movmem(&usrbuf [は] 。 p。 usrbuf [3]) 1 

P += urbuf[3]1 


g_-rcb.nofbyte = 31 
g_-rcb.r_byte = 128I 
uhile(usrbuf[1] >= OxSO) /* 。 continue flag is on キ / 
〔 
usFbuf[2] = Ox64! / ま continue command set キ / 
Sysint(221。 &sr。 &rr) ぅ 
movmem(&usrbuf [は] 。 p。 usrbuf[S]) ! 
P += usrbuf[3]3 
} 
return(P -= ler)# 
1 


Put_ga (1。 y1。 x2。 Y2。 Pi funo) 
int x1。 y1。 2。 y2。 funcf 
un5igned char *p! 
1 

unSigned number。 i。 J# 


movmem(P。 &number。 sizeof (int))『 


P += 2* 

usrbuf[1] = (number > 114 )? Ox80 01 
usrbuf[2] = Ox1ei 

usrbuf[3] = gethigh(x1)! usFbuf[4] = x11 
usrbuf[5] = gethigh(y1) 1! usFbuf [6] = y11 
usrbuf[7] = gethigh (x2) ! usrbuf[8] = x2# 
usrbuf [3] = &ethigh(y2)! usrbuf[10] = y21 


usFbuf[12] = func* 

usrbuf[13] = (number > 113)? 114 : number! 
movmem(P。 &usrbuf[14] 。 usrbuf[13]) # 

P += usrbuf[13]5 


number = usrbuf[13]! 
g_rcb.nofbyte = usrbuf[13]+14* 
suboutO1 
』 = number/1241 /* ま repetitiori of contimue キ / 
usrbuf[2] = QxB41 / ネ continue command code OxB 引 キ / 
む 表 まみ 
1 
usrbuf[1] = Ox80! /* ま gtill continue flag キ / 
usrbuf[3] = 1245 


g_-rob.nofbyte = 128* 
while (』ーー ) 
movmem (Ps&usrbuf [4] 124) ! 
P += 1245 
BySint(221。 &sr」 &rr)! /* ま direct call sysint キ / 
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usFbuf[1] = OxxO0I /* ま Iamst data (niot comtinue) キ / 
usFbuf [3] = number % 124 /* ま remaim byte キ 
ミ g_-rcb.nofbyte = 4+usFbuf[3]i 
movmem(P。 &usFbuf [4] 。 usrbuf[3]) 
Sysint(221。 &sr。 &rr)i 
1 


Put_g(x1。 y1。 2。 yy タダ 。 P。 funmc。 color) 
int x1。 y1。 2。 VS 
unsigned char キ ま P。 func。 colori 
【 
unSsigned mumber。 i。 j* 


movmem(P。 &number。 sizeof(int))# 


P += 2 

u5rbuf[1] = (number > 114 ) う 7 QB0 : 0 / ま continue? キ ま / 
usFbuf[2] = Ox1oi /* ま put block 1 command ま / 
usrbuf[S] = gethigh (1)14 usrbuf[4] = x13 

usrbuf[5] = gethigh(y1)1 usrbuf[B] = y1i 

usFbuf[7] = gethigh(〈 ぶ 2)! urbuf[S] = x2* 

usFbuf[ ヨ ] = gethigh(y2)1 usrbuf[10] = y2* 

usFbuf[11] = color*i 

usFbuf[12] = funcs 


usFbuf [13] (mumber > 1193 ) 字 114 : mumbers 


movmem(P。 &usFbuf[14] 。 usrbuf[13]) * 
P += uSFbuf[13]* 


number 一 = usrbuf[13]i 
&_-rcb.nofbyte = usrbuf[13] + 14# 
Subout 0) 3 


コ = mumber / 124# 

usFbuf [ES] = QB 

ます を さ う 》 

{ 
usFbuf[1] = Ox80* 
usFbuf[ 上 3] = 124 
g_-rcb.nofbyte = 1281 
生 P de 


movmem(P。 &uBrbuf[4]。 124) 1 
P += 1241 
Sysint(221。 &sr。 &rr)! 
} 
] 
usrbuf[1] = Ox00I 
usFbuf [3] = number も 124* 
g_rcb.nofbyte = 4 + usmrbuf[3]t 
movmem(P。 &usFbuf [4] 。 usrbuf [3]) * 


ByBint(221。 &sr。 &rr)* 
1 


symbol (1。 y1。 s。 yoko。 tate, color。 mngle,。 funo) 
int x1。y1。 yoko, tate。 color。 funos 
unsigned char angles 


char 5 
im も t i= 0 
if (angle >= 8) 
angle |= Ox80o# / ま 8G ま 1B dot font ポキ / 
elgse 
angle &= OxQ3H / ネ 8 dot font キネ / 
uFbuf [2] = Qx13* /* ま gymbol command code *'O0x1 ヨ ! ギ / 
usFbuf [3] = colori 
usFbuf [4] = funcs 
usrbuf[5] = anglei 
usrbuf[B] = yokos 
usrbuf[7] = tatet 
usFbuf[8] = gethigh(: ぶ 1)# usrbuf[ ヨ ] = x11 


usrbuf[1Q0] = gethigh(y1) 1 usrbuf[11] = y1* 
usFbuf[12] = strlen (5) ! /* strirng length set キ / 
while ( ま 5 ) 

usFbuf[1 コ + コキ +] = まま 5++# /* キ set char to usrbuf ま / 


g_-rcb.nofbyte = (1 < く 80 う 7 (G+13) 』 33 /* ま SO char limit キ / 
Subout()# 
1 


FolI(tate。 yoko) 
int tste。 yokoi 
1 


int amddri / ま graphic start sddress data キ / 

addr = Ox50 * ネ tate + Qx02 ま (yoko/16) ぅ 

uSFbuf[2] = Ox2EI /* set graphic start sddress command */ 
usFbuf [3] = 1 
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usFbuf[] = gethigh (addr) 
usFbuf[5] = addri 
g_-rcb.nofbyte = 6s 

5 suboutO* 


#define ASP 45 


circle。 y。 Fs COI) 
int ※。y。F。 Col 
{ 


unSsigned Iong 1。 y1* 

int ox。 oy』。 ※1。 ツ Yi5 

unsigned long i# 

ox = ニ 0i oy =r 玉 45Q0L / 1Q0QQs 
for (ji=04  i ベ =1001  i+=5) 

〔 


※1 = 100Q0Q00 ま 2 本 1/ (10000+ 1) ま Fr 

※1 = x1 / 1QQQ05 

y1 = 1QQQQ0 キ (10QQ0-i ま 1) / (10000+ 1)* ま Fr ま ASPi 
yi = y1 / 1000QQQ05 


linme (x+Tox』。 y+oy。 x+Txi。 y+yi 。 PSET。 col。 L)1 
line (x+ox。 ツーOy』 ※+xX1。 Yーyi 。 PSET 。 col 。 し ) 1 
lime (※-Oox』 y+TOy。 ※-Xi。 y+yi 。 PSET。 col。 L)1 
lime (x-ox』。 y-Oy。 ※-X1。 yーy1。 PSET。 col。 L)5 
O※ = 15 oy = ニ ツ is 
1 

} 

chr (Fiat) 

Iong peti 

1 


char *Pi 


p = calloc(sizeof (char) 。 3) ! 
*p = Pat >> 1B5 
ま (P+1) = pat >> 8H 
ネ (P+2) = pati 
return (p) ! 
1 


read_cons () 

1 
u5Fbuf[2] = Oxat 
g_-rcb.nofbyte = 31 
g_-rob.r_byte =-14* 
SubinO* 


usFbuf[S]* 
usFbuf [4] 


CO 。CUFー 
COn・CuF-Y 


conS。Btri = usrbuf[5]! 

COn TIC = usrbuf[7]i 

conS nl = usrbuf [8]# 

conS.51 = usrbuf [9] 

Con8・m = usFbuf[10]i 

coni5。Pf = usFbuf[11]* 

con ・Cf = (usrbuf[12] く く =8) + usrbuf[13]1 


Fesd_vram () 
1 


usFbuf [2] = Ox24* 

g_-rcb.nofbyte = 3 
g_-rcb。r_-byte = 161 
SubinO 


vVram。hard = usrbuf [3]1 
vVram。act = usrbuf[4]* 
vram.diBP = usrbuf[5]i 


vram。Pag&e0 = otoi((unsigned) usrbuf [8S]) +usrbuf 上 ヨ ]* 

vram.Page1 = ctoi((unsigned) usrbuf[10]) +usrbuf[11]* 
vram。Pag&e2 = ctoi((unsigned) usrbuf 12]) +usrbuf[13]* 
vram.。Page3 = ctoi((unsigned) usrbuf[14])+usrbuf[15]! 


defpf(n。 ら 5) 

int ni 

char * ネ 51 

1 
int ji=O0 
usrbuf [2] 
uFbuf [3] 
u5Fbuf [4] 
while( 

USFbuf [5+ i++] = ++# /* ま get gtring to usrbuf キキ / 


0x2a! / ネ ま define pf tring command * ネ / 
ni / ネ pf-key number ギ / 
strlen(s)# /* ネ gtring length set キ / 
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g_-rcb.nofbyte = ( usrbuf[4] > 15 ) 宮 20 : 5+Tusrbuf[4]i 
SuboutO! 
1 


getpf (mi。 buf) 


int ni 

char buft 

1 
int is 
uFbuf [2] = Ox2bi /* ま get pf string command キ / 
uSFbuf[3] = ni / ネ pf_key number キ / 


g_rcb.nofbyte = 5 
g_rcb.r_byte = Oi 
SubinOI 


for (ii=0I iusFbuf[ 上 4] 1 ++ ロ ) 
ネ buf++ = usrbuf[5+i]* 
ま buf = "\0!5 
1 


inkey (mode) 

int modei 
unsigned fla&gi 
int tempi 


Suitch( mode ) 
( 
CaSe (0) * / キ not wait key in ま / 
ST。8X ニ Qx01Q0i /* ま re&gister interface mo ま / 
flag = sysint(222。 &sr。 &rr)* / ま SQ88 flag value キ / 
return((flag 8& OxQOQ01 == 1)7 ーー1 』 Fr。dx & OxOOff) 


caSe(1) * / ま wait from key im ま / 
resetkbO! /* ネ prohibit key interapt \/ 
usFbuf[2] = Ox23* 
usFbuf[3] = 11 / 玉 uait! キ / 


g_-rcb.nofbyte = 41 
&_-rcb.r_byte = 5 


SubinO* 
temp = ( usrbuf[4] == 1 )? usrbuf[3] i -1『 
setkbOi /* ま enable key attention */ 
return(temp) 3 
default* 


Feturn (-1) 1 
1) 


click (mn) 
int ni 
1 
ST.8X ニ Ox100Q* 
BT.dx = mi 
SySint(222。 &sF」 &rr) 5 
1 


resetkb 0 
1 


uSFbuf[2] = OxQes 
usFbuf[3] = 135 
g_-rcb.nofbyte = 4# 
Subout()* 

) 

setkbO 

| 


usFbuf[S] = OxOf5 
usFbuf[3] = 12* 
g_-rcb.nofbyte = 1 
subout(〈) * 

] 


getbits( ぶ 。 Pi mn) 
unSi&nmed ※。 PP ni 
f 
return((x >> (P+1-m) & CO XX m))* 
1 


Subout 0 

1 
g_rcb.reqno = Qux10i 
&_rcb.usroff = usrDbufi 
g_-rcb.usrseg = usrsegO!# 


FcbintO1 /* ネ call sysint function キネ / 
} 


subin 0 
{ 
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&_rcb.reqno = Ox111 
8g_rcb.usFoff = usrDbuf* 
g_rcb.usrseg = uBrSeg()! 


} 


usrSeg () 
1 


segread(&rrv)! 
Feturn(Frv.dsv) # 


rcbirtO 
1 


SF。d ぶ = &g_rcb! 

ST .d5 = _FCD.uSFSegi 

BySint(221。 &sr。 &rr)* 
1 


gethigh 〈 ぷ ぶ ) 
uniSigned  ※* 
{ 
return( ※ は >= 8)1 
1 


ctoi (o) 
unSi&ned ci 
1 


Feturn( Cc く <= 8)# 


rcbintO3 /* call sysint functiom ギ / 


truct 。 { int CBV。 SSV。 dSV。 eSVi ] rrV3 
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/ ま &raphic tool program キキ / 
#include “stdio.h“" 
#include “stdgra.h" 
#defime MAX_X B38 
#define MAX_Y 138 
#defime Y_DOT 8 
#define MAXCOM 10 
#defime ERORR -1 
#definme PROGRAN Qx100 
#defime SPIOV Ox2QQ 
#define NEMFILE 0 
#defime EXIST め 
#define SAMPLE 253 





/* sample tile strin& mumber キ / 





#definme MAXOP 8 
#define NLEN 5 


/ 玉 maX OoPerand number キ / 
/* numerical operand max length キ / 


/* ネ code 


macro definition 


ま / 


#define LINE QxS00 
#defime BOX GS01 
#defime EOXFILL Qx302 
#defime CANCEL CdQS3 
#definme MOVE Qx20 和 4 
#defirie COLOR GS30C 
#defime DELETE  Qx2OE 
#define PAINT CxS305 
#define TILE QxSO0E 
#defime END Ox2O0A 
#define TRACE Ox20 ヨ 
#defime POINT CxS307 
#defime GCURSOR OxQog 
C 


#define CLS Qx30D 
#defime INSERT OxxQQF 
#define ESC Qx210 


#define TBEGIN Ox011 
#defime TEND Qx012 
#definme QUIT Qx01S 
#define CIRCLE  Qx314 


static inmt 1。y1。x2。 y21 


Static truct pro&g2 

{1 int code2! char *parai 
static truct prog2 *pc[40Q0Q0] 
static int count# 
static int ont* 


static struot 
{1 int Ilx1。 Iy1。 Ix2。 |Iy2* 





static int fcolor, bcolor。 ccol 。 hcols 


/ ネ command save tructure ギ / 


j! /* code and Parameter pointer* ネ / 


/ ネ poiner for p_code ネ / 
/ ネ Program Counter キ / 
/ 玉 current program counter ボ / 


/ ま parameter gtructure for each function キ / 


unsigned char lcolor。 fig5 1# 


/ ま Current color aria キ / 
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Static struct p 
{ int Px,。 py! unsigned char pcolor, pbnom。 pbcolor[7]! }# 
static gtruot tp 
int tx。 tty! unsigned char t1[3] 。 t2[3] 。 tbnom。 tbcolor[7]! }! 
static struot pg 
int psx。 pgy# unsigned char pscolor! 1 
static gtruot c 
un5signed char cfcolor。 cbcolor! 1}# 
Static truot or 
{ int crx。 Cry。 rad# unsigned char crcolor! }# 


main (ar&Cc。 arg&V) 
int argc! 

char *ar&gv[]! 

f 


int flag,。 code。 op[MAXOP]1 
char command[MAXCONM]* 
FILE *fopen 0 」 キネ fpi 


if (mrgc !=2) 

abort("-file name i5 required\n“)# 
fp = fileopen ( ネ ++ar&v。 &flag)* 
if ( fp == NULL ) 

abortfile erorr has ocurred\n“)#『 


elge 
1 
creen(0。0。0)# /* ネ creen mode select */ 
cls(O) 1 
Fead_clOI /* color pattern reading * ネ / 
if ( flag == EXIST ) 
{ 
Feadprog(fp) ! 
trace(0。 count) # 
X1 = x24 y1 = y21 
1 
else /* ネ neuly made file */ 
{ 
/* intializing キ / 
x1 = MAX_X/2f y1 = MAX_Y/2* 
count = 0 
fcolor = 7 bcolor = 0 
1) 
} 
hcol = 5! /* command Iine char color ま / 
ccol = BI / キ gcursor default color ※/ 
cnt = count* /* ネ set ep to cp キ / 


cls(1)5 
while( code != END && code != QUIT ) 
〔 
PushfdO! 
header (* ネ ar&gv) 1 
locate(14.0)# 
color(7。0) 
flag = getcom (command」 op) ! / ま get command ネ / 
Popfd) 1 
if ( flag != ERORR && (code=c_code2 (command) ) != EROURR\ ギ 
&& optest(0。code」fla&。op) != ERORR ) 
Cc_-exec2 (code。 flag。 oOP。 * ま argv) # /# command exxec キ / 
elge 
beepOi / ま command or parameter erorr キ / 
cls(1) 3 
] 
traoce (cnt。 count) # 
cnt = count* 
if ( code == END ) 
edit_end (Kargv。 fp)* 
) 


dinput (endcode 。 convert。 filename) 
int endcode,。 (* ネ convert) () 

char *filenamei 

〔 


char command[MAXCONM] 

unsigned char tile1[3] 。 tile2[3] ョ 
inmt flag。 op[MAXOP] 。 code 。 ecode 
Struct pro&g2 * ネ ups 


code |= SPNMOVI 
up = camlloc(1。 sizeof (Struct pro&2)) 3 
while( code != endcode ) 
1 
g_cursor (ccol) 
if ((code & SPMOV) != SPMOV) / ま not move start point キ / 
PopsP(&x1。 &y1) 3 
do 
t 
PushfdO)i 
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cls(1) 3 

header(filename) # 

locate(14.0) * color(7,G) 5 

flag = getcom (command。oP) # /* get command 1 キ / 

if (flag != ERORR && (code = (* ネ convert) (commarnd) ) != ERORR) 


if ( code == TILE ) 
tileg&et(tile1, tile2) 1 
PopfdO5 / ま pop heamder field キ #/ 
if ((ecode = optest(up, code。 fla&。 op。 tile1。 tile2) ) キ 
!= ERORR ) 
{ 
if ((code & SPMOV) == SPNOV) 
〔 


MP->COde2Z = codes 
PopfdO)# 
era_-SPp(x1。 y1)# 
if ((code & PROGRAM) == PROGRAN) 
{ 
C_exec1 (wp) # 
Pro&save (wp) # 


elge 
c_-exec2 (code,。 fla&。 op filename) # 
disp_SP (x2。 y2) 3 
} 
else 
Pushsp(x1 。 y1)1 
if ( code == GCURSOR ) 
ccol = opEO]i 


} 
} 
elgse 


PoPpfdO1 
ecode = ERORR+ 
} 
if ( ecode == ERORR ) 
beepO! 
)uhile ( ecode == ERORR )! 
cls(1)1 
x1 = x24 y1 = y21 
1 
free (up) # 


insert(filename) 
char *filenamei 
{ 

int oc_codeOs 


hcol = 
cls(1)! 
disp_SP(x1。 y1) 1 
dinput (ESC。 c_code,。 filename) # 
hcol = 53 
era-SP( ぶ 1。 y1)! 
1) 


trc_exec(flag。 OP) 
int flag,。 キネ opi 
{ 
int from。 beforet 


*op = ( flag == Q) う ツ 7 1 』 *opi 
if (*op > O) 
( 


from = cntsi 
cnt = before = (〈 ont+ キ op > Count ) 呈 Count : cnt+ キ op* 


else 


from = 0 / キ ま from beginning *#/ 
cnt = before = ( ont+*op く 0 7 0 ii cnt+ ネ opP* 
} 
trace(from。 before) # 
1 = 2 y1 = ツ 25 /* キ set current positiom キ / 
1 - 


Progsave (P) 
Struct progz *pi 


int 5 


for (ij=count3 is>cnt# ーー|) 
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Pc[i] = pc[i-11]* 
PcLcnt] = (struot prog2 *)calloc(1。 izeof (5truct prog2) ) 
movmem (PiPcLocnt] 。 sizeof (Struct prog2) ) 3 
COunt オ +# 
cnt++5 
} 


PushfdO 
1 
Saveg (OxOQQQ。 QxQQQ0n。 B0」。 Y_LDOT 。 Ox07。 0x17) 1 


PopfdO 
1 


Saveg (OxQ000。 OxOO000。 0O。 Y_DOT 。 Ox17。 OxQ7) ! 


hegmder(filemiame) 
char *filenamei 
{ 


lime(0。 0。 B3 ヨ 3。 Y_DOT-1,。 PSET 。 0。 BEF) 
color(hcol,0) 3 
locate (OO) PFintfCs"。 filemiame) 3 
locate(32.Q0)* Printf("CP= 和 Odd EP=%Q4d" 。 cnt。 count) 
locate( ヨ 。Q)! 
Printf (CMDP=7)* 
locate (53.0) 1 
Frintf(X1=EGd Y1=Sd X2=SGd Y2=*3d" 。 x1。 y1。 x2。 y2) 1 
line (3834G』41B。Y_DOT-1 PSET ,7 。B) 
line (384。1.33 ヨ 。Y_DOT-2 。PSET fcolor,EF) /* ネ display fcolor キ / 
line (400。1 415,Y_DOT-2。PSET 。bcolor,BF) # / ま display bcolor *#/ 
color(fcolor。 bcolor) 1 
} 


int buf。 ybufs 


ン 


Pu5hSP(x※。 y 


int x。 y# 

1 
※Duf = w# 
ybuf = v3 


} 
POPSP(※。 ツ ) 
int 。 キキ yi 


キキ xx = xDbuf* 
*y = ybufs 
] 
C_exXec1 (P) 


Struct prog2 *pi 
Suli tch (P->code2) 
〔 


case( LINE ): 

case( BOX ): 

case( EOXFILL ): 
lineexec((struct | *) (P->para))! 
bregk1 

case( POINT ): 
PSexec((struct pg * ネ ) (P->para) ) # 
break'5 

case( PAINT )* 
Ptexec((struoct p *) (P->para) ) ! 
breeaki 

case( TILE )* 
tileexec((struot tp *) (P->pgmra) ) # 
breg ド 3 

case( CIRCLE ): 
Crexec((struot cr *) (P->pPara))! 
break! 

case( COLOR ): 
colexec((struct cC ま ) (P->parg) ) # 
breg ド 5 

case( CLS ): 
cls(5) 5 /* キ gramphic screeni clear キ / 
breaki 


] ュ 


Cc_exec2 (code。 flag。 op。 filemiame) 
int code, fla&g,。 *ops 
char *filenamei 
【 
Sulitch( code ) 
{ 


case( MOVE ): 
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break! 

case( DELETE ): 
delete(fla&。 op) # 
breakt 

case( QUIT ): 

case( END )i 
break! 

case( TRACE )* 
trc_exec(flag。 op)! 
bregk! 

case( INSERT ): 
imsert(filename) # 
break'$ 

case( TBEGIN ): 
cnt = 0O8 
trace (0Q。cnt)! 
bregk* 

csse( TEND )s 
trace (cnt。 count) 
ont = count* 
break* 

defaults 

8 bregki 
Feturnt 


optest(P, code,。 flag。 op。 t1。 tt2) 
int code, flag。 *opi 

un5igned char * ネ 上 1。 *t21 

truct prog2 *pI 

{ 


int ecodet 


Suitch( code ) 
{ 


caBe( LINE )* 
ecode = Iinetest(PiflagioPpix1。 y1。 x2。y2。 fcolor。L) 1 
break! 

caBe( BOX )』 
ecode = Iinetest(P。flagioPix1。 y1。 x2。y2。 fcolor。B)# 
break! 

case( BOXFILL ):* 
ecode = Iinetest(Piflagaopix1。y1。 x2。 y2。 fcolor。 BF) 1! 
break! 

case( POINT )s 
ecode = pointest(P。 fla&。 opP。 x2。 y2。 fcolor)! 
break3 

case( PAINT ): 
ecode = pttest(P。 fla&g。 opP,」 x2。 y2。 bcolor)『 
break1 

cmBe( TILE ): 
ecode = tiletest(P。 flag。 opP。 x2。 y2。 bcolor。 t1。 t2) 1 
break3 

case( COLOR )* 
ecode = coltest(p。 flag。 opP) 1 
break! 

case( CIRCLE ): 
ecode = crtest(P。 fla&g。 oP, x2。 y2。 fcolor) 1! 
break! 

case( CLS )* 
ecode = clstest(p。 flag)! 
break3 

caBe( TBEGIN ): 

ca5e( TEND ): 

case( INSERT ): 

ca5e( CANCEL ): 

case( MOVE ): 

case( QUIT ): 

case( END ): 
ecode = nooptest(flag)! 
break! 

case( DELETE ): 
ecode = deltest(fla&g。 op) 5 
break* 

case( TRACE )* 
ecode = trotest(fla&g)! 
break3 

case( GCURSOR )* 
ecode = gctest(fla&g。 oP) # 
break* 

case( ESC ): 
ecode = 0 
break* 

defaults 
Feturn(-1)『 

} 
Feturn (ecode) 
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fileopen(filename」 f) 
char *filenamei 
int ま f* 
1 
FILE fopen 0) 」 ま fpi 
char s[111]i 


if ( strlen(filename)> 8 ) 
return (NULL) 
strcpy(s,。 filename) ! 
strcat(5。 “"。g7)* 
fp = fopen(S。 “rub“)# 
if ( fp == NULL ) 
{ 
fp = fopen(B。 “wb“)! 
*f = NEMFILE* 
) 
else 
*f = EXISTI 
Feturn(fp) 


edit_end(fllermame。 fP) 
char *filenamei 
FILE *#fpi 


char ps[100] 。 [11]1 
int is 
FILE *#fopenO! 


utprog(fp) ! /* gtruct prog output ネ / 
fclose(fP) ぅ 


trocpy(=。 filemame) # 
strcat(5。 “"。o")* 
fp = fopen(s』。 “w7)1 
fprintf(fP。 “#imclude cstdio.h 和 EC\m#include cstdgra.h 和 C ギ n" 4 
0x22。 0x22。 0x22。 Ox22) 1 
fprintf(fP。 “mainO\nmt(\n")# 
locate(Q,1) 1 
for(i=04 i く < く count ++) 
if (makeprog(Ps」 i) != ー1) 
{ 
Printf (ps) 
fprintf(fp」“ も 5” 。 PS) $ 


} 
fPrinmtf(fP。 “1\n") 1 
fclose(fp)# 
] 


FeadprOog (fP) 
FILE *fpi 
| 


int ij。 sizes 
fread(8&count。 sizeof (int) 。 1。 fp) 3 


for (i=0I ji く count キ +j) 

〔 
Pc[i] = (struct prog2 *)calloc(1。 sizeof (5truct prog2) ) ! 
fread(&pc[i]->code2。 sizeof (int) 。 1。 fp) # /* キ code read ネ / 
Bize = P_-Size(Pc[i]->code2) ! 
Pc[i]->para = calloc(1。 size) # 

を freasd(pc[i]->para,。 size。 1。 fp) 5 


fseek(fp。 OL,。 0)! /* ま reuind head of file */ 
] 


utprog(fP) 
FILE *fps 
int il 
furite(&count。 sizeof (int) 。 1。 fp) * 


for =08 i く Count ユ +i) 
{ 


furite(&pc[1i]->code2。 sizeof (int) 。 1。 fp) # 
furite(pc[i]->para,。 p_ize(Pc[i]->code2) 。 1。 fP) 5 


} 
P-Size (code) 


int codes 


int sizet 


suitch( code ) 
{ 
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case( LINE ): 

case( BOX )* 

case( BOXFILL ): 

Size = sizeof (truot 

break! 

POINT ): 

Size Sizeof (struct 

breaks 

PAINT )* 

Size = Sizeof (5truct 

breg ド s 

THEE。 9. 

ze 

brea ド 3 

COLOR )* 

size = Sizeof (struct 

break! 

CIRCLE )* 

Size = Sizeof (5truct 

.breaki 

CLS )』 

Size = 

breaki 

defaults 
Size 
breaki 


case( 


Case( 


case( 


Sizeof (truot 


case( 
caSe( 


case ( 
0 


ー-1* 


1 
return(size)! 
} 


gctest(fla&, oP) 
int fla&g。 * キ ops 
{ 


Feturn((flag == 1 && *op >= 0 && *oPp くべ = 7? 0* 


deltest(flag。 oP) 
int flag, *op* 
{ 
Feturn( ((flag==1 && *op>=O 11 
1) 


delete(fla&。 oP) 





int flag, *op# 
{ 
int dn」 1 
if (flag == ロ ) 
dn = 15 
else < 
dn = (まま oF : cnt ) 宮 cnt * 
for (ii=cnt-ーdrT ECnt5 キキ 1) 
| 
if (Fc[i]- テ Para != NULL) 
free(FcLi]- テ Par8) 3 
free(Fc[i]) 
} 
for (ji=crmt3 iCOUumt5 ユキ) 
FcLi-dn] = pc[i]i 
count 一 = dns 
Crnt ー= dinii 
trace(n。 ont) 
宮 1 = Y1 = YE 


maEeFirog (5。 ij) 





char 1 
Int mi 
1 
Int 1。 」。 Cd。 ecode* 
cd = Fc[n]-:code マ * 
if ( cd == LINE II cd == EOX II 
〔 
ロ 
+ 
else if (cd == PAINT ) 





BT83 
SPFintf(S。 “Paint( や d, 
ロー-:PCOloOr 。 ロー:PDbriom) 5 





flag==O) && cnt>00?7 0 * 


*d。 も d。 PSET 。 
ーー ly デ 」。 PF-Elcolor」。 P- テ fig) 


も d。 も dd。 も d" 。 ロー ド PE 


1D* 


PS) # 


P) 5 


tp) ! 


C) # 


cr)! 


/ キ ま mo Parameter is Fequired キ / 


= 


"1 9 


キ oP 


/ ま slide array キ 〆 


Cd 


EOXFILL ぅ 





も 。 ) 5 半 


半 
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for (= iP ロー テ PDriOmi キキ .j) 
〔 
5 += strleni (5) 
PF imntf(5。 "。 Sd 。 P-EPbcolor[.i]) 
} 
FTintf(+= strlem(S) 。 “) 3 六 7) 
ecode = ロ 5 


else if (cd == TILE ) 
struct tP まま F's 


P モ PcLn]-*Fari 
SFPT intf (5 tpaint(*d 宮 















か 
2E 当 ロー rtbmom) 5 5 
briomi ユ +.) 


5 += trlen (g) ! 
PFintf (5。 “ 。 dd" 。 p->tbcolor[j]) 


PFintf( = += gtrlen(s) 。“) !\m") 1 
ecode = 0 


else if ( cd == POINT ) 


5truot pg *P1 
P = PcLn]->para* 
Sprintf( 5。 “pget(%d。 も d。 %。 PSET) 1\m" 。 Pー>PBX 。 Pー>PBY 
P->Pscolor) 1 
ecode = 0# 
1 
else if ( cd == COLOR ) 
【 


Btruot c キ p* P = Pc[n]->para# 
Printf(5。 “color(%d。 和 d) #\nm" 。 P->cfcolor。 Pp->obcolor)! 
ecode = 0 


1 
elge if ( cd == CIRCLE ) 
〔 
struoct cr *p! P = Pc[n]->parat 
SBPFintf(s。 “circle(%d。 dd。 各 。 %) nm" 。 Pー>CFX。 Pー>CFY ュ 半 
P->Fad。 Pー>CFCOlor) ! 
ecode = 0$ 
} 
else if (cd== CLS ) 
〔 


Printf(5。 “cls(5) !\n“) 1 
ecode = 03 
} 
elgse 
ecode = -11 
returri (ecode) ! 
} 


nooptegt (fla&g) 
int flagt 
f 
return( (flag == 00? 0 ig -1)* 
1 
tiletest(P。 flag。 oOP」 ※。 Y。 bc。 t1。 t2) 
Struct prog2 * ネ Pi 
int flag。 * ま oOP。 ※。 
unBi&ned char *t1。 守っ 。 bc* 
{ 


truot tp tpPP# 
int i。 j。 ecode# 


for (i=01 i<MAXOP && bittest(fla&gii) == 1! ++i) 
3 


if ( iji == 0O II ij >= MAXOP-1 ) 
ecode = 03 
elgse 
{ 
for (jJ=i+14 j く MAXOP && bittest(fla&g。 i) == 0 + ユ +J) 
1 


if ( 」 != MAXOP ) 


ecode = ー11 
elgse 
ecode = 01 
ト 
if ( !ecode ) /* ネ operand number check ig ok ネ / 
for (j=04 j く 14 ++j) /* color code oheck */ 


if ( 玉 (oP+Jj) く 0 11 ネ (op+Jj) >7 ) 
ecode = ー11 





if ( !ecode ) 
{ 
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tpPp = calloc(1。 sizeof (5truot tp))『 /* allocmte struot tp */ 


if ( == O ) /* ネ when border color is omitted キ / 
{ 

for (j=0。i=08 j く 8S3 ++j) /* ま default border color set ネ / 

if ( 』」!= bc) /* except back&rourd color *\/ 
tpp->tbcolor[i++] = JH 

1 = 7* /* ネ 7 colors is border */ 
} 
elge 

for (jJ=0! J く iT キ +j) 

tpp->tbcolor[j] = ネ (OP+Jj) # 

tpp->tx = x ぶ # tpp->ty = Y5 
movmem (t1 。 tpp->t1。 3) 1! ImOvmem(t2 。 PP->t2 。 3) # 
tpp->tbnom = i# 
P->para = tppi /* ネ tell gtruct prog2 uhere Para iB \/ 


1 
return( ecode )『 
1 


tileexeo (P) 
Btruct tp pi 
{ 


tpaint((x2=pー>tx) 。 (y2=pー> ty) 。 2 ェ Pー>t1 。 P-> モ 2 。 0。 0。 p->tbmom。 \ 
p->tbcolor[O] 。 p->tbcolor[1] 。 p->tbcolor[2] 。 p->tbcolor[3] キ 
p->tbcolor[4] 。 p->tbcolor[5] 。 p->tbcolor[6]) # 
} 


Pttest (P。 fla&。 OP。 X。 Y。 boO) 
Struct prog2 *p5 

int fla&g。 *oP。 x。 Y! 
unSigned char bci 

{ 


truct p *pp1 
int i。 J。 ecodet 


for (i=04 i く MAXOP && bittest(fl8gii) == 1! ++i) 
U 


if (ii==O) /# no operand キ / 
ecode = ー15 

else if ( i >= MAXOP-1 ) 
ecode = 0 

elge 


1 
for (j=i+15 ji く <MAXOP && bittest(flag。 i) == 0 ++J) 
9 


if ( 』 != MAXOP ) 
ecode = -1* 


if ( !ecode ) / ま operand number check i5 ok キ / 
for (j=04 j く 18 ユキ +J) /* ま color code check */ 
1 ( ま (OP+j) く 0 11 ネ (oP+Jj) >7 ) 
ecode = -15 


if ( !ecode ) 
1 

calloc(1。 izeof (truct p))# 

i My/ / uhen border color is omitted */ 


へ 中 


PP 
| 洋 
| 


for (jJ=0。i=04 J く 8! ++j) /* ネ default border color set ネ / 
が 全 ま 小三 DBG う / ネ except background color ギ \/ 
PP->pbcolor[i++] = JH 
1 = 83 
} 
else 
for (j=04 』 く j-14 ++j) 
PP->pbcolor[j] 
PP->PX 三 X# PPー->P ツ y 
PP->Pcolor = * ネ op 
PP->Pbnom = i」ー 11 
P->Para = PP* 


ネネ (OP+J+1) 5 
4 1 


} 
Feturn( ecode )! 
] 


ptexec (P) 
Btruct p *pI 
Paint((xX2=pPー>Px) 。 (y2=pー>py) 。 fcolor=p->pcolor 。 P->pbnom 。\ 
P->pbcolor[O] 。 p->pbcolor[1] 。 p->pbcolor[2] 。 p->pbcolor[3] 。 キ 
P->pbcolor[4] 。 p->pbcolor[5] 。 p->pbcolor[G]) # 


trotegt(flag) 
int fla&g# 
{ 
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Feturn( (flg&g == 0 ll flag == 1? 0i -1)! 
] 


trace(from。 before) 
int from。 beforei 


char  s[100]* 
int is 

if ( from == 0) 
〔 


color((fcolor=7) 。 (bcolor=O) ) # 
x2 = x1 = MAX_X/21 y2 = y1 = MAX_Y/2* 
cls(5)* 

} 


for (=froms i く <beforei ++i) 
c_exec1 (Pc[i])『 
x1 = x2『 y1 = y2* /* get current position */ 
Feturn (Q) 1 
} 


Pointest(P。 fla&。 oP。 x。 Y。 fo) 
Struct prog2 *P3 

int flag,。 *op。 x。 ツ Y5 

unsigned char fci 

{ 


Struct ps * キ psp! 


if (flag !=Q&& flag != 1 ) 
return(-1)! 

else if ( flag == 1 && ( opXO 11 * ま op>7) ) 
Feturn(-1) 1 


else 
PSP = cgmlloc(1, sizeof (truct pg))! 
PSP->PSX ニ X『 PSP->PSY = Yi 
PSP->Pscolor = (flag == 1)? *op : fo# 


Pー>P8TS = ニ PSP5 
Feturn (0) # . 


coltest(P,。 flag。 oP) 
truct prog2 * ネ pi 
int flag。 *op# 
【 
struot c ※\cPI 


if (flag > 3) 

Feturn(-1) 5 /* ERORR キ / 
else 
| 


CcP = (struct c*)cmlloc(1。 sizeof (struot o))# 

cP->cfcolor = (bittest(flag。 0O) == 1)? op : fcolor# 
CP->cbcolor = (bittest(flagg。 1) == 1)? (op+1) : bcolor# 
Pー->P8T8R = CP3 

Feturn(O) 1 


} 


colexec (P) 
Btruct c *pI 
{ 
color((fcolor=p->cfcolor) 。 (bcolor=p->cbcolor) ) # 
1 


clgtest(pP。 flag) 
Btruct prog2 * ネ p# 
int flag# 

1 


if (flamg !=O) 
Freturn(-1) 3 

elge 

i 
P->Pera = NULLI /* no parameter */ 
return(O) # 


} 


crtest(P。 flag。 oOP。 x2。 y2。 fo) 
int flag。 * ま OoOP。 xX2。 y2『 
unSsigned char fol 
truct pro&g2 *p1 
{ 
Struct or crP1 
if ( flag != 1 && flag !=3) 
Feturn(-1) 1 
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elge if ( flag == 3 && ( (opP+1) く O 11 * ネ (op+1) >7 )) 
Feturn(-1) 1 

elge 

| 


crp = calloc(1。 gizeof (5truct cr))! 

CFP->CrX ニ xX21 CFP->Cry = ニ y2* 

CFP->Fad = * キ opt 

CrP->crcolor = ( flag == 3 )? ネネ (op+1) :i fct 
Pー->PaT8 ニニ CFP 

return(O) 1 


} 


Crexec (P) 
struot cr *p* 
〔 
circle( (x2=p->crx) 。 (y2=Pー>Cry) 。 p->Fad。 fcolor=p->crcolor)# 
1 


linetest(P。 flag」。 oOP。 ※1。 y1。 x2。 y2。 fC。 fig) 
int fla&g,。 *oP。 1。 y1。 x2。 y25 
unSigned char fig,。 fc# 
Btruot prog2 *p『 
{ 
Etruct | * ま |PI 
if (flag !=0&& flag != 1)* 
Feturn(-1)! 
else if (flag& == 1 && ( *oP<Q 1 *op>7) ) 
Feturn(-1) 1! 


elgse 

{ 
Ip = cmlloc(1。 sizeof(struct |))』 
lp->lx1 = x1# Ip->ly1 = y15 
IP->lx2 = x21 Ip->ly2 = y2* 


Ip->Icolor = (flag == 1)? op ! fcCW 

IP->fig = figi 

P->para = Ipi 

return(O) # /* mom erFOF キ ま / 


lineexec (P) 
Btruct | * ま P! 
line(p-> lx1。 p->ly1 。 Cx2=p-> lx2) 。 (2=p-> 1y2) 。 PSET 。 キ 
fcolor=p->lcolor』。 P->fig) 3 
} 


PBexec (P) 
Struct p5 pi 
| 
PSet( (x2=pー>PSxX) 。 (y2=pー>pSy) 。 fcolor=p->pscolor 。 PSET) 『 
} 


getcom (com ,。 OoP) 
char *com* 
int *opi 
1 
char ws[NLEN]* 
int c。 fla&g。nEMAXOP] 。 i。 counti 


for (=08 iMAXOPI ++i) 


nti] = 0 
flag &= 0H 
uhile((c=getchar (〈) == ! ! | C == *"\m) 11 C == "!\ も t\) 
日 /* ま BKip SpPace キ / 


If ((c く "aga) Il c > "z7) && (Cc < く YA! 1 c > "2Z2%) &8 c != Ox1b) 
〔 
clr_buf Oi 
return(-1) 3 
) 
else 
キネ Com++ = tolower (o) 
while((c=getchar () ) >=Ya! 8&8 CcC く = リ ァ 7 11 Co>= ニ YAY &8& C く = リフ 5) 
キネ com++ = tolower (oc) # 
*com ニー" ギ QY5 
目 人 まま CGC で 5 れ あう 
Feturn(flag) * 
else 
1 


ungetc(c。 stdin)# 
1 = 05 
count = 0 
do 
c = getcharOI 


if ((C== リ ー! 11 C== リ +! 11 Co>=*YO* && C く =*!d!) 8&& i く NLEN-1) 
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us[i++] = Go3 
else if ( c == !。? 1 C == "\n* ) 
( 

if (i==O) 

〔 


nLcount] = 0 
flag &= "power(2。count) * 


elge 


ug[i] = *\0!* 
nLcount] = atoi (ug) # 
flag |= Power(2。 count) # 
} 
COUn 上 ++# 
1 = 0 


) 
) uhile( Cc != "\n' && count < MAXOP) 1 
1f 《 o != "nm* ) 
clr_bufOI /* clear buffer * ネ / 
for (i=04 i く MAXOP3 ++i) 
* ネ oP++ =n[i]# 
Feturn(flag)* 


) 
clr_-buf 0 
1 


uhile( getcharO != *\ ぎ mn) ) 
* 


/* cleamr buffer * ネ / 
] 


Pouer (X。 nm) 


int x。n* 
t 
int Pp# 
for ( p=1! n>0W 一 -n) 
P = P*x! 


Feturn(pP)『 
} 


#define COMNUM 13 


c_-Code (command) 

char *command! 

〔 
Btatic char *c_name[] = 
〔 


27。 257。 7b 人 で 。 Can の 。 7C7。7P7。 7tP" 。 
2Po"。 "BC7 。 7m の 。 7GlB7 。 “0337 。 “Gr” 

)# 

static int c_tab[] = 

【 


LINE,。 BOX 。 BOXFILL 。 CANCEL 。 COLOR。 PAINT 。 TILE,\ 
POINT 。 GCURSOR , MOVE 。 CLS 。 ESC 。 CIRCLE 

1# 

int ii 


for (ji=08 i く CONNUMI i++) 
if ( gtrcmp (command。 c_name[i]) == O ) 
Feturn(c_tab[i]) 1 
return(-1) 3 
} 


#define COMNUM2 7 


c_-code2 (command) 
char *commandi 
〔 


Btatic char *c_name2[] = 
【 


"も 。 7d7。 の 7 。 7e7。 7tD7。 7 te" 。 “Uit" 
at int c_tab2[] = 

TRACE 。 DELETE。 INSERT 。 END。 TBEGIN。 TEND 。 QUIT 
int 


for (iji=08 i く COMNUM25 ロキ +) 
1f ( gtrcmp (command。 c_name2[i]) == O ) 
Feturn(c_-tab2[i]) ! 
Freturn(-1) 1 





bittest( ぶ 。 n) 
int x。 ni 
{ 
return(( x>>n ) & OxO0001 )『 
1 
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extern unsigned char usrbuf[]i 
externi truct rob 
1 


unsigned char reqno。 statuss 

unSigned usroff,。 usrsegi 

unsigned char nofbyte。 null。 reserve。 r_bytes 
] rcbs 


g_-curSor (color) 
int color#i 
{ 


int ii 

resetkbO 

USFbuf[2] = Ox1f『 

usrbuf[3] = color# 

usFbuf[4] = 11 

usrbuf[5] = gethigh(x1) 1 usFbuf[G] = x11 
usrbuf[7] = gethigh(y1)! usrbuf[8] = y15 


g_-rcbnofbyte = d『 

g_-rcb.r_-byte = 7# 

BubinO* 

X2 = ctoi((unsigned) usrbuf[3]) + usrbuf[4]# 
y2 = otoi((unsigned) usrbuf [5]) + usrbuf[B]# 
setkbOI 


Saveg (Sa。 da。 byte。 Iime。 BC。 do) 
unsigned sa。 da。 byte。 |inest 
unsigned char sc。 dot 

〔 


uFbuf[2] = 0x331 /* ネ copy graphic vram command キ / 
uBrbuf[3] = gci 

usrbuf[4] = gethigh(sa) # urbuf[5] = sa# 

usrbuf [6] = gethigh(byte) # usrbuf[7] = bytet 

uBFbuf[8] = gethigh(lines)! usrbuf[3] = Iinest 


usrbuf[10] = dcs 
ugrbuf[11] = gethigh(da) usrbuf[12] = da 
g_-rcb.nofbyte = 131 
EuboutO『 
1 


unBigned char *Bppi 


digp_-SP (XY) 

int x。y! 

1 
int x1。 y1。 x2。 y2* 
unsi&gned char *&et_&a()# 


x1 = (x-4 >=0)? x- す 9 8 08 
y1 = (y-2 >=0)? y-2 i 0 
x2 = ( x+4 <= MAX_X )? x+4 』 MAX_XI 
y2 = ( y+2 <= MAX_Y )? y+2 』 MAX_YI 


SPP = get_ga(x1。 y1。 x2。 y2)# 
6 line Cx1。 y1。 x2。 y2。 PSET。 7。B)# 


era_-BP(X。 ツ ) 

in も t x。 yi 

{ 
int xx1。 y1。 x2。y2! 
unsigned char *&et_&aOI 


X1 = (て x-4 >=0)? x- す 4 5 01 
y1 = (y-2 >=0)? y-2 8 08 
x2 = ( x+4 < く = MAX_X )? x+4 』 MAX_XI 
y2 = (y+2 < く = MAX_Y )? y+2 5 MAX_YI 


Put_&a (x1。 y1。 x2。 y2。 spp, PSET) # 
free (BPP) 1 
} 


statio unsigned char * ま tI1[SAMPLE] 。 *tI2[SAMPLE] 1 
#define FORMARD 1 
#define BACK 0 


tileget(t1 。 2) 
unBigned char * ネ t1 。* ネ 21 
( 
int n。 tart。 mode# 


fd_aave() 3 /* ま save display field キ / 
frameO! /* digFlay frame キ / 
color(7。0) 1 
cldisp (tart=0) # 
mode = FORMARD5 
uhile((m=ngetO) く 0O Il n > SAMF.E-1 ) 
{ 


/* ま display solor 24 キネ / 
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if (m ==ー2) 
mode = BACKi 

else if (nm == -3 ) 
mode = FORMARD* 

if ( mode == FORUARD && (start+24) く 241 ) 
Start + ニ = 2 

else if ( mode == BACK && (Start-24) >=Q ) 
Start -= 25 

frameO! 

cldisp(Start) * 

} 


movmem(tI1[n]。 t1。 3) 1 /* set tile string to para キ / 
movmem(t12[n] 。 t2。 3)1 
fd_pop Oi 
cls(1) 
} 
ngetO 
{ 
imt i。 oi 
int ecode = -11 
char s[10]i 
while( ecode == -1 ) 
{ 
1 = 0 
locate (3.0)『 
Printf (PATTERN?= の 


locate(18。0) 3 
while( (c=getcharO) != *\n' ) 
{ 


uhile(c == ! け ) 
U 
if ( Cc == "+! 1 C == ツー? 1 o>=*0) && C く =!9! 
ELi] = ci 
ecode = 0 
} 
else 
ecode = -1! 


1+ ォ = (1 く 10)? 1 』 0* 
] 
if (1」i==O) 
ecode = ON 
) 


if ( | == ) 
Feturn(-1)* 
else if ( [0O] == "ー! ) 
Feturn (2) * 
else if ( [0O] == "+! ) 
Feturn(-3) # 
else 


return(atoi (s)) 1 
} 


cldisp (tart) 
int start*i 


int is 
for (=08 1 く 244 キ +1) 
| 


locate(75,i+1)! 

if ( ji+gtart < SANMPLE ) 

{ 
Printf ("SGd" 。 iT5tart) 1 
tpaint (53241 ま Y_DOT+Y_DOT+4 2。t11[i+Start] 。\ 

tI2Ei+5tart] 0。0。147) 5 

} 

else 
Printf の 

} 
} 


read_cl () 
1 
char *allocO! 


int ji。c』 
FILE *#fp。 *fopen()! 


fp = fopen("tcolor.dat"。 "FrB")# 
fread(&c, sizeof (int) 。 1。 fp)# 


for (i=08 IXCT ++i) 
{ 
tI1[i] = mlloc3) 5 


tI2Ei] alloc〈3) 1 
fread(tI1[i]。 sizeof (char) 。 3。 fp) 1! 
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fread(tI2[i]。 sizeof (char) 。 3。 fp) 
} 

fclose(fp) # 

Feturri(o) # 


1 
fd_save 
1 


Saveg (Ox02cb 。 Ox02cb。 5。 132。 Ox07 。 Ox17) 5 


} 
fd_pop 
1 


Saveg (Ox02cb。 Ox02cCb,。 5。 132。 Qx17。 Ox07) ! 


frame0 


1 
int ii 
line (600,Y_DOT ,MAX_X。MAX_Y。PSET 。0。BF) * 
line (624。Y_DOT iMAX_X MAX_Y。PSET 。7,B) # 
for (ji=151 i<=MAX_YI i+=Y_DOT) 
line(624。 1。 MAX_X。 |。 PSET。 7。 L)! 
} 





1 ニニ ーー ニニ ぺー キー ニー ーー ニー ニー ニニ ビニ ーー ニー ニー ニー ーー ニテ ニーー- デニ で ペニー ニニ ニー ニャ ーー 





/* ネ graphic tool program * ネ / 
#include “stdio.h" 
#include “gtdgra.h" 


#define MAX_X 633 

#define MAX_Y 133 

#define Y_DOT 8 

#define MAXCONM 10 

#define ERORR -1 

#define PROGRAM Ox100 

#define SPMOV Ox200 
#define NEMUFILE 0 

#define EXIST 

#define SAMPLE 253 /* ample tile string number */ 
#define MAXOP 8 /* ネ max operand number キ / 
#define NLEN 5 /* numerical operand max length */ 
/* ネ code macro definitiong ポ / 
#define LINE Ox300 

#define BOX Ox301 

#define BOXFILL 0x302 

#define CANCEL Ox003 

#define MOVE 0x204 
#define COLOR Ox30C 

#define DELETE Ox2O0B 
#define PAINT Ox305 

#define TILE Ox306 
#define END 0x20A 
#define TRACE Ox203 
#define POINT Ox307 
#define GCURSOR Ox008 
#define CLS Ox30D 

#define INSERT OxOOF 
#defime ESC 0x210 

#define TBEGIN Oxo11 

#define TEND Ox012 
#define QUIT 0x013 

#define CIRCLE Ox314 


static int x1。 y1。 x2。 y21 


static int fcolor, bcolor。 ccol。 hcoli / ネ Current color ariga キ / 
/* command Bave Structure */ 
/* code and parameter pointer*/ 
/* poimer for p_code */ 

/* ま program Counter キ / 


/ 六 current program counter ポ / 


Static gtruot pro&2 

{1 int code21 char Parai 
Static truoct prog2 *pc[5000] 1 
Static int count# 
gtatic int ont# 


}# 


/* ネ parameter struoture for each function キネ / 


static 


static 
| 
tatic 


static 
{ 
static 





{ unsigned char cfcolor。 cbcolor! 


truot | 
int lx1。 
truct p 
int px。 PyI 
truct tp 
int tx。 ty! 
Btruct ps 
int psx。 PSYI 
truot c 


Ily1。 Ix2。 Iy25 unsigned char lcolor。 fig 11 


unsigrned char pcolor,。 pbnom。 pbcolor[7]! 1# 
unBigned char t 上 1[S] 。 t2[3] 。 tbnom。 tbcolor[7]! }5 
unsigned char pscolort ]! 


1 ! 
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間 
Btatic struot cr 


main (ar&c。 BrgV) 
int argcos 

Char *ar&v[]i 

{ 


clg(O) 1 
〔 


} 





trc_exec(flag。 oP) 
int flag。 *opt 
{ 

int 


* ネ op 
from = 


from 


} 


x1 x24 


C_-exec 1 (P) 
truct pro&g2 *p# 
t 


case( 
case( 
case( 


case( 
case( 
case( 
case( 
case( 


case( 


fileopen(filename。 
char *filename* 
int ※\f『 
1 
FILE * ネ fopen 
char s[11]* 





1 int crx。 cry。 radi 


creen(0。0。0) 『 


( flag == 0) 
if (*#op > 0) 
〔 


08 
cnt = before = 


unSigned char crcolor# 


in も t flag。 code 。 op[MAXOP]! 
char command[MAXCONM]* 
FILE *fopen (0) 。 *#fpi 
if (grgc != 2) 
bort“-file name i5 required\n") 1 
fp = fileopen ( ネ ++argv。 &flag) * 
if ( fp == NULL ) 
abort(“"file erorr has ocurred\n“) 1 
elge 


/* ま screen mode elect */ 


if (flag == EXIST ) 


Feadprog(fp)! 
trace(0。 count) !# 


from, beforet 


1 : * ネ oP! 


cnt* 
cnt = before 


( cnt+* ネ op > count )? count : cnt+*op! 


/* ま from beginning ネ / 
( cnt+* ネ op く 0)? 0 i cnt+ ネ op* 


trace(from。 before) ! 


y1 = y2! /* ネ get current position ネ / 


Suli tch (P->code2) 
〔 


LINE ): 

BOX )* 

BOXFILL ): 

lineexec((struct | *) (P->para) ) 1 
break1 

POINT ): 

PBexec((5truoct ps *) (P->parga)) # 
breaks 

PAINT ): 

Ptexec((5truot P *) (P->parg))! 
breaki 

人 ま E か 

tileexec((struct tp *) (P->para)) ! 
break* 

CIRCLE )* 

crexec((5truot cr ネ ) (P->para))『 
break* 

COLOR ): 

colexec((Struct c *) (p->para) ) # 
break$ 
CLS ): 
cls(5) 1 
break3 


/* graphic screen clear キ / 


f) 


s キネ fPt 
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if ( strlen(filemame): 8 ) 
Feturri (NULL) 
strcpy(s。 filenmame) # 
stroat(5。 “".g7)* 
fp = fopen(5,。 “Fub“) 3 
if ( fP == NULL ) 
{ 
fP = foper(s」。 “wb“)5 
ま f = NEMFILEi 
} 
else 
ま f = EXISTi 
Feturri(fp) # 


FeadPprOg(fP) 
FILE キ fp* 
1 
int i。 size! 


fregmd(&court,。 sizeof (int) 。 1。 fp) 5 





for (ii=08 iScounmt3 ++) 

〔 
Pc[i] = (struot progz *)calloc(1, sizeof (Struct prog2)) 3 
fread(&pc[i]-:code。 sizeof (int) 。 1。 fp) # / キ code remd キ / 
Size = P_-Size(pc[i]->code2)# 
Pc[i]-:para = calloc(1。 size) 
fread(pc[i]-:Para。 size。 1。 fp)i 

] 

fseek(fP。 QL」。 ロ 0) 1 / ま rewird head of file キ / 


F-Size (code) 
Int codei 
{ 

Int sgizes 


Suitch( code ) 
(| 


case( LINE ): 

case( BOX ): 

case( EOXFILL ): 
size = sizeof (struoct 1) 
bregEi 

case( POINT ): 
Size = Sizeof (Struot p5) * 
breai 

case( PAINT ): 
Size = sizeof (5truct p) 3 
bregEs 

case( TILE ): 
Sire = 5izeof(struot tp) 
breaEi 

case( CIECLE ): 
Size = sizeof (struct cr) 
bregki 

case( COLOE ): 
Size Sizeof (struot o) 1 
brea 

case( CLS ): 
Size = ロ H / キ mo parameter i5 required キ / 
breaki 

defaulti 


1 
Feturn(size) 
1 


tileexxec (P) 
Struot tP キ ま Pi 
{ 
tpPaint (CK2= ニ ロー テモ ti:) 。 (yp ロー> ty) 。 2 。 Pー->t1 。 Ppー> キ トモ 2 。 0。 ロ 。 P->tbnom 。 
P-:tbcolorLQ] 。 p- テ tbcolor[1] 。 p->tbcolor[2] 。 p->tbcolor[3] , キ 
P-*tbcolor[4] 。 p-:tbcolor[5] 。 p->tbcolor[E]) # 


Ptezxec (P) 
Struct P まま pi 
{ 
Paint((2 ニ ローPt) 。 (ツタ =pー>py) 。 fcolor=P->pcolor 。 p->pbriom 。 ギ 
| P- テ Pbcolor[QO] 。 p-:pbcolor[1] 。 p->pbcolor[2] 。 p->pbcolor[ ヨ ] 。 キ 
} 








P- テ Pbcolor[4] ,。 p->pbcolor[5] 。 p->pbcolor[E]) 
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trace(from,。 before) 
int from。 before} 


{ 

char gs[100]! 

in も t il 

if ( from ==O) 

〔 
color((fcolor=7) 。 (bcolor=0) ) # 
x2 = x1 = MAX_X/2* y2 = y1 = MAX_Y/2* 
cls(5)# 

1 


for (i=fromi i く before# ++i) 
c_-exec1 (pc[i])# 
X1 = ぶ 2* y1 = y21 /* ま et current position キネ / 
return(O) 
] 


crtest(P。 flag。 OP」。 ※2。 y2。 fC) 
int flag。 キネ oOP」 x2。 y2『 
unSigned char fci 

Btruct prog2 * ネ p$ 


Struot or *crP# 

if (flamg != 1 && fla& !=3) 
Feturn(-1) 1 

else if ( flag == 3 && ( (op+1) く 0 11 * ま (op+1) >7 )) 
Feturn(-1) 1 

else 

1 

| crP = cmlloc(1。 gizeof (5truot cr))! 

| crP->CrX ミニ X2 CrP->cry = y21 

CrP->rad = op1 

crP->orcolor = (flag == 3 ) ツ * ネ (op+1) i fo3 

P->Para = CFP5 

Feturn(O) ! 


} 
Cre※XeC (P) 
Struct or キ ま pi 
【 


circle( (x2=P->crx) 。 (y2=P->CFy) 。 P->Fad。 fcolor=p->crcolor) ! 
} 


colexec (P) 
Struct co まま pi 
1 
color((fcolor=p->cfcolor) 。 (bcolor=p->cbcolor) ) 1 
} 


clstest(P。 flagg) 
Struot prog2 pj 
int flagt 
1 
if (flag !=0) 
Feturn (-1) 1 
else 
1 
P->Para = NULLI /* no Parameter キネ / 
Feturri(Q) 3 


} 


lineexec (P) 
Struot | * ま pH 
{ 
line(p->lx1。 p-> 1y1 。 (Cx2=p-> lx2) 。 (y2=p-> 1y2) 。 PSET 。\ 
fcolor=p->lcolor 。 P->fi&g) 1 
} 


PSe※ec (P) 
Struct PB キ pPi 
〔 
PSet( (x2=pー>pSx) 。 (y2=pー>psy) 。 fcolor=p->pscolor 。 PSET) # 
} 


Powuer (※。 m) 
int x。 ns 


int pi 

for ( p=1i n>0W 一 -n) 
P = P*xi 

Feturri(P) * 
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最近 フロ ッ ピ ー デ ィ ス ク 装 置 が 求め や すく な り , 読 
者 の 中 に も ディ スク を 使う 人 が 増え て き て いる と 思い 
ます . 確か に ディ スク は 便利 な の で す が , 枚数 が 増え . 
て くる と その 整理 は けっ こう 大 変 な も の で す . ファ イ 
ル を 他 の ディ スケ ッ ト に 移し 変え よう と し た と き , 
BASIC プロ グラ ム の 場合 に は , LOAD, SAVE の 繰り 
返し さえ いと わな けれ ば 何と か で きま す が , マシ ン 語 プ 
ログ ラム は 開始 番地 な ど を いち いち 調べ る 必要 が あり , 
デー タ ・ フ ァイル の コピ ー は か な り 面 倒 で す . 

そこ で , FM-7/11 用 の 便利 な ディ スク 間 フ ァイル 転 
送 プ ログ ラム を 作り まし た . 











% | @ 特 微 











@ ファ イル 名 を 入力 する だ け で , マシ ン 語 プロ グラ ム で も , 
デー クタ ・ フ ァイル で や ,、BASTGC: デ ログ ラム へ で ね (だ と え ジ ンジ 
ロ テ ク ト し て あっ て も ), 無 条件 に コピ ー で きる . 

@e FM の DISK BASIC と コン パチ な ディ レク トリ と 
FAT を つく る だ け で な く , ディ スク の 書き 込み フォ ー マ ッ 
ト も まっ だ たく コ ン パ チ プ ブル で ある . 

@ ゅ ディスケット 1 枚 分 の 全 フ ァイル を コピ ー す る コマ ンド 
を 持ち も 、 プ ラン ク ・ デ ィ ス ケッ ト に コピ ー し た 場合 に は , オ 
リ ジ ナ ル ・ デ ィ ス ケッ ト 上 で と びと び の クラ スタ に 存在 し 
て いた ファ イル で も , ディ レク トリ の 順に 連続 し た クラ ス 
タ に 書き 写 さ れる . これ で FAT や ディ レク トリ の 誤 消 去 
が あっ た 場合 で も ディ スク の 回 復 が し や すく な る 。. 

@ この 機能 を 持ち な が ら , 1 クラ スタ に お さま っ て いる . 


過 se プ ログ ラム の 合い 方 


プロ グラ ム は 正確 に 入れ て くだ さい . この プロ グラ ム の 
入力 ミス は ディ スク に と っ て 致命 的 で す . RUN する と 
*Filecopy Drive 0-…1/Return, *※, Filename 三 ′ と 聞い 
て くる の で , この うち , 1 つが 選べ ます . この 段階 で は デ 
ィ ス ケッ ト の 差し 替え は 自由 で す . 
オリ ジ ナ ル ・ デ ィ ス ケッ ト を ドラ イブ 0( 左 側 ) に , コピ ー 
し だ たい ディ スケ ッ ト を ドラ イブ 1 に 入れ て くだ さい . ド ライ 
プ 0 に ある ファ イル の 名 前 を 入力 し た 場合 に は , その 後 , 次 

















写真 1 全 フ ァイル を コピ ー 中 , ノ 
R・ 


PE る も 1 1 
Pe 三 


RT と の ・)- う ミコ ・| 
3 と スコ ・| 
に (1 コ 抽 1 の ノ Cop ied 
KNON ノ Cop ied 
ST.0J と いよ -・| 
SPKS | 
回 ノ /Cop ied 
SPB24 ノ /Cop ied 
に 貞 り ノ /Cop ied 
に ) 4: チャ 】 と スタ:・| 
人 スコ ・| 
STaRTUP ノ Copied 
SPFHRKE /Copied 
SPF ノ Cop ied 


表 1 エラ ー メ ッ セ ー ジ 








Filename Too Long: 入力 し た ファ イル 名 が 8 文字 を 超え て いる 
(この ファ イル 名 は 無視 され る ). 

(Filename)/Not Found :. 入 力 し た ファ イル 名 が ドラ イブ 0 の ディ 
スケ ッ ト に 見 当たら な い (この ファ イル 名 は 無視 され る ). 

(Filename)/Duplicated : 入力 し た ファ イル 名 の 間 に 同 一 の も の が 
重複 し て いる (1 つ だ け コ ピー され る ). 

(Filename)/Already Exists : 入力 し た ファ イル 名 と 同一 名 の ファ 
イル が ドラ イブ 1 の ディ スケ ッ ト に ある (この ファ イル は っ コ 
ピー され な い ). 

Disk Ful: ドライブ 1 の ディ スケ ッ ト の 空き 領域 不足 の た め 現 在 
処理 中 、 お よび それ 以降 の ファ イル は コピ ー で き な い (処理 
済 の ファ イル は 正常 に コピ ー さ れる ). 

(Filename)/FAT Error: ドラ イブ 0 の オリ ジ ナ ル ・ フ ァイル に 関 
する FAT に エラ ー が ある (正常 終了 し て いな い ) た め , コピ 
ー を 行なわ な い ( 他 の ファ イル は コピ ー さ れる ). 

Directory Ful: ドラ イブ 1 の ディ スケ ッ ト に 空き 領域 は ある が , 
登録 デア ィ クト リ イ が 232 個 以上 で ある た め , コピ ー で き な い 

(この エラ ー は 正常 に DISK BASIC を 使っ て いれ ば 決し て 
出 な い が , ディ クト リ 領 域 が 何ら か の 理由 で 複製 され た り し 











た 場合 に 出る . この エラ ー 以 前 の ファ イル は 正常 に コピ ー さ 
れ て いる ). 

No File: ドラ イブ 0 の ディ スケ ッ ト の ディ クト リ が 空 で ある た め , 
コピ ー で き な い . 











々 と Filename デ ” と 聞い て くる の で , 1 一 152 個 まで の 任 
意 の 個数 の ファ イル 名 を 入力 し て , 最後 に [RETURN| だ け 
を 入れ て くだ さい (ファ イル 名 は バ ” で 囲ま な い ). 

入力 され た ファ イル が ドラ イブ 0 の ディ スケ ッ ト に 実際 
に ある か どう か (60 一 80 行 ), それ ら の 間 に 重 複 が な いか 
(90 一 100 行 ), ドラ イプ 1 の ディ スケ ッ ト の ファ イル 名 と 一 
致し て いな いか (110 一 120 行 ) を チェ ッ ク し , ディ スケ ッ 
ト の 空き 領域 を 探し (130 一 140 行 ), FAT エラ ー の 有無 を 
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&O 


チェ ッ ク (150 行 ) し た の ち , クラ スタ 単位 で ファ イル の 本 体 
を コピ ー し ます (160 一 170 行 )、 この 後 デ ィ レ クト リ を 書き 。 終 
換え (180 行 ), 最後 に まとめ て ドラ イブ 1 の FAT を 書き 込 %z | @ 終 わり に 


ん だ 後 。 初期 状態 へ 戻り ます. 


























@ 最 初 の Filename=” に 対し て ヾ *? を 入力 する と , ド ささ や か な BASIC プ ログ ラム で す が , 使っ て みる と 結構 
ライ ブ 0 の ファ イル を 調べ , ドラ イブ 1 と 重複 が な けれ ば そ 便利 で す . な お , プロ グラ ム に 空白 や REM 文 を 1 個 で も 入 
れ ら を 全部 コピ ー し ます . 2 回 目 以降 の ^Filename=? に れる と 1 クラ スタ に は お さま ら な く な り ま す . 

対し て ~*? を 入力 し て も , この モー ド に は な り ま せん . 参考 文献 

最後 に [RETURN| だ け を 入力 する と プロ グラ ム は 終わ り YEF-BASIC 文 法 書 ” 富士 通 

まま 9 


EE イリ ノレ コピ ビ ピー プロ グラ ハム ・ リス ト EE 





1 CLEAR9 ウ の 9: DEFSTRR-6』 DEF INTH-R:DIME(151 ) 。 ビ (2 ス 1 ) 。6(15) 。M( 151 ) : ロニ ビ HR ま (@) : ビニ ビ HR 生 ( 


で らら 5 ) 


2 FIELD# の 。12BRSR (の) , 12BQSA( 1 ) : DEFFNF ( 1 ) =( エ + ブ )\4: DEFFNGO( 1 )=(( エ + ブ 7) MOD4 ) 日 +1 
さ @ H= の IFRINTiFRINT "Fi1ecopy Drive ーー ジ 1 / Return。 %。 リョ 


本 に 
4 LINEINF'IUT "Fi1ename = リ "。E(R) : IFLEN(E(R) ) 日 THENEEEF FRINT "Fi1ename Too Long": GOD 
TO49_ ELSEIFB(@)="! THENEND ELSEIFE( の )="*" THEN5g ELSE6 


9 BOBSUERS の OR=L』 TFL= の 、 THENS4 ウ ELSEFURI= ロ TOLー1 : E(1) =C(TI) : BODTOBg 

6 の IFE(R): "RNDRS 15 人 2 THENE(R) =LEFT ま (B(R) +STRTNG$ (日 」" ") 。B) 』R=R+1 : GUTO49 

7 の BHSUES の iTFL= の THEN249 ELSEFDR エ = の TUR-1 : FURJ= ウ TDL-1』 IFINSTR(C(J) 。E(1) ) の THENB 
(1T)=C(J) ELSENEXTJ』 EEEF FRINTB(T)+"/Not Found 

B_NEXTIi IFR=1 THEN1 1 の 

79 FURT= の TUR-2: ITFLEN(B(T1) ) =B THENNEXTT GBDTO11g 


1 の FURJ=1+1TOUR-1 : IFE(1 ) =B () THENE( 1 ) =LEFT ま (RB(1 ) 。 日 ) : BEEF : FRINTE(T)+"/Dup1 iCated 
"sgNEXTT_ ELSENEXTJ , 1 


11 日 =1:GUSUES の の : IFL= 切 THEN1 さ の 

128 ウ FURI= の TUR-1 』 FDRJ=gTDL-1: IFINSTR(C(J) 。LEFT ま ま (E(T) 。B) ) > の THENE( 1 ) =LEFT ま (BB(1) 。8) 

: BEEF':FRINTE(T)+"/A1ready Exits"sNEXTI ELSENEXTJ ,。 1 

| 13 FRINT:FUR エ = ウ TDR-1 』 =LEN(BH(1 ) ) 一 16』 IFH く 1 THENNEXT Ti GUTU19 の 9 ELSENM= の 

14 ゆ の FURJ=g ウ TOUH-1: MM(J)=INSTR(M+1 。E』 ビ ) kN=N (J ) : IFM= ニ の THENBEEF' iPRINTiFRINT"Disk Fu11" 

s GUTU19 の ELSENEXTJi MID ま (B(1) 。155。 1 ) =CHR 和 ま (M (の) 一 1 ) 

15g の し =RSC(RIGHT ま (BE(T) 。1 ) ) : IFL 199NDL く >25 さ THENBEEP:FRINTLEFT 還 (BE(1) 。1)+"/FAT Er レヒ 

or "giNEXT1TiGOUTOD19 の 

16 の FURJ= の TODH-1 』F=QSC (MID まま (BE(T) 。16+J) ) 』 IFJ ミ ロー1 THEN ロ =7』 =EHR ま (MM( ゴ +1 ) 一 1 ) ELSETFL= 

で ら さ THENA=CHR$(L ) : BHTH1Bg ELSE ロ = ニ Lー192』 =CHR(L ) 

17 の FORK= の TOG: D=DSRT ま (の 。FNF(F) 。FND(F) +K) (2* ド ) =( の ) 』 ロ (2* ド +1 ) = 人 (1 ) si NEXTK』 FUR ド = の T 

OGlz LSETA (の) = は (2x ド ) :LSETA(1) =B(2xK+1 ) 』 DSKO ま 1 。FNF (MM (J) ) ,。FNG (NM ( け ) ) + ド si NEXTK 

189 MID ま (E。M(J) 。1) = NEXTJiM=INSTR (F , ビ ) : IFM=g THENBEEP:FRINTiFRINT "Directory Fu1 

1 リ ELSED=DSRT(1 。 1 。 (Mー1 ) \ 昌 +4 ) s MTD ま (人 (((M-1 ) MOD 日 ) \4) , さ 2x((M-1 ) MUD4)+1 , さ 2) =LEF (BE 
(1) ,15) +STRINB ま (17 。BH) : DSKU ま 1 。 1 。(Mー1 ) B+4』 MTD ま (F 。M。 1) =BsPRINTLEFT 和 ま (E(1) , 日 )+"/Eopi 

ed"sNEXTI 

19 の G(g) =B+TSTRING ま (4 。 じ )+LEFT 和 ま (E』。12 さ ) : ロ (1)= ニ MID ま (E。124) +STRING ま (994C) iLSETA( ウ ) =G(g 
iLSETA(1) = は (1 ) : DSEOD ま 1 。 1 1:R= ウ gg GUTH さ の 

rg D=DSET 生 (日 。 1 。 1 ) 』E=MID ま (人 (の ) ,6) + し LEF 征 生 ( 谷 (1 ) 。29) : し = の ウェ ュ F=STR TNGB ま (2 さ 2 。 ビ ) 

=19 FORT=4TOSID=DSBET ま (日 。 1 。T) :FHRJ=TUT: FURE= ロ T ロ ささ: D=MITD ま (QR(J) 。32% ド +1 115) s ITFASC(D 

) = の THENSS ELSEIFASC(D) =255 THENRETURN ELSEN=QASC (MID まま (D。155) ) iMID ま (F 。( エ ー4) * 昌 +Jx4 





N=N+ 1 : D=D+CHR ま (N) 』 N=RSC (MTD ま (E』N) ) : IFN テ 151 THEND=D+CHR ま (N) giC(L) =DiL ヒ = し +1 ELSE 


NEXTE 。J』TERETURN 
EEEFFRINT "No File'iEND 














『7ozozse を だ で 」 の 変更 ・ 追 加 リ スト 


1 の DD= ニ の ょ DTRー* じ LR ドー フェ メニ < =1 』 YY テロ B デ テロ 
7 46| | CC ED 【 *JpushEX]ipushEFYJpushEXX コ ipushFYY]i ロ ot キロ 刀 
ご I [ 
較 横 井 幸彦 < ) Ju は 1 YY X%=pu11F 上 ] コ agY= ロ pu11E]』X=pu11FJiCLR=pu11F]5DIRE RCC ビ テ pu11F] ユ 3 ロロ 


K コン バイ ラ の tortoise の 機能 制 |: ・ ュ XX ニュ YY=* BHT vcdi 
限 で ある , 精度 を 実用 上 問題 の な い 1“78O OneXYi 0 eS こ yo 
よう に で きま す . 右 の よう に 変更 27B5 / St=BTNLI BL1= (ST) ]: DBMESTEF]』 DBME5561』 DEDF251 ュ XT=ANS[ ]*SBN (BS 
追加 し ます . 279M XF=UPFXT]s MNE XT]:』 X=X FXX+TXBi X=X+UPEXX] JMNE XX] 

「 内 容 」 三 角 函 数 の 精度 は その まま |sggg っ STEP』 YF=UPEYT1: DOMNEYT コ sY=YーYFs YY-YBiY=YTUFEYY コ YYsD ロ 
で , 乗除 算 の 桁 落 ち を ふせ き , 疑似 YY1i RET 
的 に 小数 第 2 位 まで 有効 に し た だ け 
で す 。 し か し , これ だ け で 360(FR) NETURN 
は 円 に な り ま す . また 縦横 の 比率 は |: DB ETURN 
1/. 4495 に より 近い 56/25 に 変更 し |:g55 1/DD L1-Dn Ei D D*19)/DDI DEL 1mDORETURN 
て あり ます . 
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、 作 、 作 、 8 の 
の の の の の 696 
@@ ら @@@@9 


 @ 、A 及 尺 


ら @⑥@⑥@ ら @@@@・ 
@ ら @@@ ら @@@@、 
\ ゅ [9l@ @ @ @ 
@ ら @ ら @ ら @ ら @ ら @@@ 











RUN 
Tortoise は , 人 工 知 能 研究 用 に 開発 され た ,“Lis p" の 派 人 ター トル は , 中 央 (3 
生 語 で あり , 最近 評判 の 高い 」“"Logo" の グラ フィ ッ ク 機 能 180 0' 20.100) に いて , 上 (North= 


を 取り 出し た 趣 サ プ セ ッ ト 言 語 で す . ここ で は , !/O83 年 1 , OM SONS 


2 月 号 の S. tanaquax 氏 の Pascal 版 を , BASIC で 移植 し て 


み ま し た . BASIC イ ンタ ー プ リン タ て 記述 し た た め , 甚だ 270 
実行 速度 が 遅い の で す が , フル セッ ト を 購入 する 費用 を 考 
えれ ば, 再帰 呼び だ し も 可能 な , 本 Tortoise は 充分 reasona- * Ready AN0 


ble な も の だ と 思い ます . 


使用 法 そ の 他 











基本 


コマ ンド 表 ( 表 1) を 見 て くだ さい . 基本 的 な 使い 方 は , 
これ で わか る と 思い ます が , 実際 の 実行 の 様子 を 6 角形 の 図 2 
作図 を 例 と し て , ie に 示 ル ます > これ で 。 い た だ たい 

ョ ユ グラ ム 手中 あぶ > まず は ダイ レク ト に ., 
の プロ グラ ム 手 順 が の みこ め る で し ょ う . 20F 60L 


再起 20 歩 上 に 進ん で , 60* 左 へ 向く . これ を , 6 回 繰り 返せ ば , 6 角 
形 が 描け る が , 面倒 な の で , 一 度 消し て プロ ッ ク 化 し よう . 














さて , も う ひ と つ , Tortoise の 特長 で ある 再帰 的 図形 を 
描く 例 と し て , 2 次 の 凹 ク ロス ・ ス テッ チ を 描く プロ グラ * Ready 
ム と , 実行 例 を 図 7 に 示し ます . 再帰 に つい て 書く に は , 20500 
余り に 紙面 が 足り な い の で , 最後 に 挙げ る 参考 娘 献 や ,Pas 
cal の 入門 書 な ど を 読ん で みて くだ さい . 

再帰 呼び 出し は , その 構造 か らし て な か な か に 面白 く ., 
アイ デア 次 第 で いろ いろ と 楽し い 図形 が 描け ます . 有名 な 
も の に は , ドラ ゴン 曲線 ,。 ヒル ベル ト 曲 線 , シェ ルビ ピン ス 
キー 曲線 な ど が あり ます . ーーーー 

















エディ ッ ト に 関し て は , BASIC の エ テ ィ タ 機能 が その ま 


エラ ー 関 係 ま 使 を える の で , 大 変 便利 に な っ て いま す . 手続 き の 内 容 を 

表 2 に エラ ー メ ッ セ ー ジ と 対処 法 を 示し まし た . 特に 手 変更 し た いと き な ど , 新しく 書き 挽 え ず に “ ン " コマ ンド 
続き 名 は , 指定 範囲 内 (キャ ラク タコ ー ド &H 5B 一 &H で リス ト を 取っ て , 頭 の 部 分 を Dn と し , 以下 重ね 書き や 前 
70) の 中 で 使っ て くだ きい. 原則 と し て , 英 小 文字 だ け で 除 , 挿入 な どす れ ば 良い の で す ・ 


充分 間に合う は ず で す . BASIC 側 で エラ ー が 出 て し まっ た 


場合 は , 残念 で す が 最初 か ら や り 直 し で す . プロ グラ ム に つい て 


Fi デイ 多 
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ー 還 交 着 (6 








6(20F 60L) 





解読 


プロ グラ ム は Pascal 風 に モジ ュー ル 化 し て ある の で , リ 
スト を 追っ て 行け ば , 特に フロ ー チ ャ ー ト を 起こ す 必 要 も 
な く , 解読 で きる と 思い ます . メン テ ナ ン ス の 手 助 の た め 
に , 変数 リス ト ( 表 3) を 付け て お きま す . 


コマ ンド 増設 

PAINT な どの コマ ンド を 増設 し た い 方 は , Procedure 
Eval の 部 分 に IF コマ ンド THEN 処 理 モ ジュ ー ル の よう に 定 
義 す むす れ ば , 好き な よう に 増設 する こと が で きま す . た だ し , 
引数 類 の 変化 に 充分 気 を つけ て くだ さい (特に 再帰 的 呼び 
出し する 場合 ). 

ャ アド 

再帰 呼び 出し 

Procedure Eval,Test,Sense,User に お いて , 再帰 的 
呼び 出し を し て いる 部 分 が あり ます . この 部 分 は BASIC で 


66 





図 7 クロ ス ・ ス テッ チ 


Da6(20F 60L) 
Defined グ 





図 6 手続 実行 






| ais 620F60L) 





うま く 書 く た め に 工夫 が し て あり ます . EC, P, FP な ど を 
スタ ッ ク と し て 用 意 し た 配列 に , PUSH し て , 再帰 呼び 
出し た 後 リ ター ン し て きた 時 点 で . PUL 工 , スタ ッ ク ・ 
ポイ ンタ を デ ク リ メン ト す る , と いう 方 法 を と っ て いま す . 
マシ ン 語 で 書く の と 同じ し よう な も の で す . 

実行 速度 

実行 速度 の 遅 き を , いく ら か で も 解消 し た い 方 は , まず 
一 切 の REM 文 を 消去 し , リス ト の 空白 部 分 を みん な つめ 
て し まっ て みて くだ さい (この 際 , GOSUB な どの 飛び 先 
に 注意 )、 いく ら か は , 速く な る で し ょ う . 

また , 実行 速度 を 遅く し て いる 他 の 原因 と し て は , 実行 
中 の 行 の 直前 に 飛ば す よ うな GOTO 文 (ほとん ど な い ) や , 
文字 列 処理 中 の が ガベージ コレ クシ ョ ン (ここ で は , 特に C 
MS$ の 処理 )、 プ ログ ラム の 流れ が 直線 的 で な いこ と ,EVAL 
に お ける 判断 の 時 間 , 再帰 呼び 出し を 行なっ て いる こと な 
ど が ある と 思い ます が , 筆者 は 所 唐 BASIC で 記述 し た も の 


表 1 コマ ンド 


,O 


・ 使 用 










































































重 記 Forward 一 歩 前 進 (足跡 を 残し て ). nF。 n は 画面 内 に お さま る 範囲 に 限る . 
作 J Jump 一 歩 ジ ャ ンプ (足跡 残さ ず ). npJ。n は 画面 内 に お さま る 範囲 に 限る . 
C Clear 画面 を 消去 (足跡 消す ). C, A, Rot は 変化 し な い . 
位 R Right 右 方 向 に 1 度 回 転 . 90R, 90* 右 に 回 転 . 
し Left 左 方 向 に 1 度 回 転 . 80L, 80' 左 に 回 転 . 
県 と ター トル の 垂直 位置 を 設定 . 20 へ で , 下 か ら 20 歩 の 位置 に 設定 
了 > ター トル の 水平 位置 の 設定 40> て, 左 か ら 40 歩 の 位置 に 設定 . 
向 H Home ター トル を 中 心 に 置く . H, (320, 100) の 点 に ター トル 位置 を 設定 . 
N North ター トル を 上 方 向 (90*) を 向 か せ て 置く . N, 90" 方 向 に ター トル が 向く . 
変 A Accum later グロ ー バ ル 変 数 (A=0). AF, AU な ど で , それ ぞ れ A の 値 だ け 動 作 する 。 
FN 十 increment A に 1 加え る . 2 +, A の 値 を 2 イン クリ メン ト す る 。 
算 decrement A か ら 1 減ら す . 3 一, A の 値 を 3 デ ク リ メン ト す る 。 
3 定 Test T(a)(b). A> 0 の と き a を , そう で な いと き b T (90R) (60F) 
件 を 実行 する . 
前 S Sense S(a)(b). 進行 方 向 に 既に 足跡 が あれ ば , a を , そ S (10F 90R) (10F 90L) 
う で な いと き b を 実行 . 
? Random ?(a)(b). 乱数 に よっ て a か b を 実行 する . ? (50J 60L) (10F 20R) 
D Define 手続 き を 定義 する . Da4 (10F 90 し ) 
定 ※ た だ し , 手続 き 名 は , 英 小娘 字 お よび , いく つか の 一 辺 が , 10 歩 の 左巻き 正方 形 を 描く 手続 き が 定義 きれ 
義 特殊 記号 . る 。 
キャ ラク タ ・ コ ー ド  &H5B 一 &H70 
繰 返 ( n(a). a と いう ブロッ ク を n 回 繰り 返す . 6 (20F 60L) で , 20F60 し と いう プロ ッ ク を 6 回 
り E | 2 繰り 返す . 
| ノ List 定義 され た 手続 き を , 画面 に 表示 する . (スラ ッシュ ) で , すべ て の 手続 き を 表示 する ・ 
そ %% Llist 定義 され た 手続 き を , プリ ンタ に 印字 する . 2 (バー セン ト ) で , すべ て の 手続 き を 印字 する . 
の ※ Copy 描か れ た 図形 (画面 全体 ) を ハー ドコ ビー する . * (アス タリ スク ) で HARDC2 が 実行 され る 。 
他 Save 定義 され た 全 手 続き (ブロ グラ ム ) を , カセ ッ ト に セ # (シャ ー プ ) で 、"FILE NAME?" に 続き , ファ 
2 ー プ する . イル ネー ム を 打ち 込ん で [2 する . 
軸 $ Load Save コ マン ド で, セー プ さ れ た 手続 き (プロ グラ ム ) $ (ダラ ー) で ,“File Name?" に 続き , ファ イル ・ 
テ を , カセ ッ ト か ら ロ ー ド する 。 ※ フ ァイル 名 を 照 含 し | ネー ム を 打ち 込ん で 過す る . 
ィ 見 つか る まで ,“Skipf : フ ァイル 名 " を 家 示 し て スキ ッ 
リ プ し ます . 
3 [CTRL| Break 実行 を 中 断 し ます . プ ザ ー が 鳴り "Abort" の 家 示 が 出る まで | CTRL |+ 
] + |[e ※ た だ し , タイ ミン グ に よっ て , BASIC の 側 で エラ IG| を 押し 続け る ・ 
ー が 発生 し ます . 
@ End Tortoise の シス テム を 終了 し て ,BASIC に 戻り ます . @ (アッ トマ ー ク ) で , END 廊 を 実行 し ます . 
注 3 Space プロ グラ ム 中 の スペ ー ス プロ グラ ム 中 の スペ ー ス は 無視 され ます . 
表 2 エエ ラー メッセー ジ 
*Check Parenthesis カッ コ の 対応 数 が 合っ て いな い . カッ コ の 数 を 合わ せ て , や り 直 し て くだ さい 、. 
*| llegal Function Name 手続 き 名 が な い . 手続 き 名 を , 正しく つけ て , や り 直 し て くだ さい . 
その 他 の メッ セー ジ が 出 た 場合 BASIC 側 の エラ ー で す ・. も う 1 度 RUN し て , 最初 か ら や り 直 し て くだ さい . 
例 ) LINE の 画面 範囲 か ら の オー バー・ 



















































































表 3 変数 表 0 )- (639, 199) の 範囲 を 出る と BASIC 側 で エラ ー が 出 て し 
生 名 | 容 まい ます . 

ーー アー の ] @ [CTRL] + [で 実行 を 中 断 す る 際 。 タイ ミン グ に よっ て 
0 の に の の 親 CES 向 。 は BASIC 側 で エラ ー が 発生 し て し まい ます . 
XY ター トル の 現在 位置 @ 定 状 さ れ た 手続 き は , 変数 を クリ ア す る 以外 消去 する 方 

実行 中 断 の た め の ア ボート ・ フ ラグ . モー つ ェ 
ABSRE CTR 回 旨 され た と は 1, 通常 は 0. 法 カ あ 9 ませ ん . 
NF 定義 され た 手続 き の 数 。 
ee ユー ザー が 入力 し た 女 字 列 が その まま 入る . 最後 し こ 

入力 直後 に ". “が 後 必 に つけ られ る . Ln 
S$ (1 一 n) ユー ザー が 定義 し た 手続 き が 入っ て いる 。 
FP 現在 実行 中 の 手続 き を 示す ボ ポイ ンタ. ] すべ て EV 6 上 se 。 さ to 
下行 の コマ ンド を 示す ポインタ 人 し の ロー BASIC で シス テム を 記述 する な ど と いう の は , 邪道 も い 
EC コマ ンド を 何 回 実行 する か を 記憶 し て いる 。 いと ころ か も 知れ ませ ん . し か し , BASIC で も , で きる と 
CM$ 現在 実行 中 の コマ ンド 格納 し て いる . いう こと に は な り ま す . 実行 速度 の 遅 さ は 大 目 に 見 て や っ 
回 再帰 的 呼出 し の 際 の スタ ッ ク ・ ポ インタ 。 ェ > 5 る 9 2 
その 他 の 変数 手続 き 内 で の ロー カル 諸 数 の た め 解 読 は 容易 だ の RMO か も TE か 








だ か ら , と 手 を 付け て いま せん . 


ろ や っ て みて くだ さい . 


欠点 


⑯ ク リッ ピン グ 処 理 を し て いな いた だ ため, ター トル が (0, 


興味 が ある 方 は , いろ い 


だ さい . 
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GUSUB4 の の 
E ビ =1 
RETURN 
"FRUCEDURE FLUS (* INCREMENT CC BY UNE ※) 
CC=ACC+EC 
BUSUE4 の の 
73 EC=1 
94 の RETURN 
1 の 29 "FROUCEDURE NUMBER (* GET A NUMEER INTU EC *) 
1 の 1 の NC ビ = 
1 の 2 の CH ま =MID ま ( 選 多 (FFP) 。F 。1 ) 
1 の 3 の MHILE (ASC (CH まう) =4 日 ) QND (ASC (CH も) ミニ ロブ ) 
194 の NC=NCx1 の +QRSC(CH ま も) SE( "の の") 


DIN (人 G ロ ) ,EC (gg) 。FF (9) ,。F(5g) ,。LF (5 の ) : LODF=1: GOUTDS10 の の 


RETURN 


RETURN 


Tortoise BASIC プ ログ ラム ・ リ ス ト 昌和 











THRTHISE FHR FM 
TRANSFERRER : H.EDGUCHTI ・ 
DaTE : From FR1L SE9 / 1983ToO JUN 1 / 198 ミ 


"FROUGRRM TURTUISE 








"CUNST 
INITX (* _ CENTER _ ロ F _ SCREEN ※*) 
TNITY=1@⑦ 
MAXFUNC= 呈 』「 (* MaXMUM_ USER-DEFTINARLE FUNCTIUNS ※) 
FT=1 745: 直 (* FIT/18B@ ※) 
"MaR 
" 人 EE =』 INTEBER 』 (* CHNTENTS ロ F CEC ※) 
S ji QRRRY [上 の 9..MQXFUNC] ロ F STRING 
NF 』 INTEBERi (x* NUMEER _ ロ F DEFINED_ FUNCTION ※*) 
X 』 RERL_ (* X COORD. ※) 
MA 』_ REAL (* Y COORD. *) 
ROT  :』 INTEGER 』 (X RHJHTRTIHN FACETHR *) 
REORTI BUULERN 』 (* REHRT FLRB ※) 


"FRUCEDURE INITRHEHT (* TINITIALIZER DUF RUHEHT LANBRBE ※) 
MIDTHB の 
EC=1 
NF = 
X=INITX 
-Y=INITY:LINE(。 の 9) 一 (INITX 。INITY) 。UR の 
RUT=9 
FRINT CHR$ も (18) 
FRINT "xReady" 


RETURN 
"FRHCEDURE DISFACC (* DISFLAY THE CONTENTS _ ロ F_ACC UN CRT ※) 
V=CSRIL_IN 


LOCATE79。 ウ giFRINT"RE "is 
SQACC ま =STR 生 (CC ) 
SACC=BACC 加 キリ リ 
FRINT SACC ま FRTINT 
LOCRTE の 。 ソ 
RETURN 
"FRDUCEDURE DISFRHT (* DISFLRY THE CONTENTSB DF_RUT _ ロ N CRT ※) 
V=CSRL IN 
LOUCATE79。1gFRINT"RE "is 
SQCC も =STR ま (RT ) 
SQCC ま = ニ SQCC ま + す リー! 
FRINT SACC ま FRINT 
LODCATE の , ソ 
RETURN 
"FRUCEDURE BETLINE (* READ UNE LINE ロ F COMMRND FRUM CUNSULE *※) 
LINEINFUT 生ま :F ビ = の ウェ E ビ =1 
8 呈 ( の ) =T ま + す リリ = (※ QDD TERMINATER ※*) 
(* CHECK NESTING LEVEL ※) 
NEST=』 エ =1 : FUN ま = リリ 
MHILE FUN ま 上 。 リ 
FUN ま =MID も (5B ま (の ) 。 エ 。1) 
エニ エ +1 
IF _ FUN も ="("! THEN NEST=NEST+1 ELSE 1IF FUN$=")! THEN _ NEST=NEST-1 
MEND 


IF_ NEST > THEN FRINT"xChecE Farenthesis !"+CHR ま (7) :B 呈 (の ) = モリ 。。。。" 


"FUNCTIDN_ READCOM  (x READ _ UNE CDMAND* ) 
F= ビ +1 
REDCUM ま =MTD ま (5S ま (FFP) 。F 。1 ) 


"FRUCEDURE MINUS (* DECREMENT QACC BEY UNE ※*) 
RCC=AC ビ ーE ビ 
IF _ACCS THEN CC ニ = の 
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5 ウ 4g 
ら 6 の の 
ら 6 の ウ 19@ 
GIIe| 
ら 623 の 
6 の 4 の 
6 の 5 
ら 6 罰 6 の 
67 引 
ら 6 の 8 
65 
7 の 中 
7@1 
アプ 
7 








F=F+1 
CH=MTD*((FF) 。F 1 ) 
MEND 
EC=NC 
F=Fー1 
RETURN 
"FRUCEDURE FMARD (x MOVE TURTLE LEAVINB QA LINE *) 
LINE-(CTNT(X) 。CINT(Y) ) OR ,g 
X=COUS (RDT テ FL) EC で +X 
Y=Y-8IN(RDT*FT 呈 ) EC 
EDLOR7: LTNE-(CINT(X) ,CINT(Y) ) 。FSET 
EC=1 
RETURN 
"FROCEDURE UMF (* MVE TURTLE MITHOUHT LERVING 人 LINE *) 
X=COS (RDT*FT 蘭 ) EC で +X 
Y=Y-8IN(RUT テ FT#) *EC 
EC=1 
RETURN 
"FRHCEDURE LEFT (x TURN LEFT *) 
ROT=(R ロ T+EC) MOD さ 6g 
BUSUE5gg 
EC=1 
RETURN 
"FRUCEDURE RIGHT (x TURN RIGHT *) 
RDT= (RUT=EC+ き 6 の ) MOD ミ 6g 








BSUE 
EC=1 
RETURN 
"FRHCEDURE SETIFFER (x SEIF_ FARENTHES18 ネ ※) 
MHILE CH (6 
BUSUE7 の : CM ま =REDC ロ NM 
MEND 
NEST=1 
MHTLE _ NEST:g 
BSUE7 の gi CM も ま =RE DC 中 
IF CM まま ="( リ THEN NEST=NEST+1ELSE TTF CM ま = リ ) リ THEN_ NEST=NESTー1 
MEIND 
RETURN 
"FRHCEDURE TEST (* IF CC IS NN-ZEROU 。 EXECUTENEXT FARENTHESTS 


THERMISE。 EXECUTE NEXTNEXT FARENTHES1S *) 
MHILE EC* 
ITF ACCYS THEN 7949 ELSE 7969 
LF=F+1: 8=B+1:EC(S) =ECsFF(B) =FFEF(B) =F:LF(B) =LF: ED=1: ド = し F 
BUSUEI な Ogg E じ =EC(S) : FFP テモ FF () : = (S) :L 上 F=LF (S) : =Sー1 : GDT ロ 7 10 の 
8=S+1:F(S) =F: EC(S) =E ビ :FF(B) =FF': F () =F 
BODSUB6 の gg 
LP=F+ 1 : ビニ 1 : = レビ 
BODSUB2 の の の の: E じ =EC(S ) : FF=FF () ビニ F (S ) : 5=5ー1 








E ビ =E ビ ー1 
MEND 
GOSUE6 の の 
BOSUE62 の の 
EC ビ =1 
RETURN 
"FRHCEDURE DEFUN (x* DEFINE FUNCTIDNS *) 
=G(⑦) 
IF MID ま (B ま (の ) で 1)= リ リ THENB さ の ELSE 6 の 
FRINT"xT11ega1 Function Name ! ! 9+CHR ま (プア ) 
S ま (の ) = リ 。。。。" E ビ = の 
RETURN 
(* BET THE FUNCTIUN NaME *) 
GUSUE7 の の : FUN ま =REDCON ま 
FUUND=g 
FOR 1=1 TO NF 
TF FUN ま =LEF 丁 ( ま (1) 。1) THEN 日 11g ELSE 日 1 さ g 
8 まま (1)=MTD 和 ま ( 和 T 和 まで 。LEN(T 和 ま ) 1 ) 
FUND=1 
NEXT 1i 
IF_ FIHUND=g THEN 15 ウ ELSE 17 
NF=NF+1 
SB まま (NF ) =MID ま (T 各 で JLEN (生還) 一 1 ) 
FRINT"xDefined ! 1 0+TSFACE ま (155) 
事 (@) = リ 。。。。" ミ E ビ =1 
RETURN 
"FRUCEDURE SENSE (* IF NEXT _D ロ T 18 FaINTED 。 EXECUTE NEXT FARENTHES18 


THERMTSE 。 EXECUTE _ NEXT _ NEXT FARENTHES1 *) 
MHILE EC の 

メ = じ US (RUT テ FT ) +X 

Y=Y-SIN(ROT*F1 ) 

IF _ FUINT(CINT(X) ,CINT(Y) ) THEN 9 の 69 ELSE 9 の 8 の 
LF= ニ F+ 1 : = ニ + 1 : E ビ (5 ) =E ビ ェ FF () ニ FF PF () =F = ビニ LF' = ビビ =1 
BUSUEB の の の の : ビビ = ビビ () = F ピ =FF'() : =F () : ヨミ 5ー1 : GDT091 1 
=+1』F(G) =Fi EC(S) =E ビ :FF (5) = ニ FP'F() = ピ 
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9 の 9 BUSUE69g 
1 の LF=F+ 1 :E ビ =1 :F ビ ニレ ビ 
11 BUSUES ウ の : ビビ ー ビ ビ (5 ) : ビ ビニ ビビ ( ) : ビニ F ( 呈 ) : ロニ ロー1 
9115 EC じ =E ビ ビー1 
MEND 
BSUE6 の 四 
BUSUE6 ゆ の 
E ビ =1 





9169 RETURN 
19g99 "FRHCEDURE RND (* EXECUTE TM ロ FARENTHESTS AT RANDOM *) 
1g91 MHILE ECzg 
IF RND(B)*. 王 THEN 1 ELSE 1g05g 
LF テ =F+1』 = ロ +1:E ビ (8) =EC:FF () =FF:F( 昌 ) ニュ F=LF :E ビ =1 








1 の 4 中 BUSUES の の の :E ビ ビニ ビビ (8) :F ビ =FF(S) "() : = ロー1 : GBDTU1 の の 
15g = ご + 1 :F() =F': EC() = ビビ FF'(G) =FF's PF () = ド 

1 6 の BSUER6 の ゆ 届 

1 の 7 LF テ し ビ +1 ょ ビビ =1 :F テ レビ 

1 の 8 GOUSURS で Sd の: E ビ ニモ ビビ じ (8S) :F ビ = テ FF(G) 』 ドニ ド () : = ニー1 

1 の 7 EC=E ビ ビー1 

1@1 の の MEND 

1@11@ BHSUEB6 の の 9 

11 全 BSUE ら 6 の ゆ ゆ 

1913 の EC ビ =1 


1914@ RETLURN 
11@@ "FROCEDURE HOME (x FLACE TURTLE RT HOME FUSITIUN ※*) 
11919 の @ IF_ ECS の THEN X=INTTX:Y=INITY 
EC ビ =1 
RETURN 
"FROCEDURE _ NORTH (x SET DIRECTIHN TU _UFMRRD *) 
TIF EC: THEN RODT = BUSUE の 
E ビ =1 
RETURN 
"FRUCEDURE CLS (* CLEAR CRT SCREEN *) 
IF_ EC の THEN CLG GDBUE49: GUHGUE5 の の 
E ビ =1 
RETURN 
"FRHCEDURE LIST (xX LTST aLL FUNCTIUNS T ロ CRT *) 












141@ 1TF SB まま (1) ぶ "THEN BHTO14 全 較 ELSE 14 の 6 

144 光 FR =1 TQ NF 

14 さ 四 FRINT LEFT ま ( 事 (1) 。1)+ リ 18 "+MTD ま (日 ま (T) 4 』LEN(B ま (T) ) 人 ) 
144 NEXT 

445 EC ビ =1 


1469 RETURN 
15g "FRHCEDURE LLTST (* LIST aLL FUNCTIUN TU FRINTER *) 





15g1 の PEN 9 枯 1 EEFT の 9 

159155 TF BS 第 (1)SEUU THEN 15ME _ ELSE 15 の 5g 

15@S の FOR エ =1 TO NF 

1 の FRINT 村 1 。LEFT 生 (8 和 ま (T) 。1)+" TS "+MTD ま ( ロ 事 (1T) 。2。LEN( ま (1) ) 2) 
15 の 4 の NEXT 1i 

15M5g E に =1』 CLOSBE 1 


156 ウ RETURN 
18199 "FROCEDURE SAVE (x SaVE ALL FUNETIUN TU CASSTTE *) 


151 の 8 INFIUT リ FILE NAME" ュ FT エ ま ょ FT エ ま モエ 生 すり 
1811 の OFEN"O 2 リ CRSg" 
151 1 FRTNT#S。F エ ま 








151S の ITF 8 束 (1)ShUU THEN 15125 ELSE 1516 の 
15125 NF =HEX ま (NF)+ リ 。 "FRTNT 半 詞 。 NF 

1513@ FR 1=1 TO NF 

1514 FRINT# 記 。S ま (1 

115 の NEXT 1 

1516 中 EC=1: CLOSE 柱 


1517@ RETURN 
15<g FRHCEDURE LORD (* LORD aLL FUNETI ロ N TU CASSTTE *) 











1S 人 SB TINFIUT リ F11 Name"』FT ま =F エ ま ニ FT すり 

15S1 四 OFEN "1 0 。 間 人 EARSg" 

18: TINFUT 立 。F ビ 事 

1 TIFFC ま SFT ま THENFRTNT "BEips "TLEFT 生 (FC ま 』LEN(FC*) 一 1 ) : BUHSUE152SB: BUTD1521 の 
15 全 14 FRINT"Foundi "+LEFT ま (FC ま 』LEN (FC まま ) 一 1 ) 

15215 TNF'UT 提 NF NF ニ VRL (NF) 

15 だ さき の FOR 1 エ =1 TO NF 

15S4 の LINE INFUT# 全 も (1) 

1525 の NEXTI 

15S6 の E ビ =1 : CLUBSE 拓 人 


15S79 RETURN 

15SB の ITNFUT 拉 評 。NF ま = NF=VQL (NF まま ) 

15SB1 FOUR 1=1 TO NFiLINETNFUT 持 且 。DMY ま NEXT 

152B2 CLOSE 所: RETURN 

16 の 9 の "FRDCEDURE COFY (* TEE 人 HARDCOFY ロ F THE GRAFHIC _ SCREEN *) 
16 の 1 の HARDCE 

16@2 の RETURN 

2669 "FRUCEDURE USER (* EXECUTE USER DEFINED FUNCTIUNS ※*) 





17 の 1 の FUUND= の 
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17 の 2 の FR 1=1 TO NF 

1 7 の の TF CM まま =LEFT ま ( 和 ま (1T) 』1) THEN FOUND=1 : ゴ = ニュ 

17 の 4 NEXT 

17 の 5 の IF FUUND THEN 17 の 6 ELSE 171@ 

17 の 6 の MHILE EC の 

17g7 の = ご 8+ 1 : ビビ ニ ビ ビー1 : E ビ () =E ビ ュ FF () ニ FP 』 FF ビ = ニ ゴ ェ F (8 ) =F : = ニ 1 :E ビ =1 
17 の 8 の @ BUSUE2 の の の の : ビビ = ビビ (8 ) : F ビ = ニ FPF (8 ) : ビデ = ビ ( ) : G=ー1 

17 の 59 の MEND 

171 の の E ビ =1 


1711 の RETURN 
18W FRQCEDURE SETY (* SET _ VERTICAL FHSITIHN TI EC *) 
181 の Y= ニ 19 ワーEC じ 
18MQ の E ビ =1 
1893Q RETURN 
19g2 の FRHCEDURE SETX (* SET HHRISHNTRL F ロ SITI ロ N TO EC *) 
19@1 X= ニ EC 
1 9 の EC= ュ 1 
19 の 3 の RETURN 
"FRHCEDURE EVaL (* MIN EVRLUATER FHR THRTHISE. LNBRGE *) 
BOSUE4g 
GUSURE み 
MHILEILUOF=1 
LOCRTE1。:FRTINTF』FF 
IF ABORT THEN RETURN 
(* IF _ CTRL-G TB FRESSED THEN EQRT *) 
ITF INEEY 和 も = モビ HR 多 (7) THEN BURT=1 
4 (* BET NEXT _ COMMAND ※) 
GOSUBZ ウ の: CM も =REDCON も 
(* CaSE CONM 生 DF ※) 
TF CM ま = リ RU THEN E ビ =aACC 


TIF CM も = テ リー" THEN BUSLUEBg ゆ 

IF CM ま = リ + リ THEN GOUSUE9 の の 

ITF CM= リ "(0 THENSM14 の の ELSESMSS 中 
MHILE EC の 


1F AEHRT THEN E ビ = 中 

SS+1iE じ =E ビ ー1 5E じ (SB) =EC:FF(S) =FF'EF (GS) =FiE ビ =1 

BODSUESM の :E ビ = ビビ () 』F ビ =FF(S) 』F=F(B) 』 モ ロー1 
WEND 





F=Fー1 
GOSUER6@ の の 
EC=1 : BHTUS ロ 44 の 
IF CM*=")" THEN RETURN 
IF CM も ="F" THEN GUGUBRS 
TF CM*="J" THEN GBDSUE さ の 
IF CH*="R" THEN BUSUE5gg 
IF CM$ ま ="L" THEN GBDSGUEB4 の の 
TF CM*="T" THEN GBDSUE7ggg 
IF CH="D" THEN GDSUEBg の の 
TF CM も ="B" THEN GUSUE9 の ag 
IF CM*= リ "で! THEN GUSUB1 の の OO 
IF CH*="H" THEN BODSUE1 1 
1F CM*="N" THEN BUSUE12 の 2 
IF CM="CV THEN GDSUE1 さ gg 
TF CN="。" THEN RETURN 
IF CM*= リ / リ THEN BODSUE1 4 











ITF CN* THEIN_ GOUSUE15 の の 引 
TF CM THEN GOSUE1 6 の 中 
TF CM 叶 THEN_REMN 

TF CM 筆 "THEN BUSUE 1 の の 引 
ITF CM* *" THEN BUSUE 1 の 





IF CN 叶 = リ 揚 ! THEN GOSUE11g み 
IF CM まま = リ まり THEN GOSUE1 Sg 
TF CM や ="@" THEN END 

TIF SC(CM ま ) :=4 日 人 ND SC (CM ま ) : 






7 THEN GOSUE 1 の の 





TF ASC (CM 第 ) sHSE RaND SC(CM) ミ = ニシ HZD THEN BUHSUE 1 7 
MEND 
RETURN 
)(% 基 基 %※ MM 人 TIN RHUTTNE XXX%※ え %) 
BUSUE 党 軌 四 


RANDGMTZE (1 の 中) 

MHILE LOOF=1 

人 aEURT= 切 : (* NHTAE ロ RT *) 
BUSUB4⑦』 GSUE 紀 の 

BUSUE ら 6 の: 「(xX BET Q COMMRND LINE *) 
BUSUES の の: (* EVQLURTE THE LINE *) 
TF 人 REHRT THEN FRTINT"%B ロ rt" 





1 の 89 MEND 
人 19 の END 
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LOGO の ター トル ・ グ ラフ ィ ッ クス の 概念 で プロ グラ ミ 
ング し て , 図形 を 描く こと が で きる イン ター プリ タ で す . 
K コ ン バ パイ ラ で 作っ た の で , ドラ ゴン 曲線 や ヒル ベル ト 曲 
線 な どの 図形 を 数 秒 一 数 10 秒 で 描き ます . 

この イン ター プリ タ は , LISP イン ター プリ タ と 同じ 構造 
で 設計 し て いま す . 

この 言語 は , 1977 年 に Lichen Wang と いう 人 が ロボット 
言語 * と し て 発表 し た も の で す が , !/O 誌 で は “Tortoise” と 
いう 名 前 で お な じみ の も の で す . こ こ で は Tortoise を 縮め た 
*TOTO* と いう 名 前 に し ます . 

この コマ ンド は , すべ て 1 文 字 で ある た め , プロ グラ ム 

記号 の 維 列 に な っ て 読み に くい と いう 欠点 が あり ます が , 
逆 に 廊 字 数 が 少な く て 扱い や すい の で , マニ ア 向 け の 言語 
だ と 思い ます . コマ ンド を “ 進 ?。“ 右 ?, “ 左 ” な どの 漢字 に 
置き 換え る と , 漢字 調 の 日 本 語 LOGO に な り そ う で す . 


シス テム 構成 

人 間 と 会 話す る CCP (Console Command Processor) 部 
は F-BASIC で , TOTO 言 語 を 解釈 実行 する イン ター プリ タ 
は K コ ン フ パパ イラ で 記述 し て いま す ( 図 1). 

TOTO に は , 関数 の 再帰 呼び 出し と カッ コ を 使う 構造 化 
の 機能 が ある の で , 実行 対象 の プロ グラ ム は リス ト 構 造 に 
変換 し て か ら 解 釈 実 行 し て いま す . 

氏 コ ン パ イラ は 予想 以上 に 効率 が 良く て , 解釈 実行 の 部 
分 を マシ ン 語 に し て テス ト し た と ころ , 画面 一 本 の ドラ ゴ 
ン 曲 線 で 約 30 し か 速く な り ま せん (FM-8). マ シン 語 化す 
る より FM-7 の 方 が 勝 り ます . 


CC ビ P コ マン ド 


TOTO の シス テム を 操作 する CCP コマ ンド は 表 1 の と 
お り で す . CCP は キー ボー ボ か ら 入 力 さ れ た デー タ を 解析 
し て , それ が CCP コ マン ド で あれ ば , 指示 され た 動作 を 行 
な い , CCP コ マン ド で な けれ ば , TOTO 言語 の プロ グラ ム 
で ある と みな し て , 格納 し 実行 し ます . 

入力 し た デー タ の 先頭 が "(クォート ) の 場合 は コメ ント 
文 と し て 扱い ます . 

プロ グラ ム の 修正 は , LIST コマ ンド で 表示 し て か ら , B 
ASIC の スク リー ン ・ エ ディ ッ ト 機 能 と 同様 に カー ソル を 


72 





1 TOTO シ ステ ム の 構成 





@ プ ログ ラム の 作成 , 修正 

@ プ ログ ラム の ロー ド , セー ブ 
@ ハ ー ド ・ コ ピー 

@ その 他 





LOGO と ンチ メニ レル リル 人 (で ピグ ムシ 6) 


@ リ スト 構造 へ の 変換 
@ 解釈 ・ 実 行 








表 1 CCP コ マン ド 





形 9 | 意 味 
ー 番号 1 か ら 終わ り ま て 実行 する . 
LIST (F-BASIC の LIST と 同じ ) 
NEW (F-BASIC の NEW と 同じ ) 
| DEL--n 番号 の プロ グラ ム を 削除 する . 
| INS-n 番号 n の 位置 に プロ グラ ム を 挿入 する . 


現在 n 番 の プロ グラ ム は n 十 1 番 に な る . 
指定 され た ファ イル の 内 容 を ロー ド し て 表示 
する . 

RUN- フ ァイル 名 指定 され た ファ イル の 内 容 を ロー ド し て 実行 
| する . 

SAVE 一 : フ ァイル 名 プロ グラ ム を 格納 する . 番号 1 の デー タ が コ 
メン ト 文 で な い 場 合 , ファ イル 名 を コメ ント 
| 凛 に し た デー タ を 自動 生成 する . 

| SUBMIT 一: ファ イル 名 | 指定 され た ファ イル の デー タ を キー ボー ド か 
ら 入 力 し た デー タ で ある と みな す . ファ イル 
の デー タ は すべ て コメ ント 廊 で な けれ ば な ら 


LOAD- ファ イル 名 





な い . 
FDUMP ファ イル 名 | プリ ンタ に リス ト す る . 
FILES (F-BASIC の FILES と 同じ ) 
TRON | トレ ー ス ・ モ ー ド に する . 150 個 の コマ ンド を 


トレ ー ス する と トレ ー ス ・ オ フ と な る . 
HARDC0 (F-BASIC の HARDC0 と 同じ ) 
HARDC1 


| HARDcz 








移動 し て 行ない ます . た だ し 1 回 に 1 行 の 修正 し か で きま 
せん . 





表 2 TOTO 言 語 の 文法 規則 





10 進 数 を nm。 コ マン ド を C で 表わす . また は , これ ら の 組み 合わ せ , 
た と えば 50F90R を 式 と する . 
1. 動 。 作 :  nC の " コマ ンド C を n 回 実行 する . 
AC…… コ マン ド C を Acc の 内 容 で 指定 され る 回 数 だ 
け 実 行 する . 


拡張 1: C の と ころ で ( 式 ) と 書く と 式 を n 回 実行 する . 
拡張 2: C の と ころ て 関数 名 f と 書く と プロ グラ ム て 定義 し た 
関数 を n 回 実行 する . 
2. 関 数 定義 : Df( 式 )…… コマ ンド D に よっ て 任意 の 文字 f を 関数 名 
と し , その 動作 を 式 で 定義 する . プロ グラ ム の 中 に 
文字 f が ある と 式 が 実行 され る . 
3. 判 断 : T( 式 1)( 式 2)…… (Acc)>0 で あれ ば 式 1 を 実行 し , 


(Acc)= ニ 0 で あれ ば 式 2 を 実行 する . 


&O 


2 TREE の 作図 法 





15 30 
P4 P3 
P2 


P1 

















表 3 TOTO 言 語 の コマ ンド 


SS 5 義 RDRK1 


で す の で , プロ グラ ム は 難解 で す . 

ここ で は , や さ し い TREE( 図 2) を と りあ げ , さら に プ 
ログ ラム を 改造 し て 新しい 図形 を 作る 方 法 を 説明 し ます . 

充 端 の 枝 か ら 描 く こ と に する と , P1 を 出発 点 に し て , 30 
変 左 に 向い て Acc の 内 容 . ここ で は 45 だ け 進 ん で P2 に いく 
(30LAP). 次 に Acc か ら 15 引 いて , も う 1 度 30LAF す る と 
P3 に きま す . 

これ を 繰り 返す と , P4 の 湊 は (Acc) 三 0 と な る の で , 終 
了 に し て , 今度 は 1 回 まえ の P3 に 戻っ て 30R と する と , 以 
前 に P3 に きた と き と 同 じ 向 き に な り ま す . 








Dt (T (30LAF15 一 tb30R) ( )) 
Db (15 十 180RAJ180L) 








関数 b は 1 回 まえ の 位置 に 戻る サブ ルー チン で す . (Acc) 
0 の と き は 何 も し な い の で ,( ) の 中 は 空 で す . こ の ( ) 
は , 右側 に “^)” が ある の で , 省略 し て も か まい ませ ん . 

P1 一 P3 の 各 点 で 枝分かれ を 作る に は , 向き を 逆 に し て , 











F (Forward) 1 歩 前 進 . nF な ら ば n 歩 前 進 . 

J (Jump) 1 歩 ジ ャ ンプ . 軌跡 を 残さ な い . 

R (Right) 右 ま わり に 角度 の 1 度 向き を 変え る . 

L (Left) 左 ま わり に 角度 の 1 度 向き を 変え る . 

C (Clear) 画面 クリ ア . 

H (Home) 画面 の 中 央 に 位置 づけ する . 

N (North) 北向 き ( 上 方 向 ) に する . 

A (Accumulator) | 繰り 返し 回 数 を (Acc) で 指定 する . 

十 (Increment) (Acc)+1 

ー(Decrement) (Acc) 一 1 

(Percent) n2% な ら ば (Acc) Xn100 

T (Test) 表 2 の 文法 規則 参照 . 

D (Define) 表 2 の 文法 規則 参照 . 

く (Push) 現在 位置 , 方 向 ,Acc, 色 を スタ ッ ク に 格納 する . 

>(Pull) 現在 位置 , 方 向 ,Acc, 色 を スタ ッ ク か ら 戻 す . 

半 ( 色 指定 ) n 半 で カラ ー コ ー ド n の 指定 と な る . 

*(8 方 向 ) 北向 き を 0 度 と し , タテ , ヨコ , ナナ メ , す な わ 
ち 45 度 単位 の 動作 モー ド に する . スピ ー ド が 早く 
な る . 

CC クリ ア ・ コ マン ド の 次 の 文字 が C の 場合 , news モ 

(news モ ー ド ) ー ド に な り , コマ ンド E, W,S が 有効 に な る . 
右向き に する . N90R と 同等 

E (East) 左向き に する . N90L と 同等 . 

W(West) 下向き に する . N180R と 同等 . 

S (South) n$ の 指定 で 現在 位置 か ら , カラー コー ド ヵ で ペイ 

$ (Paint) ント する . 境界 色 は 現在 の カラ ー モ ー ド , n, 青 の 
3 色 . 








8 2, く , >,* の コマ ンド は 筆者 が 考案 し た も の で す . 


TOTO 言 語 の 仕様 


この 言語 は , 


1 娘 字 の コマ ンド と , コマ ンド の 実行 回 数 


を 指定 する 10 進 数 を 組み 合わ せ プ ログ ラミ ング し ます . 

だ た と え そば, コマ ンド PF は Forward の 略 で , 50F と すれ ば 50 
歩 前 進 し し コマ ンド R は Right の 略 で , 90R と する と 90 度 右 
に 向き が 変わ る の で , 4(50F90R) の プロ グラ ム は 大 き さ 50 
の 正方 形 を 描き ます . シス テム に は , アキ ュ ム レー タ (Acc) 


が 1 個 あ り , 


A と 書く と Acc の 内 容 が コマ ンド の 実行 回 数 


を 指定 する こと に な り ま す . 
言語 の 文法 規則 を 表 2, コマ ンド を 表 3 に 示し ます . 


DTD プロ グラ ミン グ 


この TOTO 言語 で 描く こと が で きる 高級 な 図形 に は , 


@ ドラ ビン 曲線 
@ ヒル ベル ト 有 曲線 
これ ら の 曲線 は 数 学 の 学者 が 発明 し た も の 


が あり ます が , 


9 て 曲線 
@ シェ ルビ ピン スキ ー 有 曲線 


30LAE15 一 tb30L 





を 実行 し ます . 以上 を まとめ る と 。, 





Dt (T (30LAF15 一 tb30R30RAT15 一 b30L) ) 
Db (15 十 180RAJ1S0L) 





と な り ま す . この プロ グラ ム で の Acc, 方 向 , 位置 を 1 回 ま 
そえ に 戻 す 操 作 は スタ ッ ク を 使用 する と , 





Dt (T ( く 39LAF15 一 t> く 30LAF15 一 > ) ) 











と な り , 関数 b は 不要 と な り ま す . 
枝 を 描く 関数 が で きた の で , あと は 出発 点 を 定め , Acc に 
初期 値 を 入れ て も t を 呼ぶ と 動き ます . 





DI (CHNA 一 180R90JN) 








!45 十 t 


TREE の イメ ー ジ 化 


TOTO イ ンタ ー プ リタ は , 絵 を 描く スピ ー ド が 速い の で , 
プロ グラ ム を 修飾 し て ユニ ー ク な 図形 を 作る た め の 人 道具 と 
し て 使う こと が で きま す . TREE の プロ グラ ム を 改造 , 修飾 
する ヒン ト を 列挙 し ます . 

@ 色 を つけ る . 

* 枝 曲がり の 角度 , 枝 の 長き を 変更 する . 

@ TREE の 大 き さ , あ る い は 位置 を 変え て 複数 個 描く . 

@ 枝 を 直線 で な く , 3 角形 や 4 角形 な ど に する . 

@ 枝 の 長き さき を 欠 コマ ンド で 変化 させ る . 

@$* ス タッ ク を 使わ な いで 戻り の 状態 を 不 完全 に , す な わ 

ち 少 し ずら す よ うに する . 
な ど な ど , 無限 の 可能 性 が あり ます . か な り 複 雑 な 図形 で 
も 数 10 秒 で 描く こと が で きま す . 
サン プル ・ プ ログ ラム の 中 の びび TREE. GC” は 小学 1 年 の 
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娘 が 色づけ し て , レン ゲ の 花 を 表現 し た 作品 で す . TREE プ 
ログ ラム で 創作 し た 図形 だ け を まとめ た 1 冊 の 本 が 書店 に 
あり まし た 。 


: 多 』 mm 

イン ター プリ タ に つい て 

TOTO 言 語 で は , 数 が 1 つ し か 使え な い の で ., LOGO 

の よう に 関数 へ 引数 す 機 能 が 欲し く な り ま す が , これ 

は 言語 仕様 レベ ル の 問題 な の で 機能 追加 は 大 変 で す . 
Push-pul コ マン ド の よう な 単独 コマ ンド は , 容易 に 機能 

追加 で きま す . 


変 
を 渡 


イン ター プリ タ の 説明 を する に は , リス ト , モル , アト 
ム , CAR, CDR な どの 基本 概念 か ら 始 め て , リス ト 構 造 
の 変換 形式 . EVAL の 定義 と その 動作 な ど , LISP 入門 に な 


り ま す の で 今回 は 省略 し ます . 
スピ ー ド 人 先 の た め の 手 法 を 加え て いる の で , 
リス ト は 共 干 読み に くい か も し れ ま せん . 


。 使用 上 の 注意 


再帰 呼び 出し で ルー プ ・ ダ ウン する と , CPU の スタ ッ ク 
を 破壊 し て 禁 走 する の で 危険 で す . この 現象 は た と えば TR 
EE の Dt (T( で FT〒 コ マン ド を 入れ 忘れ る と 発生 し ます . 

上 の うち に ダウ ン す る の で , ファ イル は バッ ク ・ ア ッ 
プ を と っ て お き , デバ ッ グ 中 は プロ グラ ム ・ セ ー プ の た だ たび 


ソー ス ・ 





ディ スネ スク ュ ・ ュ オラ (お る と 人 安全 で すえ 


機能 制限 


1 . 座標 位置 お よび 乗除 算 の 演算 は 整数 型 。 三角 関数 は 10 
進 2 桁 の 精度 の た め , 図形 が 変形 する こと が あり ます . た 
と そば 360(FR) は 円 に な ら ず 正方 形 に な り ま す . 

2 . 実行 させ る TOTO プ ログ ラム が 大 きく な る と , 





String Too Long 





エラ ー に な り ま す . 
CCP 実 行 中 に F-BASIC 上 の エラ ー が 発生 し た と き は , 








実行 例 





GOTO 2000| 2 また は [PF4| | 
































で CCP に 戻る こと が で きま す . 
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01』 "ーーー TREE 。 BC ーーー 

02iDt(T( く 25Lf > く 25Rf >) ) 

QSg Df (CAF4ー† ) 

04』 DC(4ーT(4ーT(4ーT(4 提 ) (7 林 ) 4+) ( プ 失 ) 4 十 ) ( 章 ) 4+) 
05g D ! (CHNR-1BOR9OJN ) 

06』 ! 12+4(4+ モ ) 





01 3 ーーー LEAF 。1 ーーー 
02:Dt(T (90Lf >90Rf ) ) 
0Si Df (AF く フ スル テッ >) 

04: Dr (ミーT ( さ +t) ) 

05i D! (CHN-1BOR95JN4 提 ※) 
Q6: ! 5O+AFAF モ 

















トト] 


TOTO CCP BASIC プ ロ グラ ム ・ リ ス ト EE 








19 の 9 LOADM "TODTO.K2" 

11 の MIDTH の 。25 : CUNBDLE の ,25』 の 。 の : CLEAR 12 ロ の ,。&:H2FFF 
12g ・ 

1 さ の PRINT : PRINT " y- TO ロ TO for FM ( りー ミ - 6 





リョ TOTO. 2 
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リス ト 1 TOTO CCP BASIC プ ログ ラム ・ リ スト 


149 (C) H.KUNATSU B4. の 1. の 4 no-1 
15 の g PRINT 

16 の KEY 1 。"TRUN"+CHR$( 1 さ ) 

17 の KEY 2。 "LIST"+CHR$( 1 さ ) 

18 の KEY さ 。"ー リ + ォ CHR も (1 さ ) 

19 の KEY 4』"goto 2 の 9 の " 

2 の の KEY 5。"RUN " 

219 「『' 

22 の DEF INT Q-Z : PSM= の : TN=1 : FLNG ま ="() 』"+CHR ま ( さ 4) : DV ま = リ "1 
2 さ の TNMAX=2 ウ : DINM TX まま (TNMAX+ ら 5) 

24 の 9 " 

25 の BKFLAGB=&H6C の 2 : KBFLAG=&H6C ウ さ : =&H6CP4 

26 の DEF FNTN ま (1)=RIGHT$(STR$( エ +1 の 9 の) 。2)+ リ 5" 

2 の 

28 の POKE &H5 の の の 。 &4HS4 : PUKE &H5 の の 1 ,&H7F 

29 の PUKE BKFLAG ,&H の の : EXEC &H5 の gg ca11 initializer (に K ) 

さ の の POKE TT。g ウ : BUTU 2 の 1 の ′ no trace mode 





KEY 6。"LOUAD " 

KEY 7。"SAVE " 

KEY 日 。 リ FILES"+CHR ま (1 さ ) 
KEY 9」』 "XX 光 リーーーー い nu 
KEY19。 "SUBMIT " 


さ 19 

1 の の の ' 拉 1 の の の と a11 TUTO interpritr 

1 の 1 の TXM$= リ "(リキ TX ます") 』 TXn=VARPTR (TXU*) 

1 の 2 の TXaH=INT(TXA/256) 』 TXAL=TXn-TXQHx256 

19 さ の PUKE &H4g99,TXQAH : POKE &H4991 。TXAL 

1 の 4 の IF PSM=g THEN POKE BKFLAB 。 さ ELSE POKE BKFLAG。』4 ′ 4 一 一 > re5e モ FLP 
1 の 5 の EXEC &H5g の の g 


1 の 6 の IF PEEK(TT) く > の THEN PRINT : PUKE TT。 の の : RETURN ' trace off 
1 の 7 の IF PEEK(KBFLAG) =ASC("C") THEN LUCATE の 。1 


1 の 8 の RETURN 

1g9 の 『 

2 の の の '#20 の の CCP ( Con5O1 COmman DFrOCE55Or ) 

2 の 1 の IN まっ "リー ョ MHILE IN も =""! 』 PRINT FNTN$(TN) 』 : LINEINPUT IN ま : MEND 


2g2 の BOUSUB 2 の 4 の : BOTO 2 の 19 
209 さ の "Command anali5y5 


2 の 4 の IF LEFT 和 (IN 和 $。1) = リー リ THEN GUSUB 239 の 9 :』 RETURN ′ KEY さ 3 
295 の IF LEFT ま (IN も 』4)= "LIST" THEN BUSUE 249 の 9 :』 RETURN KEY 2 
2 の 6 の IF LEFT ま (IN ま 。 弓 )= "FDUMP" THEN BUSUB さ の 929 : RETURN 

2 の 7 の IF LEFT も (IN も 。4)= "TRON" THEN BUSUB 2469 』 RETURN  ′ KEY 1 
2 の 9 の IF LEFT 生 (IN ま も 。6)= "HARDC の " THEN HARDC : RETURN 

21 の の IF LEFT ま (IN ま 。 ら 6)= "HARDC1" THEN HARDC 1 : = RETURN 

211 の IF LEFT ま (IN も 。6)= "HARDC2" THEN HARDC 2 : =: RETURN 

212 の IF LEFT 生 (IN も $。 さ )= "NEM" THEN TN=1 : RETURN 

21 さ の IF LEFT ま (IN*。4)= "SAVE" THEN GOSUB 275 の 』: RETURN KEY フ 7 
214 の IF LEFT$(IN$。4)= "LOAD" THEN BUSUB 28 の の 』 RETURN KEY ら 6 
215 の TF LEFT 征 (IN$。 さ )= "RUN" THEN GUSUB 2B7 の 』 RETURN  ′ KEY 5 
216 の IF LEFT ま (IN も 。4)= "SUBNM" THEN BUSUB 2929 』 RETURN  ′ KEY 19 
217 の IF LEFT ま (IN も 5)= "FILES" 。 THEN FILES DV ま 。 』 RETURN  ′ KEY 日 
218 の IF MID$(TN も 。 さ 。1) = リュ リ THEN GUSUB 227 の : RETURN  ′ chang 
219 の IF LEFT$(IN ま も 。 さ ) = "INBS" THEN BUSUB 229 の 』 RETURN  ' insert 
22 の の IF LEFT ま (IN ま 。 さ )= "DEL" THEN BUSUB 235 の ウ : RETURN  ' de1ete 
221 の "tore tex モ 

222g TX も (TN)= ニ IN も 』 IF LEFT 和 ま (IN ま 。1)="/ リ ! THEN BUSUB 226 ウ 』 RETURN 
223 の "exec TOTO 

224 の TXM ま =ーIN 和 も 』 BUSUB 1 の 1 の : BUSUB 226 ウ 』 RETURN 


225 の count TN 

2269 TN=TN+1 』 IF TN<TNMAX THEN RETURN ELSE PRINT "xx 上 ex モ 上 fu11" 』 RETURN 

227 の "change 

228 の N=VQL (IN 第 ) 』 TX 征 (N) =MID を も (IN を 。4) 』 GUBUB 249 の 』 RETURN | 1ist 

229 の ingert 

2 さ の の N=VAL (MID$(IN$。4) ) 』 IF N> の THEN 232 の 

| 2 さ 1 の INPUT "input 11ine numb ら ビーーー" 。IN$ 』 N=VaL (IN も ) 』 IF N= THEN 2669 

232 の PRINT FNTN*(N) 』 : LINEINPUT IN も : IF IN ま ="! THEN 2669 

2 ささ の FOR T=TN-1 TO N STEP -1 TX 名 ( エ +1) =TX 和 まま (IT) 』 NEXT 』 TX 刈 (N)=IN 第 』 
BUSUB 2269 』 GOSUB 249 RETURN 

2 さ 4 の 'de1ete 

2359 N=VAL (MID も (TIN$。4) ) 』 IF N= の THEN 266 の 

2 さ 6 の FOUR 1I=N TO TN-1 』 TX$ も (TI)=TX$( エ +1) : NEXT 

2 さ 7@ TN=TN-1 : IF TN= の THEN TN=1 : RETURN ELSE BUSUB 249 の 』 RETURN 

23 ヨ の "exeC TX 第 (1) 

239 の TXM ま =" リー 』 FUR エ =1 TO TN-1 


24 の 9 IF _ LEFT も (TX も (T) 。1) く > リリ THEN TXMM ま =TXMM 名 すり (リキ TX も (1 エ ) すり)! 
241 の NEXT 

242 の TIME ま = リ "の の 』 の の 3 の の 』 PSM=1 :』 GOSUB 191 の 

24 さ 3 の PRINT TINE$ : PSM=g : RETURN 

244 の 9 『 

245 の 'mode se 

246 の PUKE TT。&HFF 』 PRINT "ーーー trace mode" ェ RETURN 

248 の の 11is モ 

249 の PRINT : IF TN=1 THEN RETURN 

25 の の FOUR 1=1 TO TN-1 : PRINT FNTN ま も (IT)+TX あ (1) :』 NEXT : RETURN 

251 の 11i5= モ 上 上 〇 printer 

252 の PEN "ロリ 。 共 2。"LPTi" : PRINT 拉 2 

25 さ の FOUR 1=1 TU TN-1 』 PRINT 提 2。 FNTN$ も (1)+TX 生 (T) : NEXT : CLOSE 拉 2 』 RETURN 
254 の '# ロモ fi1e ロ nam BUDFOutin 

255 の IF TN ま = リリ THEN 264 の 

256@ の IF LEFT ま (IN も 。1)=" ! THEN IN も =MID 和 まま (IN ま 。2) : BUTOU 255 の 

257 の FOUR 1I=1 TU LEN(IN$ ま も) : D1 ま =MID 和 まま (IN 生ま 。T。1) 

258 の IF INSTR(FLNG$ 。D1 も ) く > THEN IT=255 』 NEXT 』 BUTOU 263@ 

259 の IF D1 ま まく > リリ! THEN NEXT :』 FL し ま ー ニ IN 和 ま 』 TIN ま =" リ 』 BUTD 261 の 

26 の の FL も =LEFT 各 (TIN 和 も 。 エ ー1 ) 』 TIN まま =MID も (IN 。 エ +1.) = 1 エ = ニ 255 : NEXT 





261 の IF LEFT ま (FL も 。4)="TOTO" THEN 26 さ の 
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262 の IF LEN(FL ま も ) ヾ 9 THEN RETURN 

26 さ の PRINT "XX% 子 ュ i1 name error ji" ョ 

264 の INFUT "input ff11 ロ nam ーー 一" 。 INb 』 IF IN$="" THEN 266 の ELSE 256 の 
265 の 「『 

266 PRINT "XX Command ignored" : RETURN 2 の 1 の 

267 の "X error interrupt 

268 の IF ERR=6 さ THEN RESUME 285 の 

269 の IF ERR く >64 THEN UN ERRUR GUTU の : RESUNE 

27 の の PRINT "are you sure(Y_ or N) マ リョ 

271 の SURE ま =INKEY$ も : 1IF SURE ま ="" THEN 271 ウ ELSE PRINT SURE$ ま 
272 の IF SURE ま ="Y リ ! THEN KILL FL まま : RESUME 

27 さ の IF SURE$="N" THEN RESUME 2669 ELSE 27 の の 
274 の の "=ave 

275 の IN も =MTD ま も ま (TN ま 。 ら 6) : BUSUB 255 の 

276 の UN ERRUR BOTOU 26 の : HD も = リ "ーーー "リキ FL し あす"! ーーー" : 上 しま ーD り ま +FL 呈 


277@ OPEN "0 。 提 1 。FL 和 も :』 IF LEFT 各 (TX も (1) 。1) く >0 20 THEN PRINT 章 1。HD$ 

278 の FOUR 1=1 TO TN-1 : PRINT 提 1。TX$ も (1I) : NEXT : CLOSE 1 : RETURN 
279 の "1opad 

2 の の TN ま =MID ま (TIN も 。 ら 6) =: BUSUH 255 の 

281 の "(1oad exeC) 

282 の UN ERRUR BUTU 26B の : LDNG= の : FL$=DV ま も +FL 和 も 』 UPEN "TU 。 提 1 。FL 生 』 1 エ =1 


2 日 さ の LINETNPUT 拉 1 。TX 名 (IT) : IF EOUF(1)= の THEN エ = エ +1 =: GUTOU 28 さ の 

2B4 の CLUSE 章 1 : TN=1I+1 : BUSUB 249 の 9 : RETURN 

285 の PRINT "XX※ 千 11 与 "+TMID ま (FL まさ )+ リ not found" : LDNG=ー-1 : RETURN 
26 の run 

287 の TIN ま =MTD ま (ITN ま 。 ら ら ) 

288 の MHILE TIN ま く > リリ 

2B9 の BUSUB 255 の 9 : BOBSUB 28B2 ウ : IF LDNG= の THEN BUSUB 239 の 


29 の の MEND : RETURN 
291 の 'submi モ 


292 の TN ま =MTD ま (IN も 。 日 ) : IF TIN$="! THEN 295 の ′ in Ca5 与 Of nO fi1 与 nam 

29 さ 3 の BUSUB 2559 : BUSUE 28B2 の : EX 第 = リリ 

294 の IF LDNG=-1 THEN PRINT "XXX 5ubmit Command aborted " 』 RETURN 

295 の FUR 1=1 TO TN-1 : EX まま =E ビ X+ 丁 X 生 (1 ) 

296 の IF LEFT ま (TX も ( エ ) 。1) く > リリ THEN PRINT "xx 5ubmit errori "+TX 和 も : RETURN 





297 の NEXT 』 EX まま =MID$(EX 和 も 。2)+ す リ 

298 の MHILE EX まく > リリ 

299 の エ =INSTR (EX まり リ ) 』 IN$= ニ LEF 丁 生 (EX 第 。 ユ ー1 ) 』 EX も =MID ま (EX も 。 エ +1) : BUSUB 2 の 4 の 
さ の の の MEND : RETURN 

さ の 1 の fi1e dump 上 O printer 


さ の 2 の IN$=NMITD$ も (TIN$ も 。 ら 6) 

さ の 3 の MHILE IN まく > リリ 

さ の 4 の BUSUB 255 の 』 BUSUB 2B2 の : IF LDNB= の THEN BUSUB 251 の 
さ の 5 の MEND 』 RETURN 

さ の 6 の END 





Em スト 2 TOTO イ ンタ ー プ リタ に コン バイ ラ ソー ス ・ リ スト 





1 の 9 の ′ (* ッ ーーTOTO for FN ( V- さ -6 )  -- 一 一 K compiler り -1. さ る \) 
1 の 1 の (% (C) H.KONMATSU B4. の 1. ウ 4 no-1 TUTUK.A2 ※) 
1 の 2 の CONST STUP=$6C26 。 NSTE= ま 6C22 

1 の 9 さ の CONST NIL=999 。 TCNMD=998 

1 の 4 の CONST BKFLAGB= ま 6C ワ 2 』 KBFLRG= 和 ま ら 6 じ の ウマ 








1 の 5 の "entry  j』 CUDE ま も 1 の 。* ま FF 。$ ら 6C 。 も 2 の 』 (X sav 8-register  *#) 

1 の 6 の 「『 POKE KBFLAG 。$ の の 』 Q= 和 ま 1 ビ 1 』 SEB=A( の ) 

1 の 7 の 『 仙 =NSTE 』 CPUKE 人 。 和 ま 7C。STUP 提 , まさ B の の 

1 の 8 の 「『 IF PEEK(BKFLAG) =9 THEN BUTD init  』 FI 

1 の 9 の 『 IF PEEK(BKFLAG) = さ THEN GOUTO main3 』 FI 

11 の の 『 IF PEEK(BKFLAB) =4 THEN BUTU main4 』 FI 

111 の 9 rtn 』 = ま 1E1 』 人 (の) =SEB 

112 の CUDE 還 さ 5。 ま FF 』 (* PULS *) 

11 く の rtnerr』i 人 = も 1E1 』 人 Q( の ) =SEB 

114 の 9 『 PUKE KBFLAG 。 KBF 

115 の IF KBF=1 THEN PRINT "ーーー と 呈 1 } 〇 VeFf1OwW 一 一 一 すま F エ 
116 の (* IF KBF=2 THEN PRINT "ーー 一 品 モ OD Key 一 一 の で 半 ) 
1179 IF KBF= さ THEN PRINT 品 モ aCK Ov@F 了 1OW ーー 一 2 2 の ( 
118B の IF KEF=4 THEN PRINT undefined FN = "。 CHR ま (FNC) 。 / 』 FI 
119 の 『 IF KBF=5 THEN PRINT "ーーー check "(′ and ) ーーー リ 4/ ョ FI 
12 の 9 の 「『 IF KBF=6 THEN PRINT "ーーー 人 CC Overf1Ow 一 一 一 "5/ 5 Fr 
121 の 9 (* 1IF KBF=C THEN PRINT "ーーー C1 ら ar ヒビ 己 n 一 一 一 4/ 3 FT \) 
122 の 「『 CODE まま 1 の 。$ ま FE 。 ま も 6C 。 和 ま 2 の 』 (X LDS *) 

12 さ の 『 CODE まさ 5 。$FF (* PULS *) 

124 の 

125 の ' (XX 5y= モ mm 1 ロ ni モ ふ a11 っ Br \※※) 

126 の "init  』  TTn= ま 6CO4 』 CRR= ま さり の の の 』 CDR=$ さ の の 』 STK= も 4 の の 

127 の 「『 FLP=1 』 ATP=NIL 』 genaTMiENIL 。NIL] 

128 の 9 「『 initP[ "キーFLRRJ 葵 メ く >HD* じ 和 ま NEMS。" ] 』 TP ュ = ニ TP 

129 の 「『 LINE [の g。 の 639 。199。 の 9。1 。1] (* PSET 。 b1ue 。 box ※) 

1 さ の の 『 CC= の 』 DIR= の 』 CLR=7 』 X= ニ さ 2 の 』 Y=1 の 9 

1 さ 1 の 「『 BOTO rtn 

132 の 『 

1 ささ の ini モ P 』 エニ 1 』 MHILE Ti の ) く >"。/ 』 genATMiENIL 。1: の ) ] 』 ユエ = エ +1 j』 MEND 
1 さ 34 の 9 「『 RETURN 

135 の 「『 

136 の "(XX rad COmmand 5 トモ a モ 巳 m ロ ※※) 

1 さ 7 の reads 』 TXP=STX 』 readdE] 』 1parEL] 』 RETURN 

1 さ Bg "1par  』 readd[] 』 IF DL=') ′ THEN RS=NIL 』 RETURN 』 FI 

1 さ 9 の 『 IF DL="(" THEN 1par 上 ] 』 FI 
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14 の の 
141 の 
142 の 
14 さ の 
144 の 
145 の 
146 の 
147 の 
148 の 
149 の 
15 の の 
151 の 
152 の 
15 さ の 
154 の 
155 の 
156 の 
157 の 
158 の 
159g 
16 の の 
161 の 
162 の 
16 さ の 
164 の 
165 の 
166 の 
167 の 
16B の 
169 の 
17 の の 
1719 の 
172 の 
173 の 
174 の g 
175 の 
176 の 
177 の 
178 の 
179 の 
18 の の 
181 の 
182 の 
183 の 
184 の 
185 の 
186 の 
187 の 
188 の 
189 の 
19 の の 
191 の 
192 の 
19 さ の 
194 の 
195 の 
1969 
197 の 
198 の 
199 の 
2 の の の 
2 の 1 の 
2 の 2 の 
2 の さ の 
24 ら 
2 の 5 の 
2 の 6 の 
297 の 
2 の 8B の 
2 の 9 の 
21 の の 
211 の 
212 の 
213 の 
214 の 
215 の 
216 の 
217 の 
218 の 
219 の 
22 の の 
221 の 
222 の 
22 さ の 
224 の 
225 の 
226 の 
227 の 
228 の 


*rEadd 


*q ロ enaTM s 


* ロ enQTMis 


"(XX rad 
* pu5h H 


Pu11 
COn 呈 


^ (XX ロモ 
*1oad 


PushERS] 』 1parE] 』 pu11E[] 』 consE] 』 RETURN 


MHTLE TXP: の ) = 和 ま 2 の 』 TXP=TXP+1 』 MEND 』 DL=TXP: の ) 』 TXP=TXP+1 
ITF DL=*"(" ロ R DL=")′ THEN RETURN 』 Fr 
ITF DL く <" の ′ ロ R DL>"9′ THEN genATMENIL 。DL] 』 DL= の 』 RETURN 』 FI 
NUM=DL-4B 』 MHILE TXPs の ) >= ニ "の ′ QND TXP: の ) く =9" 
NUM=NUNx 1 の + (TXP: の ) 4 日 ) 』 TXP=TXP+1 
MEND 』 genQaTME1 』NUM] 』 DL= ウ 』 RETURN 


IF ん 1=NIL THEN (* nam atOm ※) 
FUR 1=aTP+1 TO NIL 
IF CaR(1) >=g QRND CDR(1)=X2 THEN RS=1 』 RETURN 』 FI 
NEXT 
ELSE (* num atom ※) 
FOR 1T=ATP+1 TO ATPi 
IF CAR(1)=ー1 QND CDRK(1) =Z2 THEN RS=I 』 RETURN 』 F エ 
NEXT 
Fr 
RS=QATP 』 CAR(RTP) = ん 1 』 CDR(RTP) =X2 』 QATP=ATP-1 』 RETURN 


LUDFOut1 ロ 呈 ※) 
STK=STK-2 』 IF STK> ま 4 の の の THEN STK( の )=%1 』 RETURN 』 FI 
KBF= さ 』 BUTO rtnerr 
LP=STK( の ) 』 STK=STK+2 』 LP=LP 』 RETURN 
CAR (FLP ) =LP 』 CDR(FLP ) =RS 』 RS=FLP 』 FLP=FLP+1 
IF ATP>FLP THEN_ RETURN 』 FI 
KEF=1 』 BUTOU rtnerr 


tx pointer from BSIC &。 CheCKk parenthesi ら XX) 
TXA=* ま 4 の の の 』 1=TXA( の ) 』 DTL=I: の ) 』 1=I+1 』 STXa=1I( の ) 
PAR= の 』 TXP=STXA 
MHILE DTL> の 』 DTL=DTL-1 

IF TXPig)="(′ THEN PAR=PAR+1 』 ELSE 

IF TXPsg)=")′ THEN PAR=PAR-1 』 FI 』 FI 

TXP=TXP+1 

MEND 
IF PAR= の THEN RETURN 』 ELSE KBF=5 』 BUTO rtnerr 』 FI 


"(XX ma1in DFO ロ FaAm  ※#※) 


"main 和 4 ョ 』 
"main さ ョ 


Eva1  』* 


FLP=1 』 ATP=ATPi 

TT=TTAi の ) 』 TCNT= の 』 MB= の 』 NEMS= の 

仙 = 和 ま 1E1 (の) =NSTE』 PUKE STUP 。 り 』 (* toD key *#) 
1oad[ ] 』 reads[] 』 eva1[1。RS] 』 BOTO rtn 


(%* ん 1=n 。 ん 2=5 ※) 
IF X2=NIL THEN_ RETURN 』 FI 
IF PEEK(STUP) ぐ >9 THEN KBF=2 』 BUTOU rtnerr 』 FI 
Car5=CAR(X2 ) 
IF cars=TCMD THEN tst 上 [CDR(X2) ] 』 RETURN 』 FI 
IF CAR(Cars) =NIL THEN GOTO app1y 』 FI (K[X1 。 ヒ ar5]※) 
と aa テー ビ AR ( ヒ aF ら 5) 
IF Caar5 く の THEN ん 1=CDR(Cars) 』 ん 2=CDR(X2) 』 BUTO eva1 』FI 
IF caars く QATP THEN ev1oopELX ん 1 。CaaF5] 』 BUTOU evcdr 』 FI 
IF cars く ATP THEN ev1oopLX1 。cCars=]  』 BUTO evcdr 』 FI 


1=1 』 ん 2=CDR (2) 』 BUTOU eva1 
ん 1=ACC 』 ん 2=CDR (2) 』 BUTO eva1 


MHILE ん 1 > の 』 21= ニ ん 1 一 1 』 eva1[1 。 ん 2] 』 MEND 』 RETURN 


cadrs=CAR (CDR (2) ) 』 cddrs==CDR(CDR (2) ) 
IF CAR (Cddrs) >ATP THEN 
CR (Cadrs) = cddrs 』 RETURN 
ELSE CAR(cadrs) =CAR(Cddrs) 』 va1[1。CDR (cddrs) ] 』 RETURN 』 FI 


IF TT く > の THEN traceTL] 』 FI 
IF _ACC> の THEN eva1 [1 。CAR( %1 )] 


ELSE eva1[1 』CAR(CDR(X1) ) ] 』 FI 
eva1[ 1 。CDR (CDR(X1 ) ) ] 』 RETURN 
FNC=LOM(CDR (と ar) ) 
IF TT く > の THEN tracef[ 上 1 。FNC] 』 FI 
IF FNC="+′ 。 THEN BOTOU pl1us 3 FI 
IF FNE="ー′ THEN GOTO minuss 』 Fi 
IF FNC="F′ THEN BOTOU 了 forward gs FX 
IF FNC="L し "THEN GOT 1ef モ 』 FI 
IF FNC="R′ THEN GUTO right 「 王 ug 
IF FN ビ =" 人 "THEN BUTOU acCCumm 3 FI 
IF FNC='J′ THEN GOTO jump 3 FI 
IF FNC=" 幕 "THEN BOTO iro 3』 FI 
IF FNC= "ん "THEN BUT0 percen も 』 FI 
IF FNC=" く ′ THEN BUTO pushg 』 FI 
IF FNC='>′ THEN BOTOU pu11s だ 小 
IF FNC="H′ THEN BOTO home 』 F エ 
IF FNC="D′ THEN BOTO dfine ( 
IF FN ビ C='"*′ THEN GOTO way8 #* FT 
IF FNE=* ビ "THEN GOTO c1ear s Fr 
IF FNC=" 和 ま ” THEN GUTO paintc 3 FI 
IF FNC="N′ THEN GT north | 本 の 4 
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229 の の 『 IF NEMS= の THEN BOTO skip 6 

23 の の 『 IF FNC=*E′ THEN BOT ea 』 FI 

2 さ 1 の 『 IF FNC="M′ THEN GOTO west 3 FI 

232 の 『 IF FNC=*5′ THEN GOTO outh お よ 

23 さ の skip 5 IF cars=NIL THEN BUTU evcdr 5 FT 

234 の 「『 KBF=4 』 BUTH rtnerr 

235 の 9 "plus ョ 』 CC=ACC+TX1 ョ 』 tracea[ ] 』 BHTO evcdr 
236 の minu ら 。 』 QACC=AC ビ -%1 』 IF CC く ウ の THEN QACC= の 9 』 FI 』 tracea[] 』 GUTU evcdr 
237 の "perCent』 ACC=ACCX ん 1/1 の の 』 IF QCC>= の THEN tracea[ ] 』 BUTO evcdr 』 FI 
238 の “ KBF=6 』 BUTOU rtnerr 

239 の forwardi X の =X 』 Y の =Y 

24 の の 『 STEP=X1 』 newXYE] 』  (* 1 --> X。 Y #) 

241 の LINE [上 X の 。Y の 。X』Y。 の 。CLR の ] 』 (x PSET。 col or 。 normal1 #) 

242g 『 BOTOD evcdr 

24 さ の 'jump STEP=%1 』 newXY[ ] 』 BOTO evcdr 


244 の "right 
245 の 1eft 

246 の ウ “push5 
247 の "pu115g 


DIR=DTR+X1 』 MHILE DIR>= さ 6 の 』 DIR=DTR- さ 6 の 』 MEND 』 BUTD evcdr 
DIR=DIR-X1 』 MHILE DIR く < の s DIR=DIR+ さ 6 の 』 MEND 』 BOTU evcdr 
PushLACC]』 pushEDIR]』 pushECLR]』 pushEX]』 pushLY]』 BUTU vcdr 
Y=pu11[] 』 X=pu11[] 』 CLR=pu11[] 』 DIR=pu11[] 』 QCC=pu1l1E[] 』 


ee 


BUTO evcdr 
24B の clear  』 CLSEg,7。 の 1] 
249 の 『 LINE [の 。 の ,639。199。 の 。1。1] 』 (x PSET。 blue 。 box \) 
25 の の 『 PUKE KBFLAG 。 ま 4 さ ョ (* "CU %) 
251 の “ FUNC=LOUM (CDR(CAR (CDR (2) ) ) ) (* _ next Command #) 
252 の IF FUNC="C′ THEN NEMS=1 』 ん 2=CDR(X2) 』 FI 
253 の 『 BOTOD evcdr 


254 の home X= さ 2 の 』 Y=1 の の ョ 』 GUTO evcdr 


H 
255 の 9 "north  』 DIR= の 』 BHTD evcdr 
256 の east 』 DIR=9 の s BHT evcdr 
257 の "wegt 』 DIR=27 の き BUTOU evcdr 
25SB "south  』 DIR=18g 3』 BUTOU evcdr 
259 の 9 iro ョ 』 CLR=X1』 MHILE CLR>7』 CLR=CLR-7』 MEND 』 COLURECLR] 』 GOTO evcdr 
26 の の “way 昌 』 UMB=*$ の F 』 BUTOU evcdr 
261 の “paintc 』 PAINTEX。Y。 ん 1 。 さ 。CLR 。 ん 1 。1] 』 BOTO evcdr 
262 の 『 


26 さ 3 の 「(# 5ubFOutine5 Of apD1y \#) 
264 の tracef 』 IF 1 く <>1 THEN PRINT %1 』 FI 』 PRINT CHR*(LOM(X2) ) |" 


265 の 『 TCNT=TCNT+1 』 IF TCNT>15 の THEN TT= の の 』 FI 』 RETURN 

266 の "traceT 』 PRINT "T " 

267 の 『 TCNT=TCNT+1 』 IF TCNT>15 の THEN TT= の 』 FI 』 RETURN 

268 の “traceQ 』 IF TT=g の THEN RETURN 3s FI 』 PRINT "(amaACC。 7) 』 RETURN 
269 の 『 

279 の 9 'CLS HLTE ] 』 CPOKE DDR 。$ の 2 ん 1 。% さ 2 42 』 SUBE] 』 RETURN 


271 の LINE 
272 の 'COLOR 
273 の PAINT 


HLTE] 』 CPUKE ADDR 。 第 15 ん 6 5 ん 1 幕 ん 2 則 。 ん さ 間 4。 ん プ ョ SUE[ ] 』 RETURN 
HLTE] 』 CPUKE ADDR 。 さ 。2。 ま 11 1 』 SUB[ ] 』 RETURN 
HLTE] 』 CPUKE DDR 。 ま も 1 日 ん 1 間 22 蘭 ん さん 4 5 2464 ん 7 』 SUBE ] 』 RETURN 


274 の 9 | HLT CUDE *B6 。 も FD の 5 。 ま 2BF 日 村 』 PUKE 生 FDO5 , も の 

275g “ CODE $B6 。 ま FD の 5 。 も 2FE# 』 DDR= 和 ま FCB2 』 RETURN 
2769 ' BUB 』 POKE $FD の 5 の 』 RETURN 

277 の 『 

278B の "newXY  』 IF MB= の THEN 

279 の 『 XF=sinLDIR]xSTEP/ 1 の の 155/7 の 』 X=X+XF 

28 の の 『 YF=cos[DIR]xSTEP/ 1 の の ミ Y=Y-YF 』 RETURN 』 FI 
281 の 9 "genDIR 

282 の 9 『 IF DIR< く 22 THEN Ydec[] 』 RETURN 』 FI 
283 の 『 IF DIR< 67 THEN Xinc[ ] 』 Ydec[] 』 RETURN 』 FI 
284 の “ IF DIR<112 THEN XincE] s _ RETURN 』 FI . 
285 の 『 IF DIR く 157 THEN Xinc[] 』 Yinc[] 』 RETURN 』 FI 
286 の 『 IF DIR く <292 THEN Yinc[] 』 RETURN 』 FI 
287@ 『 IF DIR<247 THEN Xdec[] 』 Yinc[] 』 RETURN 』 FI 
288 の 『 IF DIR く 292 THEN Xdec[] 』 RETURN 』 FI 
289 の 「『 IF DIR< さ 37 THEN Xdec[ ] 』 Ydec[] 』 RETURN 

29 の の 「『 ELSE Ydec[] 』 RETURN 』 FI 
291 の Xinc 3 X=X+STEP+STEP 』 RETURN 

292 の 'Xdec 』 X=X-STEP-STEP 』 RETURN 

29 さ の Yinc ョ 』 Y=Y+STEP s RETURN 

294 'Ydec 』 Y=Y-STEP 』 _ RETURN 

295 の 「『 

296 の Co5 ョ ん 1=9 の ウー%1 

297 の 'sgin 3 MHILE 1 く の ョ ん 1= ん 1+ さ 6 の 』 MEND 

298 の 「『 MHILE 1 > さら 6 の 』 ん 1= ニ 1 一 うら 6 の 』 MEND 

299 の ITF ん 1 >27 の THEN Z= さ 6 の gー%1 』 ELSE 

さ の 9 の IF ん 1>18B の の THEN Z= ニ 118 の 』 ELSE 

さ の 1 の IF %1> 9 の THEN Z=1B の 9- ん 1 』 ELSE Z=%1 』 FI 』 FI 』 FI 
さ の 2 の 『 7Z=5intb1[Z] 』 IF ん 1>1B の THEN Z=ーZ 』 FI 』 Z=Z 』 RETURN 
ささ の 「『 

3 の 4 の "51intb1 』 CUDE まさ の 。 も ウロ 昔 。 生じ 62 昔 。 6B 時 。 まさ 9 

さ の 5 の “ CODE の に の 。 っ 3 の の か 0 2 3445。 1 アプ 
3g6g * CODE 17。 19。 21 。 2 さ 。 24。 26。 2 日 。 29。 さ 1 。 ささ 
さ の 7 の 『 CUDE 3 さ 4 。 さ 6。 さ 37 。 さ 9。 41 。 42。 44。 45。 47。 4 日 
さ の 8 ・ CDUDE 5 の 9。 2。 5 さ 。 54 。 56。 57。 5B。 6 の 9。 62。 6 さ 
さ の 9 の ・ CODE 64」。 66。 67。 6 日 。 69。 71 。 72。 7 さ 。 74。 755 
31 の の ・ CPUDE 77。 7 日 。 79。 B の 。 日 1 。 B2。 B さ 。 4。 B5。 6 
さ 11g CODE 7。 日 7。 BB。 9。 9 の 。 91。 91 。 92。 92。 9 さ 
さ 12g * CDDE 94。 95。 9 。 96。 96。 97。 97。 97。 98。 9 
さ 1 さ の ・『 CODE 9 日 。 99。 99。 99。 99。1 の の 1 の の 。 1 の の 。1 の 9 の 。1 の の 
さき 14 の CODE 1 の 

さ 15S の “END 
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FM- フ /11 画定 


コミ ュ ニ ケー ショ > 


画 ポ パイ & ジ ェ リ ー 














Sc 人 2EC2SSG2 ま Ko さら CS の 3 は 6028RONSRYOK CCIofoo 0 を 入力 る と メ ミ ュー( 表 1) が ます . 
念願 の ミニ フロ ッ ピ ー デ ィ ス ク を 買い まし た . ディ スク 表 1 メニ ュー 

を 使っ て いる うち に , カセ ッ ト の と き と 違 っ て LOAD す る | ディ スク か ら プ ログラム を 読み こん て 自動 的 に 走り ます | 
と き は ファ イル 名 が 省略 で き な い の か 不便 な の で , この プ LOAD と 同じ で す (BASIC, マシ ン 央 は 自動 的 に 判断 し ます ) | 
ログ ラム を 作っ て み ま し た . 


4 ディ スク の ドラ イブ 番号 の 変更 


NAME と 同じ で す . 変更 する 番号 と 新しい ファ イル 名 | 
使い 方 





を 入力 し て くだ さい 


| 消し た い プ ログ ラム の 番号 を 入力 し て くだ さい 


| マシ ン 周 の START 番 地 ,END 番 地 , ヒ XEC 番 地 を 捜し ます 


| ファ イル 名 を プリ ンタ に 出力 し ます (マシ ン 周 は アド レ 


= 

















| ス も 出力 し ます ) 還 」 
まず 記録 し て ある ディ スケ ッ ト を 0 ドラ イブ に 入れ て R 
UN し て くだ さい . メニ ュー6 の F リ スト は マシ ン 語 が 多い と アド レス を 提 や す 
ァイル 名 に 番号 が つい て 横 5 個 ず つ 並 び ま す . ファ イ た め に 少々 | 時間 が か か り ま す . 
ル Npoanc 次 の よう に 色分け し て 示さ ます. な お , FM-7 の 方 は シス テム ・ デ ィ ス ク の 中 に ある "AU 





| TOUTY” を 使っ て 自動 的 に この プロ グラ ム が 走る よう に 

















、BASIC プロ グラ ム ・ フ ァイル 導 すれ ば ディ スク も いっ そう 使い や すく な る と 思い ます 。 そ 
デー タ ・ フ ァイル > 黄色 の と き は この プロ グラ ム を ファ イル 名 “STARTUP" と し 
BR 5 の の 2 2 て セー プ し て くだ さい . また 、 [PF に RUN "st" と 登録 し て 
ASGU058W ーーーー に っ ある の で 100 行 の KEY1."R"+CHRS (34) + "st" 二 CHRS 
その まま ファ イル 名 に つい て いる 番号 を 入力 する と ディ 3) の “st” を “STARTUP” に 直し て くだ さい 


スク か ら プ ログ ラム を 読み 込ん で 自動 的 に RUN し ます . 
イス スク ・ コ ミュ ニケ ーション プロ グラ ム ・ ss 











10_ REMーーーーー Kawada SHzaki DISK コミ ュ ニ ケー ヨッ 。 。 。 ーーーーー 

100 CLEAR15OO DEF INTA-ーV: DIMF ま (152) :DIMT(152) : DEFFNX=ASC (INFUT ま (1 。1 ) ) 26+ 人 SC (INF 
UT ま (1。1) ) giEEY1 。"R.。 リ +CHR ま ( さ 4 ) + "5 モリ +EHR ま (1 さ ) : に ま =CHR 和 ま ( 1 4 ) : = = ニ ド ま TBTRTNB$ (40。 さ コロ) : = =K 
ます リ 提 リ TSPACE 和 (3 日 ) すり: NERRHRBHTO さ 20 

119 MIDTHBO. Si CHNSOHLEQ。 2 。O。 0 Z=1: =1 : ビ = ニオ 4: FUHR 人 =1TH19: GHSUE240: BUHSUR25SQO: ビ = ビ + 1 : NE 
XTA 

12O HB ま =" リ RUN" 

13 さ 0 GOUSUB22O: ITFFC=O THEN 210 

140 IF HE 生ま = リ "LHD THEN 16Q 

15Q0_ UN T(FC)+1 GHTO 170。170。18Q0 

160 ON T(FC)+1 GOHTO 190.190.200 

170_ LOAD F ま 。R 民 

1 ヨ 80 LHDM F ま 。。』R 

190 LAD F ま 

SOO LOADNM F ま : END 

210 LUCATEO。S さ gFRTNT"O。 ラ フン 1。 ロ ー ト " 2. トト "ライフ" 
NSTR("Q12 さ 456" 。 INPUT ま (1 ) ) BHTH120。 さ 70。 ささ O 。 さ 
22O_ BUSUB410kPRINTE 和 まま 』" NO." 』 ェ ETNPUTFC: IF FC 
2 さ O 上 ま =D ま +F ま (FC) : RETURN 

240 上 ま =DSET ま (D。T。 選 ) : V=O: AD=FEEF ド (VARPTR (し ま )+1 ) *256+FEERE (VARFTR (し まま) +2) : RETURN 
250O F ま =MID ま (上 しま 。( り ) ※ さ G+1 16) : H 和 = し E ビ FT (F 和 ま 。 1 ) : IFE ま = じ HR ま (O) THEN さ OO 

260O ITFH ま =CHR も (2 量 王 ) THEN さ 10 

ぞ ノ 7 谷本 =LEF 征 生 (F 呈 。 日 ) =T(Z ) =FEEK(RD+ さ 2* ソ +1 1 ) : ロニ FEER (AD+ さ 2 ボソ +12) :F ま (Z ) = 人 生 

2BO MM= ニ フーT(Z ) : IF =7RANDS=255THENM=4 

270 COLUR7 PRINTRTGHT ま (STR 和 ま (Z) 。2) =" "ggEOLURM: PR TNT 人 まま 。 : 7= ニ Z+1 

さ O00 IFV ソ =7THENRETURNELSEV= り + 1 : GHTU2SO 


さ ・ ネーム 4.K1i11 5。. ア ト " レ ルス 6.F リ ヌ ト "siHNI 
0。 さ 60。 さ 40。 さ 90: BEEP: GTO 210 
Z-1 ロ R FCXOTHEN21QO 
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,O 


ディ スク ・ コ ミュ ニケ ーション プロ グラ ム ・ リ スト 


さ 10 FRINT:FRINT:COLUR7:FRINTDSEF (D) 』"C1usters Free"':LUCATEO。 22: COLUR12:PRINT "アス ヌキ 
ー リ 。 CHLOR1 さ :FRINT "キカイ コ " "ECHLOR14:FRINT "テー タタ" s CHLUR15: FRINT "Basic"。: CULUR7: PRIN 
TEO・ メ ニュ ー] "BHTO12QO 

さ 2QO_ BEEP:RESUME 10Q 

ささ OH 生 ニ リト "ライ フリ BUSUB22QOs TF FC4 THEN さ 3O ELSE D=FC:D ま =RTGHT ま (STR ま (FC) 。1)+ す "EiBH 
TO11O 

さ 40 日 ま = リ アト ドル ヌ リュ BUSUBS2O: ゴ = ニ FCg BUHSUB42SOs LHCATEQ。 人 21:FRINTF ま 。X ま 』Y ま 』 7 和 ま : GUTO120 

さ 5O 日 = リ "チェー ネー ムリ = GHSUE22O: LUCATEO。 2 さ : FRINTF ま 。: INFUT "ニュ ー ネ ー ム " s N 和 ま : GHSUE さ Oi NAME F$ 
AS D ま +N ま $: GUTO11O 

さ 6Q も = リ "Ri11 "BUSUB22O:LUCATEO。 2 さ : FRINTF ま : BUSUE さ BQg ド TLLF ま = BHTO ロ 11Q 

さ 70 BE ま ="LOAD": GUTO13O 

さ BO SYMEOL (SQQ。 155) 。 "Are You sure(y/n) "。1 。1 : 内 相 ニ INFUT ま (1 ) : IFA ま = リ "YURA ま ="y "THENRET 








URNELSE12O 

さ 390 BUSUR410: ITNPUT "ライ トル リョ X 生 = BHSUB410:FRINT "Mai も "UHFEN" ロ 1."LPTOg "=FRTNT 欄 1 EE ま : PR 
INT 持 1。G ま :FRINT 提 1 。 世 生井 リ +X 生 +SPACE 和 まま ( さ ミーLEN (X ま も ) ) +" 井 "sPRINT 間 1.G 和 ま : PRINT 本 1 EE ま = PRI 
NT 拉 1 CHR ま (10) : CHR ま (10) +CHR ま (1) : CLHSE : FDRJ=1T ロ Zー1 : TFT ( ゴ ) =2THENBHSUB42QELSEX 和 = リョ 
Y ま こり 0 ェ フ リリ 


400_ OFEN" ロ "。1。"LFTOE "EPRINT 蘭 1 に ま *F 生 () 。 征 (J) 』 X ま 』Y ま * 7 生 :CLUSE : NEXTs BHTO13O 

410 LUCATE 042 さ :LINE(O,18B4) 一 (6 さ 9。199) ,PRESET 。 。 BF : RETURN 

420_UFEN" 1 。 1 。D ま +F 呈 ( 可 ) : Y ま =INFIUT ま (1 。 1 ) : メニ FNX : Y=FNX 』 X ま =" START』 &H"+HEX 和 ま (Y) :Y ま = リ END 
:&H"+HEX ま (X+Yー1 ) :FHR エ =1 TUX : 民 和 ま =INFUT ま (1 。 1 ) : NEXT:R 和 ま ニ INFUT ま ( さ 。 1 ) : 7 ま = リ EXECi SH +HEX$ 
(FNX) : CLUSE : X=OgRETURN 











FM -7FILEG 命 令 の 改良 較 カ メ 


FM シリ ー ズ の TILES 命 令 は 画面 サイ ズ を 無視 し た よう に どん どん し た い デ ィ ス ケッ ト を ドラ イブ 0 に 入れ , EXEC&H2000 [RETURN 
スク ロー ル し て し まい , 見 ちく て し か た あり ませ ん . いま まで に 何 で , 後 は すべ て プロ グラ ム が や っ て くれ ます . も し エラ ー が ある と 
本 か HILES 命 令 を 改良 する ソフ ト が 発表 され まし た が , どの ディ スケ BEEP 詩 が 鳴り 、 正常 な ら す ぐ READY が で ます . リセ モッ ト ・ ボ タン を 
ッ ト で も 使え る も の が あり ませ ん で し た . と いう の も , 同じ CFM の 中 で 押し て FILES を 実行 し て みて くだ さい . WIDTH40 な ら 2 つ ず つ , 
も DISK-BASIC に 何 種類 か の バー ジョ ン が ある の で , 作者 と 同じ バー WIDTH80 な ら 横 4 つ ず つ 出 力 さ れ ま す . 
ジョ ン を 持っ て いな い 人 は 革 き 変え て も 禁 走 し て し まう の で す . 本 プロ グラ ム は DISK-BASIC を 午 き 変え る だ け な の で フリ ー エ リ 

そこ で この プロ グラ ム は TILES 命 令 を 改良 する こと は も ち 論 , どん ア の 減少 は あり ませ ん (CLEAR 命令 は $71D5 ま で OK). 使用 中 の デ ィ 
な DISK-BASIC の バー ジョ ン で も 対応 し . さら に FM-7 で も FM-8 で スケ ッ ト も 改良 で きま す が , セク タ 単 位 の リー ド ・ ラ イト を や っ て い 
も 動く マス ー パ ー プ ログ ラム で す . る の で まず 壊れ て も よい ディ スケ ッ ト で テス ト し て みて くだ さき さい. 改 

プロ グラ ム を $2000 一 $209B ま で 打ち 込ん で , SAVEM FILES7. 良 す る ディ スケ ッ ト は シス テム ・ デ ィ ス ク の “SYSDSK” で FORMAT, 
名 HH2000、 多 HH209B, 交 H2000 で セー プ し て お いて くだ さい . 次 に 改良 DISK-BASIC を コピ ー し た も の に 限り ます . 
ーー フー ラー ンプ リレー・ リス ト = エー ニー テーー ェ ーー テー テー 

















03225.52854 ee55 2oaC Ez95 BTB 5』X 
Ss SS ER 本 0 0 
eo9 さ eeoo ) 22。DEC・198S FH-Z/ 100 の 2 ET 0 eg5B 2o72 

2 B 
SS AS | ye SS 3338 85 9 細 較 2 村 2 
eeee 2ooo DRG  *2ooo 9 ささ 263C ECC1 生計 oo61 277 <9 RTS 
ee97 2999 CCGABE LDD WoABE EYE EE eee2 2978 
oeoB 2003 CE297B LDU WDaTA 5 る 唐 2 ee6 さ 207B 12121212 
eegg 2eo6 B72994 STA RCB の あの.3VBG ら 上 DA 紅 oo64 297C 7FEG3494 


g9 さ 7 2945 1 ら AEC1 : LDY 。。U++ 
9 2999 FiBoog CMPB *Bo9O * 2 
PT 386 2 の BNE FM-B oo3B 294B 1oAFB1 STY 。 、X++ 二条 っ 


FDB  $1212。$1212 
FDB  $7FEO。$ さ 4 の 4 
FDB  $4FBD。*$B96D 


ら Go66 29B4 BDA9G26BD FDB  $BDAO, ま 26BD 
eo12 2ooE CC9C22 LDD Ws9C22 9935. 24B1 4 EC eo67 29BB AO263594 FDB  *$AO26」% さ 5o4 


e@91 さ 2e11 ED4D STD 13。U 6 92 268 1 1B oo6B 26BC C1oA249 さ FDB  *C1OQ。*246 さ 
9914 291 さ EDCB1O STD 16。U の の 969 2099 7EAG2639 FDB  $7EAO, る 26 さ 9 
915 2916 EDCB19 STD 25,U の 942。 < の 59 BZ2674 ST REB ee7e 2e94 

B oo4 さ 2o5 さ 8Do5 BSR DISK 
eo16 2919 CCB615 LDD WsB615 
@917 21C ED4A STD 1oU 2044。 2655: 6n91 TST 1 れ X 2 228BCCSSES SO 
991B 291E BDSA BSR DISK eo45 29057 2619 BNE ERROR 
eo19 22 6D91 TST 1,X な の 9 コ 39 RTS 
oo2o 2922 264E BNE ERROR 
eo21 2o24 BE219o LDX 。 W*2109 Oo94B ぞ 950 BE2o94 LDX WRCB 
9922 2927 861F LDA WW*1F の 949 295D CC219C LDD Ws*216C 
e92 さ 2e29 A18o CMPA 』X+ ら 9 の 5 2669[.R792 ら ま 生 、 そ ッ 
@924 202B 2797 BEQ ENTRY 6 の o1' 29920EZ の 9 に 計 に 3 
e925 2o2D 8C22oo CMPX 220O 2OOZ, 937 BDPGD JSR GODE 
ee26 23o 2449 BEC ERRDR eo5 さ 2967 CC221G LDD Ws*221 の 
eo927 2932 2oF5 BRQA LOOP 0 66TRZ6 ら ろ BA ぞ 5X 





FDB  $OAOO。$21GO 
GO72 269B ら 6oOCG19O FDB  $O9GC。$ ら 169 
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K 言 語 は , パソ コン 用 コン パイ ラ 言 語 と し て 考案 され た 

も の で , その 文法 は 比較 的 BASIC に 近く , 機能 を 縮小 し て 

コン バイ ラ 自 体 を 小さ く で きる よう に 配慮 され て いま す . 
拡張 K コ ン パ イラ は , その K 言 語 に いく つか の コマ ンド を 

加え , さら に 6809CPU の 特徴 を 生か すべ く 設 計 さ れ た コン 

バイ ラ で , 次 の よう な 特徴 が あり ます . 

① 引 数 を 使っ た サ プ ブルー チン ・ コ ー ル や , リカ シー プル ・ 
コー ル が で き , サブ プ ブルー チン へ の 引数 は 値 渡し で 行なえ 
る . 

(②@ 行 番号 の 概念 は な く , 英 数 字 の ラベ ル が 使え る . 

(⑧IF -THEN-ELSE の 複数 行 化 が で き , REPEAT-UNTIL も 
使え る . 

(《④REPEAT, WHILE の ルー プ 中 へ の 飛び 込み , 飛び 出し が 
で きる . 

(マシン 語 プ ログ ラム を プロ グラ ム 中 に 書け る . 

⑥⑯⑥ コ ン パ イラ 自体 と コン パイ ル 後 の オプ ジェ クト (マシ ン 
語 プ ログ ラム ) は , ポジ ショ ン イ ン デ ペン デン ト (位置 
自由 ) で ある . 

(〈⑦ ラ ンタ イム ・ ル ー チ ン (位置 固定 ) が 独立 し て お り , 機種 
に 依存 する の は 1 文字 入出 力 と 1 行 入力 の 部 分 だ け で あ 
る . 


EE 
疹 K コ ッ パ イラ の 健 い 訪 


(オン メモ リ 版 ) 
コン バイ ラ の 作り 方 


リス ト 5 の ダン プ ・ リ スト を 打ち 込み , フ ァイル 名 RT? 
で セー プ ブ し ます . 次 に , リス ト 6 の ダン プ ・ リ スト を 打ち 
込み , ファ イル 名 “K” で セー プ ブ し ます . EM_-11 の 方 は , リ 
スト 7 に 従い , ファ イル 版 に 変更 を 参照 し て くだ さい . 

コン パイ ル 時 に は , RT” と KRK” が 必要 で す が , 実行 
時 に は RT” が あれ ば 実行 で きま す . 

ソー ズブ ロダ ラム の 作 め 方 

拡張 代 言 語 の ソー ス ・ テ キス ト (プロ グラム) は F-BASIC の 
REM 文 の 形 で 作成 し ます . し た が っ て , 1 行 の 廊 の 先頭 に 
は 必ず 『』 が な く て は いけ ませ ん . 

リス ト 1 の プロ グラ ム 例 は , 1 か ら 10 の 範囲 の 乱数 を 100 
個 と り , 偶数 と 奇数 の どちら が 多い か を みる プロ グラ ム で 
す . 行 番号 は テキ スト 作成 を 行なう 場合 は 必要 を く , 25 行 



















































































































































































に ある GOTO 廊 の ジャ ンプ 先 は , 20 行 に 定義 され て いる ラ 
ベル 『GETRAND』 で す . また , BASIC で は 1 行 に 複数 の 
ステ ー ト メン ト を 記述 する 場合 , そ の 区 切り は 『:( コ ロン )』 
で 行ない ます が , 拡張 人 衣 で は 『: (セミ コロ ン )』 を 使い ます . 
で すか ら , 25 行 に ある 『:』 は , PRINT 文 の 出力 を 連続 させ 
る だ ため の も の で は な く , 次 の 『f, と の 区 切り を 意味 し ま 
す . 拡張 民 の PRINT 文 は 指定 (改行 子 『/』 を 書く ) を し な い 
か ぎり , 改行 は 行ない ませ ん . 

拡張 代 で は 英字 の 大 小 廊 字 は 区 別 し な い の で (文字 列 中 
は 除く ), キー ワー ド を 小 廊 字 , その 他 を 大 文字 と し て , リ 
スト を 見 や すく ぐす る こと も で きま す . その 他 , 詳し い 文法 
な ど は ここ で は 省略 し ます が , 抜 張 代 を 初め て 使う 方 は , 
まず 次 ペー ジ の リス ト 1 を 入力 し て みて くだ さい . 入力 し 
だ た ブログ ラム は , 通常 の BASIC と 同様 に テー プ に セーブ で 
きま す . 
ロン / YT ル 

ソー ス ・ テ キス ト の 入力 後 , EXEC&H2000 [| と 入力 す 
る と , コン パイ ル が 開始 きれ ます . コン パイ ル ・ エ ラー が 
生じ た 場合 , その 行 と 位置 を 表示 する の で , ソー ス ・ テ キ 
スト を 修正 し て , 再度 コン パイ ル を 行なっ て くだ さい . 

コン パイ ル が 正常 に 終了 する と , オブ ジェ クト ・ ブ ログ 
ラム の サイ ズ が 表示 され ます . これ は オプ ジェ クト を セー 
プ す る 場合 に 必要 と な る の で , 値 を メモ な ど に 記入 し て お 
いて くだ さい . リス ト 1 の プロ グラ ム を コン パイ ル す る と , 
図 1 の よう に な り ま す . 
実 行 

コン パイ ル し だ た オブジェ クト は $5000 よ り 生 成 さ れる の 
で , BEXXEEC 科 H5000 | で, すぐ に 実行 する こと が 可能 で 
す . し か し , プロ グラ ム の 作り に よっ て は 竣 走 する 場合 も 
ある の で , 実行 前 に ソー ス ・ テ キス ト を テー プ な ど に セー 
プ し て お いて くだ さい 、。. 

リス ト 1 の プロ グラ ム を 実行 する と , 図 2 の よう に な り ま す . 
リス ト 2 は リス ト 1 と 同様 の プロ グラ ム を , BASIC で 記述 
し た も の で す . 入力 し て その 実行 速度 を 比較 する と , KK コン 
パイ ラ ・ オ プ ジ ェ クト の 実行 の 速 さ が わか る で し ょ う . 

完成 し た オプ ジェ クト は , その まま マシ ン 語 プロ グラ ム 
ど し て 。 モー プ す る こと が で きま すず で の と きき. ラン タイ 
ム ・ ル ー チ ン も 合わ せ て セーブ すれ ば , 再び 実行 する と き 
に ラン タイ ム ・ ル ー チ ン を 別に ロー ド す る 必要 が な く な り 
ます . モー ブ プ す る コマ ンド は 通常 の マシ ン 語 と 同様 , 
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リス ト 1 


サン プル ・ プ ログ ラ ム 、 














ラム き ) ドド 1SUU=9』 BUUSU= ら @ 





"for_N=1 to 


GETRANDI FRD=Fnd(11) 


= 1f RDF@ then goto GETRRND 1 紀 ロ F1nt "に リョ 
9 ュ イ (RD and も の 991)=@ then BUUGSU=GBUUSU+ 1 

St Else ETBUU=ETSUU+ 1 

介 9 「 千 

4 ne 

つら の も DF す DD も な 家 ゆ KTGUUS の イン の 22 が の ン ル ベ ウ ュ 

5 "nd 


入 】 


っ MMUGUE が 2 





リス ト 2 比較 プロ グラ ム (BASIC) 













"サッ 29 ル 25 ログ の "ラム 
RNDOM1ZE 
FDR NE1 TO 199 
(ND*19 


9 ん = の 9 THEN 25 ELSE PRTNT "。"j 
ん QAND H1)= 

































































SO 、- ド 9 THEN BUUSU=GUUSU+1 ELSE EEISUU=EETSUU+ 1 
4@ NEXT 
45 FRINTIFRINT リキ 計量 りり 。 攻 所 BBE。 の 。 カカ Ms PRENIE ID2 の ウタ ウェ ュー" ョ GUBSUE “94" 
5 END 
図 1 コン パイ ル 画 面 図 3 K コ ン パ イラ ・ メ モリ ・ ア ッ プ 
Ready 
EXEC&HSGE 
ド COMFTLER VERSIUN ミ 。 aeA 
1 
COFYRIGHT 19BS BY CDMFQC. PP 
0⑥⑩0 に レニ シル レグ リグ ) 
$41FF 
COMFTLTNG。 。 。 
4300 に 
コン パイ ラ ・ シ ン ボ ル ・ テ ー プ ブル 
$4B00 
コン バイ ラ ・ 作 業 用 エリ ア 
s4C00 
実行 時 ワー ク ・ エ リア 
OBEJECT FRDGRAM BTZE 』179 (ES) 鐘 間 ランタ ィ イム. ルー テン 
s5000 
COMFTLE END. 2 
(リロ ケー タプ ル ) 
Ready 
図 2 実行 画面 





Ready 
HARDC 














SAVEM "File Name': を H4D00, End Address、 を H5000 











と な り , End Address は オブ ジェ クト ・ プ ログ ラム の サイ ズ 
に 層 H5000 を 加え た も の で す .File Name は 任意 に 付け て く 
だ さい . 


ル :3 歓 | ヨ 


キー ボー ド に より 1 文字 を 入力 する . キー 入力 が 
な いと き は , 0 を 値 と し て 持つ . ラン タイ ム ・ ル ー 
チン の S4F89 を SB00 か ら S01 に 変更 する と , キー 入 
カ が ある まで 待つ よう に な る . 


キー ボー ド か ら |2| キー が 押さ れる まで を 入力 と 
する . [pEL| キー, [INs| キー で , 入力 し た 文字 の 削 
除 , 挿入 が で きる . [CTRL| + [c] で 実行 を 中 止 す 
る . 


画面 に 出力 する . ラン タイ ム ・ ル ー チ ン の $4F38 
を 8D に する と , 画面 と プリ ンタ の 両方 に 出力 す 
る . プリ ンタ に だ け 出 力 す る に は , S4F39 を 15 
に する . 


GET 























INPUT 




















PRINT 
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オプ ジェ クト は , 先頭 で PSHS, END 廊 お よび 廊 の 最後 
で PULS を 行なっ て , スタ ッ ク ・ ポ イン タ お よび レジ スタ 
類 を 全部 保護 する の で , 他 の ルー チン (BASIC な ど ) か ら , 
サブ ルー チン と し て 利用 で きま す . 


吾 RAM の 使用 (FM-/ の み ) 


FM- 7 で は ,。 BASIC イ ンタ ー プ リタ ROM と アド レス が 
重複 し て いる RAM を , ソフ トウ ェ ア で 切り 換え て 使う こ 
と が で きま す . この RAM エ リア を 裏 RAM と 呼び , 
コン パイ ラ を 移動 する こと で , テキ スト ・ エ リア , オプ ジ 
ェクト ・ エ リア を 増やす こと が 可能 で す . 

扱 張 夫 コン パイ ラ を 裏 RAM に 移し て 使う に は , 次 の よう 
に し て くだ さい 、。 

1) 通 常 の 手段 で 、 ラン タイ ム , 

ま :39 を 
(2) リ スト 3 の リロ ケー タ を 入力 し て , EXEC&H2000 

コン パイ ル し ます . 


の 


コン パパ イラ 本 体 を ロー ド し 





4 








で 














下 還 昌 時 "リス ト 4 エグ クセ ビ キ ュ コー タ 還 還 昌 昌 





19 "FRINT "EXECEUTUR"/』PUEE ま FDO ら F 。 9 
9 "PRINT"START ADR="』SA=INFUT 

さき 9 "CALL Sa 

449 "ローFEE ド (FDGF ) 


(3EXEC&H5000 | 用 で リロ ケー タ を 実行 する と , スタ ー ト , 
エン ド , デ ィ ス ティ ネー ショ ン の 各 ア ドレ ス の 入力 要求 を 
じ て き まず 、。 だ と そば 次 の よう に 入力 し で くだ さい ( ア 
ンダ ー ラ イン の 部 分 を 入力 する ). 


























START ADDR=$2000 [一 KK コ ン パ イラ の 先頭 アド レス 
END ADDR=$41FF 2 一 玉 コ ン パ イラ の 最終 アド レス 
DEST ADDR=$CO000 [2 一 玉 コ ン パ イラ を 移す 先頭 アド レス 






































な お , この リロ ケー タ の オプ ジェ クト を , ラン タイ ム ・ 


ルー チン と 合わ せ て セー ブ し, 裏 RAM 用 リロ ケー タ と 
すれ ば , 次 回 か ら (2) の 作業 は 不要 に な り ま す . 

(4④) リロ ケー ト が 済ん だ どら, リス ト 4 の エグ ゼ キ ュー タ の リ 
スト を 入力 し , コン パイ ル し ます . 

(5) コ ン パ イル が 済ん だ どら エグ ゼ キ ュー タ ・ オ プ ジ ェ クト は 
単独 で セー ブ し て お きま す . 

(6) 以 上 で コン パイ ル の 準備 は 完了 な の で , 





CLEAR100, &H41FF | ジ | 














と 入力 し て か ら ,。 コン ペイル し た い プ ログ ラム を ロー ド し 
て くだ さい . 通常 の 拡張 代 コ ン パ イラ に 比べ , テキ スト ・ 
エリ ア が 増え る の で , 従来 メモ リ 不 足 で 入力 で き な か っ た 
ソー ス ・ テ キス ト も か な り 入 力 す る こと が で きま す . 

(7) ソ ー ス : テキ スト の 入力 が 済ん だ ら , 万 一 の こと を 考え 
で テー プ な ど に ギー ジ プ ゆ で くだ さい この あど (5) で セ 
ー ジ し な ピエ ジグ ゼー ギョ ーー を ロード 北 





EXECSH5000 | 選 








で 実行 し ます . する と , コン ペイ ラ の スタ ー ト ・ ア ドレ 
ス を 聞い て くる の で , 








EXEC ADDR =ー$C000 | 




















(これ は (3) の 『DEST ADDR』 で 入力 し た 値 ) と 入力 すれ 
ば ぱ ば , 裏 RAM に リロ ケー ト し た コン パイ ラ が 起動 し ます . コ 
ン フ パパ イラ を 起動 する 前 に は 必ず エグ ゼ キ ュー タ を ロー ド 
レ で ぐだ さい 、 


條 BBB B BB BB BB BB BB BB Bm mmm mmlmml 


ファ イル 販 へ の 費 還 (『 M7/11) 


伯 日  B B E E E E Emmmml 

通常 の 拡張 衣 コ ン パ イラ は , メモ リ 上 に ある ソー ス ・ テ 
キス ト を コン パイ ル し ます が (これ を 便宜 上 オン ・ メ モリ 
版 と 呼び ます ), テキ スト ・ エ リア が 約 6K と バイ ト 限 られ 
て いる だめ, 長い プロ グラ ム の コン パイ ル は で きま せん . 

これ に 対し , ファ イル 版 の 拡張 代 コ ン パ イラ は , ディ ス 
ク あ る い は テー プ に ASCII 形 式 で セー ブ プ し た ソー ス ・ プ ロ 
グラ ム を コン パイ ル す る の で , オプ ジェ クト ・ エ リア の 許 
す 限 り の ソー ス を コン パイ ル す る こと が で きま す . 

オン ・ メ モリ 版 を ファ イル 版 に 変更 する に は , コン パイ 


,&O 


表 1 KK コ ン パ イラ エン トリ ・ マ ッ プ (V3.3) 
| 


アド レス | 内 容 機 能 


2003 4C コン パイ ル 時 変数 エリ ア ・ ア ドレ ス の 上 位 1 バ イト . 
2007.8 | 4C00 コン パイ ル 時 U ス タッ ク ・ エ リア の 最終 アド レス . 
2073.4 | 4200 プロ グラ ム 1 行 入力 バッ ファ ・ ア ドレ ス . 

207D,E| 5000 オプ ジェ クト 作成 アド レス . 

2082,.3 | 4300 シン ボル ・ テ ー フ ル ・ ア ドレ ス . 

208E,F| 4B8E コン パイ ルレ 時 スタ ッ ク ・ エ リア の 最終 アド レス . 
209A.B| 4B00 コン パイ ルレ 時 作業 用 エリ ア 

20C0 | 4C 実行 時 変数 エリ ア ・ ア ドレ ス の 上 位 1 バ イト . 
20CE | 4C 実行 時 U ス タッ ク ・ エ リア 最終 アド レス の 上 位 1 バ イト . 
20D4 | 00 実行 時 U ス タッ ク ・ エ リア 最終 アド レス の 下位 1 バイ ト . 


4186 サ プ ブルー チン | コン バイ ラ 1 行 入力 ルー チン 


41E2 1 コン パイ ラ OPEN ル ー チ ン 

41EE 7 コン パイ ラ CLOSE ル ー チ ン 

4D00 ヶ ラン タイ ム 1 文 字 入 カル ー チ ン エコ ー バ ッ ク な し . 
4D03 0 ラン タイ ム 1 文 字 出 カル ー チ ン 

4D06 4 ラン タイ ム 1 行 入力 レー チン エコ ー バ ッ ク あ り . バッ 


ク ・ ス ペー ス あ り . 

















ラ 本 体 と ラテ ンタ イム ・ ル ー チ ン を , リス ト 7 の ダン プ ・ リ 
スト に 従っ て 変更 し , リス ト 8 の メイ ン ・ プ ログ ラム を 入 
カカ し て くだ さい . 入力 後 , 次 の よう に し て ディ スク まだ た は 
テー プ に セー プ し ます 。. 











SAVE “MAIN" | ジ 
SAVEM "RTR を H4D00, を H4FEE, を H4D00 | 
SAVEM “KEF! &H2000, を H41FF, H2000 | ジ 









































FM-11 で は $4FAC か ら の 2 バイ ト を , $E537 に 変更 し て く 
だ さい . これ は , F-BASIC ROM の 1 行 入 力 ル ー チ ン の ア 
ドレ ス で す . F-BASIC の バー ジョ ン に よっ て , 変わ る こと 
が ある の で 注意 し て くだ さい . また , $4FA1 を $2C に , $4FE 
2 を $39 に 変更 し て くだ さい . 

変更 し た ファ イル 版 は 次 の 順序 で 使い ます . 
① ソ ー ス ・ テ キス ト を 入力 し , それ を 使っ て いる 外部 記憶 装 

置 ( デ ィ ス ク ま た は テー ブ ') に ASCII 形 式 で セー ブ し ます . 
⑧② リ スト 8 の メイ ン ・ プ ログ ラム を ロー ド し RUN し ます . 

する と , ヾ HOT OR COLD?? と メッ セー ジ が で る の で , ラ 

ンタ イム お よび コン パイ ラ が メモ リ 上 に ロー ド 済 み で あ 

れ ば |H| を , そう で な けれ ば , 変更 し た ラン タイ ム と コン 

パイ ラ を セー プ ブ し た ディ スク (ドラ イブ 0) ま た は テー プ 

を セッ ト し て か ら , [CI| を キー イン し て くだ さい . 
③ 次 に , ヾ FILE NAME ?? と メッ セー ジ が で る の で , ① で 

セー プ ブ し た ソー ス ・ テ キス ト の ファ イル を セッ ト し て か 

ら フ ァイル 名 を 入力 し ます . 

(〈④ フ ァイル 名 を 入力 する と , ソー ス ・ テ キス ト を ファ イル 

か ら 読 みな が ら コ ン パ イル を 始め , で き あ が っ た オプ ブ ジ 

ェクト は メモ リ 版 同様 に 実行 , セ ー ブ が 可能 で す . 


パー 党 ツジ ・ ア アッ プ 


V3.6 で は , 旧 バ バージョ ン に 溢 の 変更 , デバ ッ グ を し た の 
で , 旧 デ バー ジョ ン を お 持ち の 方 は , リス ト 9 に 従っ て 変 
更 し て くだ さい . 
⑳ コ ン パ イル ・ エ ラー の と き , 禁 走 する こと が あっ た . 
対策 コンパイル の 最初 で S ス タッ ク を 保存 し , 最後 で S 
スタ ッ ク を 復帰 し た 後 , BASIC に 戻る よう に し た . コ ンマ パ 
イラ を サブ ルー チン と し て 使う 方 は , $41F7 を $7F か ら $FF 
に 変え たれ ば , レジ スタ 類 が 全部 保護 され て 戻っ て くる よう 
に な る . これ に 伴 な い , I 旧 バー ジョ ン の $2001 は $2003 に , 
$2005 は $2007 に 変わ っ て いる . 
































83 


&O 


@ オ プ ジ ェ クト ・ プ ログ ラム が , サブ ルー チン と な ら な い . 


対策 オブ プ ジ ェ クト ・ プ ログ ラム の 先頭 で , PSHS を 行 な 
い ,S ス タッ ク を 保存 し , END 娘 お よび オブ ジェ クト ・ プ 
ログ ラム の 最後 で , S ス タッ ク を 復帰 (PULS) し て 戻る よ 
うな れ も 、 

これ に よっ て , オプ ジェ クト ・ プ ログ ラム 内 で , た と え そ 
S ス タッ ク を 変更 し て も , 正常 に 復帰 で きる . 

注 ) 以前 の よう に , 強制 的 に BASIC に 戻す こと は し な い 
の で , プロ グラ ム で RAM モー ド に し た と き は , 最後 に 必 
ず ROM モ ー ド に 戻す . 

@ 論 理 演算 子 AND を 英 小文字 で 使う と, 論理 和 OR と な っ 
た . また , 配列 を 用 いて AND を 3 個 以 上 続け る と , 論理 和 O 
R と な っ た . 

対策 : 修正 . 

@PEEK 文 で 変数 を 使う と , 2 バイ ト PEEK に な っ た . 
対策 : 修正 . 


POKE 文 ,CPOKE 文 の 中 で , PEEK 文 が 動作 し な か っ た . 


対策 : 修正 . 
ラベ ル ・ テ ー ブ ル が 小さ か っ た . 
対策 ラ ベル ・ テ ー ブ ル を $100 ふ や し た . 


注意 ・ そ の 仙 


配列 の 使い 万 


拡張 KK 言語 で の 配列 は , 1 バイ ト 配 列 と 2 バイ ト 配 列 が 
あり , その 領域 は , 実 ア ドレ ス で 指定 し ます . 

配列 を 使う に は , その デー タ を メモ リ 上 の どこ に 配置 す 
る か を , ユー ザー 自身 で 決定 し , その 先頭 アド レス を , 














変数 名 = 式 ( 式 は 配列 の 先頭 アド レス ) 








で 指定 し ます . ここ で 使っ た 変数 名 が , 以後 配列 名 と し て 
使わ れ ま す . 

配列 要素 の アク セス は 下記 の よう に 行ない ます が , 要素 
数 の 上 限 を 考 庶 し て , 配列 エリ ア に は プロ グラ ム が 書か れ 
な いよ うに し , また 配列 エリ ア を 超え て 書き 込み が 行なわ 
われ な いよ うに , 注意 が 必要 で す . 





[2 バイ ト 配 列 の アク セス ] 
半 式 ) 変数 ( 式 ) 

変数 の 値 ( 先 に 先 ア ドレ ス を 定 基 ) に 
( 式 ※2) を 加え た アド レス を アク セス し ま 


[1 バイ ト 配 列 の アク セス ] 
革 式 ) 変数 : 式 ) 
変数 の 値 ( 先 に 先頭 アド レス を 定義 ) に 
式 の 値 を 加え た アド レス を アク モス し ます . 
例 ) DIMA=$6000 。 
例 ) DIMB=$6100 


X= テ DIMA : 3) 
Y=DIMB1) 
15 | $6000 一 DIMA s6100 ーー DIMB 
FF 


0 6100 十 2 * 1 DIMB(1) 


sl 
較 | | 
ーー】 


6000 十 8 一 DIMA:3) 


メモ リ 内 容 が 上 凶 の よう で あれ ば , X に 
は $02 が 代入 きれ ます . 


配列 は 変数 の 値 を 変え る こと で , その 位置 を 簡単 に 変更 
する こと が で きる の で , プロ グラ ム 中 で 配列 を 動 的 に 処理 
する こと も 可能 で す . 


サブ ルー チン 関数 ・ 手 続 の 使い 万 
拡張 人 言語 で は , サブ ルー チン ・ 関 数 ・ 手 続 の 区 別 が な 
く 。 RETURN 文 で 終了 し て いる ルー チン は , その いずれ 


メモ リ 内 容 が 上 芝 の よう で あれ ば 、Y に 
は $000F が 代入 され ます . 
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と し て も 使用 が 可能 で す . も し , サブルーチン と し て 使っ 
て いる の で あれ ば , 呼び 出し は GOSUB 女 で 行ない ます . 
これ を 関数 ・ 手 続 と し て 使っ た 場合 、 呼び 出し は 単に ラベ 
ル 名 に [ ] で 囲ん で 引数 列 を 書き ます . 関数 と し て 使用 す 
る と き 呼 び 出 され た ルー チン で , 最後 に 実行 され た 代入 の 
値 を ラベ ル 名 に 持ち 帰り ます . た と えば , 階 乗 を 値 と する 
関数 FACT は 次 の よう な 記述 が 可能 で す . 
1 FETi 











1k ド 抽 ETE1ー1 1 











上 の 例 で 関数 FACT は A に 代入 され た 値 を FACT の 値 と 
し て 持ち 帰る の で , 引数 を 1 と し て EACT を 呼ぶ と ,FAC 
の 値 が 1 と な り ま す . まだ, この 例 で は FACT の 中 で 再 
び FACT を 呼び 出す ,。 リカ ー シ プ コー ル も 行なっ て いま す . 
た だ し , この よう な 処理 を させ る 場合 、 ス タッ ク が オー バ 
ー フ ロー する 危険 が ある の で , 充分 な 注意 が 必要 で す . 

サ プ ル ー チ ン ・ 関 数 ・ 手 続 を コー ル し た 場合 の 引数 は , 
スタ ッ ク に その 値 が セット され る 値 渡 し で , サブ プロ グラ 
ム 側 に 渡さ れ ま す . た だ し , 文字 列 は その 格納 きれ て いる 
アド レス が , スタ ッ ク に セッ ト さ れる の で , サブ ブロ グラ 
ム 側 で は その アド レス か ら PEEIK 関 数 な ど で , 文字 列 を 読 
み 出 すこ と に な り ま す . な お , 文字 列 の 終わ り は 1 バイト 
の 0 が セッ ト さ れ て お り , それ 以後 の プロ グラ ム と 区 別 す 
る こと が で きま す . 

サ プ プ ログ ラム 側 で 引数 を 参照 する 場合 は 多 変 数 を 使い 
ます が , これ は 前 記 の よう に , スタ ッ ク の 値 を 参照 する た 
め , コー ル 側 の 引数 を 変化 させ る こと は で きま せん . サブ 
側 で コー ル 側 の 引数 を 変化 させ た い 場 合 , ADR 関 数 で その 
変数 の アド レス を 渡し , PEEIK, POKE な ど で そ の 内 容 を 
変更 する こと に な り ま す . 

サ プ ブルー チン が コー ル さ れ た 時 点 で の スタ ッ ク と , 引数 , 
変数 の 対応 は 次 の よう に な り ま す . 





[ 例 ] ALPHA [2, A, "ABC"] 





1 Low ア ドレ ス 





SP… | Ret Adr | 220… リ ター ン ・ ア ドレ ス 
第 1 引数 | 2%1…S$0002 
第 2 引数 | 222… 変 数 A の 値 
第 3 引数 | 223… 廊 字 列 の 格納 され 




















Hi アド レス ! て いる アド レス を 
本 の ニニ ニニ ニー: s41 
42 
s43 
00 











外部 ルー チン と の リン フ 

ユー ザー が アセ ンプ ラ な ど で 記 述 し だ 手続 や シス テム 
の ユー ティ リティ ・ ル ー チ ン を コー ル す る に は , DEE 文 で 
その 開始 アド レス を 定義 し , 呼び 出し は 一 般 の サブ ルー チ 
ン や 関数 と 同様 に 行ない ます . 引数 も 同様 に シス テム ・ ス 
タッ ク に 値 が モッ ト さ れ て (サブルーチン ・ 関 数 の 使い 方 
参照 ) 渡さ れ ま す . 

ユー ザー ルー チン か ら の 値 は , AccD に モッ ト す れ ば , リ 
ター ン 後 その 値 が 外部 関数 の 値 と な り ま す . この と き S, U 
スタ ッ ク , DPR は 変更 し て は いけ ませ ん . 


K コ ヨン / ル パイ キー ウード 

キー ワー ド は すべ て 了 予約 語 で , その 意味 は KK コ ン パ イラ 
の 仕様 で 定め て いま す . キー ワー ド の 区 切り は , 空白 また 
は 記号 で , 変数 名 を キー ワー ド で 始め た 場合 の 動作 は 保障 


し ませ ん . 

ABS, ADR, AND : INPUT 

CALL, CHR$, CODE : NEXT 

CONST, CPOKE : NOT 

DEF : OR 

ELSE, END : PEEK, POKE, PRINT 
Fl, FOR : REPEAT, RETURN, RND 
LOW : SEX, SGN, SPC$ 

HEX$, HEX2$, HIGH : UNTILL 


IF 65 WEND 
GET, GOSUB, GOTO 8 


エラ ー ツ 区 ーー 
拡張 コン パイ ラ は コン パイ ル 時 の 構文 チェ ッ ク を 完全 
行なわ な い の で , プロ グラ ミン グ の 際 は 次 の 点 に 充分 注 

意 し て くだ きい . 

(1 変数 の 誤り や , 予約 語 と の 重複 に : 





意 する . 


(2 サブ ルー チン ・ 関 数 な どの 呼び 出し で の パラ メー タ の 過 
不足 . 

(3)CODE 文 」 CALL 廊 の 数 値 や アデ ドレ ス の 誤り 
コン パイ ル 時 の エエ ラー メッセー ジ と その 意味 を 表 2 に 示 


&O 


表 2 エラ ー メ ッ セ ー ジ 





DOUBLE DEF ERROR 
ELSE WITHOUT IF 

FI WITHOUT IF 
ILLEGAL ARGUMENT 


ラベ ル の 二 重 定義 が ある . 

ELSE に 対応 する IF が な い . 

FI に 対応 する IF が な い . 

手続 , 関数 の パラ メー タ に 誤り が あ 
る . 

許さ れ な い 式 で ある . 

REPEAT, WHILE, FOR, IF 句 の 対 


ILLEGAL EXPRESSION 
ILLEGAL NESTING 


応 が お か し い . 
NEXT WITHOUT FOR NEXT に 対応 する FOR が な い . 
SYNTAX ERROP 構文 に 誤り が ある . 
TOO MANY VALIABLES 変数 の 数 が 多 す ぎる . 
UNDEFINED LABELS 未定 義 の ラベ ル で ある . 


UNTILL WITHOUT REPEAT| UNTIL に 対応 する REPEAT が な い . 


WEND WITHOUT WHILE WEND に 対応 する WHILE が な い . 














しま 3 





選 


使用 例 な ど 豊 富 に だ し た か っ た の で す が , 紙面 に 限り が 
あり , で きま せん で し た . SI MA 
て いる の で , 他 の 氏 コ ン パ イラ の 記事 を 参考 に し て くだ さ 
い . 














1 文字 定数 は , ASCII 文 字 1 文字 を 『'』( シ ング ル ・ 
クォート ) で 囲っ た も の で , その 文字 の ASCII コ ー 
ド を 値 と し ます . 
例 ) IF GET='E' THEN PRINT 
"オウ ワリ YE 
文字 定数 は ASCII 文 字 列 を 『"』( ダ プル ・ ク ー ト ) 
で 囲っ た も の で , PRINT 文 中 で 出力 する 文字 列 と 
し て 使っ た り , 関数 や 手続 (サブルーチン ) の 引 
数 に 使っ た り し ます . 
例 ) “FM-7, FM-11? 
拡張 K 言 語 は 整数 型 で , 数 値 は 一 32768 一 32767 の 
範囲 の 整数 が 使え ます . 実数 は 使え ませ ん . 
例 ) 0 
ー32768 
16 進 定数 は , 10 進 定数 と 区 別 す る た め に , 先頭 に 
『$」 を 付け ます . 桁 数 は 4 桁 以下 で , $0 一 $FFF 
F の 範囲 で す . 
例 ) 50A 

$7FFF 








ロケ ー シ ョ ラベ ル 名 は 英字 で 始ま る 英 数 字 列 で , 8 文字 まで 
ン を 指定 す を 認識 し ます . GOTO 文 , GOSUB 文 で 参照 する ラ 
る ラベ ル ベル は , プロ グラ ム 中 の 参照 し た い 位置 に ラベ ル 
を 書き , その 後に 『:』 を 書け ば 定義 で きま す . ユ 
ー ザ ー の マシ ン 語 サブ ルー チン な どの 外部 ルー チ 
ン を コー ル す る 場合 は , DEF 文 で ラベ ル 定 義 を し 
ます . 
例 ) SUB 
FIRST : 
数 値 を 指定 ラベ ル 名 は 英字 で 始ま る 英 数 字 列 で , 8 文字 まで 
する ラベ ル を 識別 し , CONST 文 で 数 値 を 定義 し ます . この 数 


値 は 変更 で きま せん . 
例 ) CONST DATA=$3800 















変数 は プロ グラ ム 中 で 使う , 変化 する 値 を 表す 名 前 で す . 初期 値 は 
不定 な の で , 使う 前 に 必ず 初期 値 を セッ ト し て くだ さい . 


単純 変数 は 英字 で 始ま る 英 数 字 列 で , 8 文字 まで 
識別 し ます . 変数 名 を 拡張 K 言 語 の 予約 語 (た と 
えば FOR, NEXT, GOSUB な ど ) で 始め た 場合 の 
動作 は , 保障 し ませ ん . 代入 可能 な 値 は , 10 進 お 
よび 16 進 定数 の 範囲 で , 一 32768 一 32767 ($0 一 $ 
FFFF) で す . 
例 ) A 
FM-7 
注 ) WENDA (WEND が 含ま れ て いる ) の よう に 予 
約 語 で 変数 名 を 始め た 場合 の 動作 は , 保障 し な い . 
また , ABCDEFGH5 と ABCDEFGH6 は 8 文字 以上 
な の で , 同一 の 変数 と みな す . 
配列 に は 2 バイ ト 配 列 と 1 バイ ト 配 列 の 2 種類 が 
あり ます . 配列 の 定義 は , BASIC の よう に DIM 文 
で 宣言 する 必要 は あり ませ ん が , 配列 を 格納 する 
メモ リ ・ エ リア を , プロ グラ ム 中 で 指定 する 必要 
が あり ます . また , 配列 は 1 次 元 の みな の で , 2 
次 元 以上 の 配列 は , ユー ザー 側 で 要素 番号 を 計算 
する 必要 が あり , 要素 数 の 上 限 も ユー ザー 管理 で 
す . 使い 方 は 『 注 意 ・ そ の 他 』 を 参照 し て くだ 
さい . 
これ は サ プ ブルー チン 側 で , 引数 の 参照 を する 場合 
に 使い ます . 参照 は 『%%」 と 数 値 で 行ない , 数 値 
は 引数 の 順番 を 示し ます . た と えば , 関数 ・ 手 続 
側 で , 22 3 は その 関数 ・ 手 続 の 引数 の 3 番目 を 参 
照 し ます . この と き , 変数 に 数 値 を 代入 し て も , 
メイ ン (呼び 出し 先 ) の 引数 列 の 変数 を , 変化 さ 
せる こと は で きま せん ( 値 渡し ). 関数 ・ 手 続き 側 
の 値 を メイ ン に 返す に は , 変化 させ た い 変 数 の ア 
ドレ ス を 引数 で 与え , その アド レス の 内 容 を 変化 
させ る 必要 が あり ます . 
例 ) % 1 

%5 


配列 変数 


















































リ フ ア 必 ンス EE まま まま さま さま 
式 
ステ ー ト メン ト 
合 処理 1 を , 偽 (0 ) の 場合 処理 2 を 行 
な いま す . FI は IF の 終了 を 示し , 1 つの IF 
演算 子 の 意味 は BASIC に 準じ , 優先 順位 は 乗除 , 加減, 論理 の 順 で 0 
す . た だ し , 1 つの 式 に 2 個 以上 の 論理 演算 子 を 書く こと は で きま Ne 
せん . K 
除算 の 結果 が 整数 で な い 場 合 , 小数 点 以下 は 切り 捨て られ ます . ま 例 ) 変数 X が 奇数 か 偶数 か を 判定 する プ 
た , 加減 乗除 算 で , 結果 が オー バー フロ ー ( 桁 あふ れ , 32768 以 上 , ログ ラム . 
また は 一 32769 以 下 ) に な っ た 場合 の 結果 は 保障 され ませ ん . 10'IF (X AND $01) =0 THEN PR 
INT" グ ウス ウ " 
20' ELSE PR 
テ INT" キ スウ " 
ステ ー ト メン ト 30'FI 
コメ ント コメ ント は 『(*」 で 始ま り 「*)』 で 終わ 注意 ) IF と THEN は 同じ 行 で て なく て は い 
り ま す . 始ま り と 終わ り の 間 に は , キー け ま せん . 
ボー ド か ら 入 力 で きる すべ て の 文字 を 書 FOR-NEXT 書式 ) FOR 制御 変数 三 初期 値 TO 終 
く こ と が で き , その 文字 列 は プロ グラ ム 了 値 ISTEP 増分 値 | 処理 
に は 何 の 影 響 も 与え ませ ん . NEXT 
コメ ント を プロ グラ ム 中 に 注釈 と し て 入 FOR-NEXT 間 の 処理 を 繰り 返し ます . 制 
れる こと で , リス ト を 見 や すく する こと 御 変数 は 最初 に 初期 値 が 代入 され , NEX 
が で きま す . T ま で の 処理 を 1 回 行う ご と に , 増分 値 が 
例 ) (*k 1 モジ ニュ ウリ ョ ク ルー チ 加算 され ます . この 繰り 返し を 制御 変数 
ン *) が 終了 値 よ り 大 きく な る まで (増分 値 が 
代入 書式 ) 変数 名 ニ 式 負 の 場合 小さ く な る まで ) 行い ます が 
代入 は , 右辺 の 算術 式 , 論理 式 , 関数 な BASIC と 違い , 最初 か ら 初期 値 が 終了 値 
どの 結果 を 左辺 の 変数 に 代入 する も の で より 大 きい (増分 値 が 負 の 場合 小さ い ) 
す . 場合 は 処理 を 1 度 も 行か いま せん . 
例 ) A=5 初期 値 , 終了 値 は 定数 また は 式 で 指定 で 
KEKKA=$0F AND $D1 きま す が , 増分 値 は 定数 以外 使え ませ ん . 
ADDRESS=ADR(X) な お , STEP が 省略 され た 場合 , 1 と みな 
CONST 書式 ) CONST ラベ ル = 定 数 | ラベ ル され ます . また , 1 つの FOR に 対し て 必 
三 定数 | … ず 対 応 す る NEXT が 必要 で , FOR-NEXT 
数 値 表 わす ラベ ル を 宣 語 し まあ 『,』 で 区 切 間 の 処理 で 制御 変数 の 値 を 変更 する こと 
る こと で 複数 の 定義 を 同時 に で きま む は で きま せん . 
例 ) CONST A=5 例 ) 1 か ら N ま で の 数 を 表示 し ます . 
CONST XMAX=39, YMAX 三 24 FOR |=1 TO N 
DEF 書式 ) DEF ラベ ル = 定 数 |」 ラ ベル = 定 PRINT 1, / 
数 |… NEXT I 
外部 サ プ ザル ー チ ン の スタ ー ト ・ ア ドレ ス 注 1 ) 制御 変数 の 値 が 整数 の 範囲 を 超え 
を 宣言 し ます . 定数 は , ユー ザー 作成 の る も うな 指定 を する と , 無限 ルー プ と な 
マシ ン 語 ルー チン や シス テム の 持つ サブ る 場合 が あり ます . 
ルー チン の 実行 開始 アド レス べ す . 注 2 ) FOR-NEXT か ら 外 へ , GOTO 文 , 
例 ) DEF TPREAD=$6E00 RETURN 文 で 飛び 出す こと は で きま せ 
DEF TPREAD=$6E00, TPWRITE ん . また , この 中 に 外 か ら 和 飛び込む こと 
=s6F00 も で きま せん . 
END 書式 ) END WHILE-WEND 書式 ) WHILE 条件 
プロ グラ ム の 実行 を 終了 し ます . 処理 
PRINT 書式 ) PRINT 出力 要素 |, 出力 要素 | … WEND 
PRINT 文 は , それ に 続く 出力 要素 の 列 を 条件 が 真 で あれ ば , WEND ま で の 処理 を 
CRT に 出力 し ます . 実行 し ます . WEND て 実行 の 制御 は 対応 
出力 要素 と は , 変数 , 式 , 文字 列 定 数 , する WHILE に 戻り , 再び 条件 の 判定 を 行 
関数 、 フォー マッ ト 関 数 で ,『, 』 で 区 切 な う の で , 条件 が 真 の 間 は WHILE-WEN 
っ て 書く こと が で きま す . 出力 フォ ー マ D 問 の 処理 を 繰り 返し ます . 条件 が 偽 の 
ッ ト は すべ て , ユー ザー が 指定 する 必要 合 ,。 WEND 以 降 に 制御 が 移る の で , 最 
が あり ,『 プ 」 て 改行 を ,『』 で 出力 桁 数 初 か ら 条 件 が 偽 の 場合 WHILE-WELD 間 
を 指定 し ます . 桁 数 の 指定 は , の 処理 は 1 度 も 実行 され ませ ん . 
< 式 1>。 < 式 2〉 拡張 K コ ン パ イラ は , WHILE-WEND ル ー 
で 指定 し , 式 2 の 値 を 式 1 の 桁 数 と り で プ の 制御 を スタ ッ ク を 使っ て いな い マ シ 
右 詰め で 出力 し ます . ン ・ コ ー ド に 展開 する の で , WHILE に 対 
例 ) 10'A=5: 昌 =10 する WEND は 1 箇所 に 限定 され ます が , W 
20' PRINT "A=", A,/ HILE ル ー プ か ら GOTO 文 で 抜け た り , 飛 
30' PRINT "B ニ ", #3, B,/ び 込 むこ と が 可能 で す . な お , 条件 は 式 
… こ の プロ グラ ム の 出力 は 次 の よう に な また は 文 で 記述 し ます . 
り ま す . 例 ) | が N に な る まで 表示 を し ます . 
A=5 WHILE |>N 
B= 10 PRINT | / 
IF-THEN 一 ELSE 書式 ) IF 条件 ( 式 ) THEN 処理 1 IEL I= け 1 
SE 処理 2| F 1 条件 が 真 ( 0 以外 ) の 場 WEND 

















REPEAT-UNTILL 


GOTO 


RETURN 


POKE 


GOSUB 


関数 ・ 手 続 の 呼び 出し 


CPOKE 





書式 ) REPEAT 
処理 
UNTIL 条件 
条件 が 真 に な る まで , REPEAT - UNTIL 
間 の 処理 を 繰り 返し ます . プロ グラ ム の 
実行 は , UNTIL に 続く 条件 が 偽 で ある と , 
対応 する REPEAT 廊 に ジャ ンプ し ます . 
も し , 条件 が 真 で あれ ば , 実行 の 制御 は 
条件 以後 の 文 に 移り , ルー プ に は な り ま 
せん が , 条件 に 対す る 判定 は UNTIL 文 
で 行なう た め , REPEAT - UNTIL 間 の 処 
理 は 最低 1 回 は 行なわ れ ま す . 
1 つの REPEAT 文 に 対す る UNTIL 文 は 1 
箇所 で , WHILE ルー プ 同 様 GOTO 文 に よ 
る 飛び 込み , 飛び 出し が 可能 で す . 条件 
は 式 ま た は 文 で 記述 し ます . 
例 ) Y キ ー が 押さ れる まで ルー プ し ます . 
REPEAT 
A= ニ GET 
UNTIL A='Y' 
書式 ) GOTO ラベ ル 
ラベ ル の 定義 され て いる ロケ ーション に :, 
実行 の 制御 を 移し ます . ラベ ル の 定義 は 
GOTO 文 の 前 後 ど ちら に あっ て も か まい 
ませ ん . 
例 ) GOTO DISPI 
書式 ) RETURN 
サ プ ブル ー チ ン , 関数 , 手続 を 終わ り , 現在 
実行 し て いる ルー チン を 呼び 出し た 文 の 
直後 に 復帰 し ます . 
書式 ) POKE 式 1, 式 2 
式 1 で 指定 する アド レス に , 式 2 の 値 の 
下位 1 バイ ト を 書き 込み ます . 
例 ) POKE $4000,。 SFF ……… 400 番 
地 に $FF を 書き 込み ます . 
書式 ) GOSUB ラベ ル 
ラベ ル の 定 姜 さ れ て いる サブ ルー チン に , 
実行 の 制御 を 移し ます . サブルーチン は 
RETURN 文 で 終わ っ て いな けれ ば な り 
ませ ん . 
例 ) GOSUB LABEL 
書式 ) ラベ ル [ 数 1, …, 引数 nl ] 
ラベ ル の 定義 され て いる 関数 ・ 手 続 に , 
引数 の 値 を 持っ て 実行 の 制御 を 移し ます . 
関数 ・ 手 続 は RETURN 文 で 終わ っ て いな 
けれ ば な り ま せん . 
関数 ・ 手 続き 呼び 出す に は , ラベ ル 名 の 
後に `[ ]” で 囲ん で 引数 列 を 書き ます . 
引数 が な いと きも ,~[ ]′ を 付け て くだ 
さい . 引数 は , “,” で 区 切っ て 複数 個 書 
こく と が で きま す . 引数 に は , 定数 , 変 
数 , 式 が 使え ます . 詳し く は 『 サ ブル ー 
チン ・ 関 数 ・ 手 続 の 使い 方 」 を 参照 し て 
くだ さい . 
書式 ) CPOKE 変数 , 式 1 |#| |, 式 2 
性 ……。 式 n 作 晶 
変数 で 指定 する アド レス か ら , 式 の 列 の 
デー タ を 書き 込み ます . 変数 の 値 は 書き 
込ん だ デー タ 数 だ け 増加 し ます . 式 の 値 
は 下位 1 バイ ト を 書き 込み ます が , 式 の 
後に 『 キ 』 が ある 場合 は 2 バイト の デー 
タ を 書き 込み ます . 式 が 2 個 以上 ある 場 
合 , 式 の 問 は 『,』 で 区 切っ て くだ さい . 
例 ) CPOKE ADR, $00, D1 キ ,'B…… 
変数 ADR の 内 容 で 指定 され る アド レ 
ス か ら 順 に , $00, 変数 D1 の 値 2 バ 
イト ,『B」』 の ASCII コ ー ド $42 を 書き 

















CODE 


CALL 








書式 ) CODE 数 値 1 |#|, | 数 値 2 |# 
人 ne 。 数 値 n セト: 

数 値 1 一 数 値 n の 値 を プロ グラ ム 中 に 展 

開 し ます . 数 値 が 2 個 以上 ある 場合 は 

『,』 で 区 切っ て 記述 し て くだ さい . 式 の 

値 は 下位 1 バイ ト が 展開 され ます が , 式 

の 後に 『#』 を 書く と 2 バイト が 展開 さ 

れ ま す 。. 

例 ) CONST 文 と の 組み 合わ せ で , 疑似 
的 な アセ ンプ ラ 記 述 を し た 例 . 
CONST LDA=$86, RTS=$39 
CODE LDA, $0F, RTS 

書式 ) CALL 定数 

定数 で 指定 し た アド レス を , マシ ン 語 の 

コー ル 命 令 で コー ル し ます . 定数 で 指定 

し た アド レス か ら 始 まる マシ ン 語 サブ プル 

ー チ ン が RTS 命 令 で 終わ っ て いれ ば ,CA 

LL 文 の 次 に 制御 が 戻り ます . 

例 ) CALL $2000 





拡張 コンパ イラ に は 数 値 関数 , 入力 関数 。 フォ ー マ ッ ト 関 数 の 3 種 


類 の 関数 が あり ます . 


ADR 


HIGH 


LOW 


NOT 


PEEK 


RND 


SEX 


SGN 








ABS は 数 値 関数 で , 式 の 値 の 絶対 値 を 値 

と し ます . 

例 ) D=ABS( 一 5) …… 変数 D の 値 は 5 
に な り ま す . 

書式 ) ADR( 単 純 変数 ) 

ADR は 数 値 関数 で , 単純 変数 の 値 が 格納 

され て いる アド レス を 値 と し ます . 

例 ) POKE ADR(D), 10 変数 D の 値 は 
10 に な り ま す . 

書式 ) HIGH( 式 ) 

HIGH は 数 値 関数 で , 式 の 値 の 上 位 1 バ イ 

ト を 値 と し ます . 

例 ) ロニ HIGH($1234) …… 変数 H の 値 は 
12 に な り ま す . 

書式 ) LOW( 式 ) 

LOW は 数 値 関 数 で , 式 の 値 の 下位 バイ ト 

を 値 と し ます . 

例 ) [= ニ LOW($1234) …… 変数 し の 値 は 

$34 に な り ま す . 

書式 ) NOT( 式 ) 

NOT は 数 値 関数 で , 式 の 値 の 論理 否定 を 

値 と し ます . 真 は 0, 偽 は 1 と な り ま す . 

書式 ) PEEK( 式 ) 

PEEK は 数 値 関数 で , 式 で 指定 され る メ 

モリ ・ ア ドレ ス の 内 容 を 値 と し ます . 

例 ) D=PEEK($6000) …… 変数 D の 値 

は $6000 の 値 と 同じ に な り ま す . 

書式 ) RND( 式 ) 

RND は 数 値 関数 で , 0 一 ( 式 - 1) の 範囲 内 

の 乱数 を 値 と し ます . 

例 ) D=RND(5) …… 変数 D に 0 一 4 の 
乱数 を 代入 し ます . 

書式 ) SEX( 式 ) 

SEX は 数 値 関数 で , 1 バイ ト の 数 を 2 バ 

イト の 数 に 拡張 し ます . 

例 ) D=SEX($FF) …… 変数 D は $FFF 
F(= ニ ー1) に な り ま す . 

書式 ) SGN( 式 ) 

SGN は 数 値 関数 で , 式 の 符号 に より 1, 









GET 


INPUT 





0, 一 1 の 値 を と り ま す . 式 の 値 が 1 以 
上 で あれ ば 関数 の 値 は 1, 一 1 以下 で あ 
れ ば ー 1 , 0 で あれ ば 0 に な り ま す . 
例 ) IF SGN(X)=ー1 
THEN PRINT" X ハ マイ ナス ": 
F1 … の の 変数 X が 負 の 場合 , その 値 の 
メッ セー ジ を 出力 し ます . 
書式 ) INPUT 
INPUT は 入力 関数 で 。 キーボー ド か ら 入 
カカ され た 値 数 を 値 と し ます . 入力 で きる 
数 値 は ー32768 一 32767 の 範囲 の 整数 か , 
$0000 一 $FFFF の 16 進 数 で , 16 進 数 の 場 
合 は 先頭 に 『$」 を つけ て 入力 し ます . 
例 ) ID= ニ INPUT …… 変数 DD に キー ボー 
ド か ら 入 力 し た 値 を 代入 し ます . 
書式 ) GET 
GET は 入力 関数 で て, キー ボー ド を スキ ャ 
ン し て 押さ れ て いた キー の ASCII コー ド 
を 値 と し ます . キー が 押さ れ て いな い 場 
合 は , 0 が 値 と な り ま す . 
例 ) KD=GET …… 変数 KD に 押さ れ て 
いた キー の ASCII コ ー ド を 代入 し ます . 






























HEX$ 





HEX2 


SPCS 





書式 ) CHRS( 式 ) 

CHR$ は フォ ー マ ッ ト 関 数 で , 式 の 値 を 

ASCII コ ー ド と みな し , その 値 に 対応 す 

る 文字 を 与え ます . 

例 ) PRINT CHR$($41) 
示し ます . 

書式 ) HEX$( 式 ) 

HEX$ は フォ ー マ ッ ト 関 数 で , 式 の 値 を 

16 進 数 4 桁 に 変換 し て 与え ます . 

例 ) PRINT HEX$(15) …… 表 示 は 『000 
F』 と な り ま す . 

書式 ) HEX2$( 式 ) 

HEX2$ は フォ ー マ ッ ト 関 数 で , 式 の 値 を 

16 進 数 2 桁 に 変換 し て 与え ます . 

例 ) PRINT HEX2$(15) …… 表示 は 『0 
F』 と どなり ます 。 

書式 ) SPC$( 式 ) 

SPC$ は フォ ー マ ッ ト 関 数 で , 式 の 値 の 

空白 を 与え ます . 

例 ) PRINT "AB", SPC$(3), "CD" 
eeseee 表示 は 『AB こ LLCD』 『 な り 
ます 。 


『A』 を 表 





















































































































































に ニー ニー。 ニー ニニ ニニ ニー ニニ ニー 症 P 影 才 沿 ) ラン タイ ム ・ ル ー テ チン (KV3.6) ーー ニー ニー ニニ ーー エニ マズ マー ニー ェ バニー ミチ =iscosra | 
dd 。 +O 1 + つ + さ +4 +5 +6 + プ + 日 +9 +Q +B +C +D +E +F Sum 4ECO 04 BD 04 35 9 44 44 44 44 
4DOO 16 Q2 355 16 Q2 79 17 Q2 99 20 QC 35 10 20 Q2 BD :EO 4EDO_ 9 B4 OF BE Q2 BE 07 16 FE 2 
4D1O EF QA6 BO 26 FA 6E B4 6 OD 8D ES5 6 Ooa 20 さ 4EEO 20 F9 33 SC さ 3D ED 42 EC 45 
4D20 06 6 4 さ さ 3D さ 4 0Q6 EC 41 さ D EE E4 E7 E4 ^A6 コ 
4D さ O 4 さ さ D EE EO A6 EQO 1E 9 33 44 39 BE QO 0Q0 
4D40 34 10 さ 4 10 4D 2 04 BD 40 63 61 e6C 60 2E 
4D5O_ 49 2A F ヨ 44 56 ED 64 EC じ 1 2 04 BD 2C 6 ミ 
4D60 60 2E 1E BB 49 2A FB 44 56 A3 64 20 Q6 58 2 
4D7O0 FB E3 64 1C FE 2BR Q2 1 O1 69 63 69 62 6 60 2 :2C Add +B 
4DBO EC EC 62 6D 61 32 66 2 Q5 43 53 C3 QO 01 39 32 94 4FOO EC 
4D9O 66 CC 7F FF 39 4D 2B F1 39 AS3 C1 2F 2C CC OO _QO si16 4F10 63 
4DQAO 39 AS C1 2E 24 CC QO 0O 39 3 C1 2D 1C CC QQ _QO 6D 4F20 5 49 
4DBO さ 9 3 C1 2C 14 CC OO_ 00 39 3 C1 27 QOC CC QO _QO 45 4F3O_ 7C CF さ 4 3H 00_ 00 20 ゞ 
4DCO_ さ 9 A さ C1 26 04 CC QO _QO 39 CC QQO 01 39 3 QO_ QO gi55 4F40 10 BE FC B2 Q1 AF 1 
4DDO 27 F7 CC QO_ 00 39 17 FF 2 1F B9 4F 39 BD 15 16 4B 4F5O_ 05 F6 FD Q2 FA BZ7 FD 01 C6 0Q0 
4DEQ C 0 2 4F60 40 F7 FD 0Q 2 
4DFO 4F7O 
ーーーーーーーーーー 4FBO 
Sums 4F9O 

4FAO 
4FBO 
4FCO 
dd 。 +O +1 +2 + さ +4 + 品 + ら + フ + 日 +9 + 介 +D 4FDO 
4EOO_ 09 22 14 Q7 4 EC 60 5 49 58 49 58 4FEO 
4E10 80_ B9 QO 20 E2 35 8B6 CC QO 06 
4E20 0 2H 09 2 さ Q6 82 07 B1 E9 s D2 
4E30 58 49 5B 49 5B 49 EE 60 20 DE :B6 
4E40 600 36 10 36 10 36 10 05 63 40 iC5 
4E5O D7 QO_ OF CE6 OS 1C じ FE 6 CS5 saF 
Q9 04 ec QQ 1 01 a7 CS 5 ia4 
6 ビ さ Q 1F 26 DC 5 
1 05 26. FZ BD BE4 34 04 
20 35 O4 6D 40 2 05 B6 2D 
5 17 FE 5B 5C C1 Q6 26 F4 3 さき s 
BD E2 B6 20 17 FE 45 5A 26 FA さ 9 34 :9 さ 

昌和 和 6 拡張 に コン バイ ラ ( K V 3 . 0 ) EE 
dd +O エキ 1 + オキ る +4 + 日 6 +7 + 日 19 + 全 TE + に +D +E +9 寺谷 TB + ピ 
2000 さ 4 7F C6 4C 1F 9B CE 4C QO 10 DF FE 12 12 12 OO 9E 04 EZ 

ED 4D 17 4D OR 4B SO 4 ミ D 9 5 8 ミ 3 FF QQO 19 2 
SO 56 5 49 4F 4E 2O 49 4C 4C 45 
4D 50 59 52 45 QO ED 4D 17 BD 
32 20 4 さ 4F 4D SO Q06 ?E OB EC QB 
4D 17 ED D 36 OO OB ED 4D 
人 4 フ OO ED FF FE 10 26 QQO 
49) DD 90O 84 ヨミ FF FD 10 
CC 96 CC 41 54 OO_ 9E QB 
OH 9E QB OE 20 57 4 49 
60 DD QD DD DD QB 5E QB EC 
DD 128 DD 14 OO OO DD 1 9E 
4 1 る ュ 9E 18 EC 4 B さ 
2.BD 10 1 の . 人 26 90 ユ は F 1 ズ 
17 ED 4 46 49 4E 45 
FC 4 ビ ED 4D 17 BD 4D 
Suns 6C 68 Sumi BE 5F 76 BA BE 54 1S Da D5 9D 2 
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リス ト 6 拡張 K く コンパ イラ (KV3.6) 
dd  +0 〇 二 1 +2 + る 3 +4 + +6 + プ + 日 +9 +aQ +B +C +D +E +F + キ 0 キ 1 キキ さ + オ 4 + 品 6 + キ 7 + 日 +9 +a +BE 
2200 OO CC OO QO4 DD 1C CC OO _ OB 36 06 DC 1C 16 OO 11 2 36 06 CC QO 7F BED 4D 9 36 06 9E 
2210 DC 1C 9E 1 E6 BB 4F BED 4E DE DC 1C CS OO Q1 DD さら 6 06 DC QOE BED 07 2 
2220 1C QA3 C4 2F EB 33 42 CC OO Q1 DD 1 DC 18 CS oo 19 7E CC QO_QO 9 
2230 OC DD 1 16 FF 7 BD 4D 17 BD 4D 17 BD 4D OB 4F さ 6 10 9E Q4 ED DD 
2240 42 4 455 43 4 20 5oO 52 4F 47 52 41 4D 20 5 ミ 49 :5C 2740 OO _QO2 DD oO4 16 さき 6 0Q6 
225O 5Q 45 20 3 OO DC O4 a3 BD FE 22 DD 1E 12 BD 4E 』41 27S50 8B4 C E6 B4 
2260 BEBO BED 4D OB 20 2 24 QO DC 1E BD 4E BEF BD 4D OB :oa 2760 10 5D 10 
2270 29 QO BD 4D 17 BD 4D 17 BD 4D OE 4 ミ 4F 4D 5O 49 :F8 デ 770 16 19 2D DC 16 
228O 4C 45 20 45 4E 44 2E OO 17 1F 65 39 17 12 さ 3 9E =:4 2780 2F 0QO さ フ 2 CC QO OS 
2290 16 4F E6 4 さ 6 06 CC OO 3 さ B BD 4D BE9 さ 6 Q6 9E 16 :C5 2790 26 さ 6 06 DC 1C 94 
22A0 4F E6 4 さ 6 06 CC OO 3B BED 4D B9 aa CO EA CO 10 :E さ 270 さ 4 10 9E Q4 ED DD Q4 
22BO 27 QO OR DC 16 C3 QO Q1 DD 16 16 FF CF 9E 16 4F :C1 27BO_QQ 0 QO_ 17 
22CO _E6 4 93 OE 10 26 OO OS 16 FE 16 DC 14 さ 6 06 CC :66 27CO 8B4 84 DD 
22DO OO Q1 ED 4D B9 36 06 30 BC 02 20 0O3 28 2 OO さ 4 67 EC 9E 1 日 
22E0 10 17 10 EE さ 2 62 aa CO Ea CO 10 27 oo 5D CC oo zi2D 27E0 B さ 10 22 QO OF 
22FO O1 DD 14 DC 16 C ミ OO QO1 DD 16 9E 16 4F E6 1F さ 36 :D9 27FO 9E 1D 9E 1E DC 














Rdd 

250O 
2510 
2520 
25 さ 0 
254Q 
255O 
2560 
2570 
258Q 
2590 
25AO 
25EO 
2SCO 
25Do 
25EQ 
25FO 




















2950 
2960 
2970 
298Q0 
2990 
29AO 
29BO 5 
29CO 
29DO 
29EO 
29FO 


Su 


dd 
200 3 
2A1O 
2020 
230 
240 
2A5QO 
SR6Q 
2A70 20 
2BO 
2a9O 
2QO 
2QBO 
2ACO 
2ADO 
2AEO SE 


還 ひ DD ひひ やや ご ヨ 
1 
レコ 
お 
ら 


ょ ロ 
こ 





1 
19 
DD 
DC 
9E 
02 
さ 4 
E7 


07 5 


27 












Q4 


gE 


OB 


904 


0QO 


04 


+ さ 





さ F 








QO 
0O 


02 


+ ら 6 
9 さ 3 
04 


00 < 


BB 
4 人 4 
00 
DD 
DD 
QB 
09 





QQO 


Q さ 





+ フ 
さ 32 
G8 
9E 
58 
02 


Q1 


54 


QO 


キワ 
04 








02 20 

















0O 


45 54 


+E 
由記 
04 
DD 
OO 3 
On 
DC 


+ じ 





























+B 
45 
oO8 


+C 
4E 
DC 
04 
CC 
4 に 
QB 
45 
900 
8B4 


+8 
Q5 54 
0O 


QOS 4 
E 
OR 
2E 
E7 
04 9 
49 QOGQO 
: B4 3 
20 昌 
E_Q8 
CC QQO 


02 20 
g フ 
17 


SO 


OE 


+ ワ 
97 
6 
4 
BS 











&O 


リス ト 6 


+Q 


05 










2COO 


45 


58 


























2C7O 
32CBO 
SC5O 
2CAO 
2CEBO _ 32 9E 
2ECO 
2CEDQO 
2CEO 
2CFO 


Add 
2DOO 
2D10 2 








dd 

2EOO DC 

2E10 00 
5 OO 



























2E2O 
Q 





人 dd 

2FQO 
2F10 
2F2O 

2F さ Q 
2F4O 
2FSO 
2F6QO 
2F7O 
2FBO 
2F9O 
2FAQ 
2FBO 
2FCO 
2FDQ 





Add 
さき QOQQ 


98 


『 OO 


08 
7E 
94 


EC 
Q8 
EC 


4 
ささ 
DC 
Q4 
Q4 


19】 
17 
05 
QooO 


OS 





き さ O080O 16 4F 
さき OO DD 16 
30RO E 
さ OCQO_ CC 30 
3ODO_ CS QO 
30EO E 


さき OFQ 





+ ら 6 
45 
9E 
16 
94 
OO 
OO4 
Q8 
g 医 
EZ 
1E 
903 


CC 


の さ 


OO _ 01 DD 
26 0O 14 
16 


日 





90O 
94 
Q4 


















拡張 コンパ イラ (KV3. 


17 
10 
49 
QO 
C ミ 
9E 


1 


衝 各 


: 04 
ER4 
O4 


Q2 





+ 日 
さ 4 
4F 
GO 
QQO 


+ 日 





B4 
10 
02 
* oo 
の 
QO 


6) 


07 
27 
54 
DC 
9E 
04 
QB 
9E 
16 
日 3 
FF 
9 さ 
DC 





+E 
0O 
さ 4 
ED 
CC 
40 
9C 
17 
OO 
ED 
日 ミ 
42 
10 
さら 6 
さら 6 


62 
ED 
55 
EZ 
02 
EC 
CE さ 
06 
CC 


9 さ 2 


2F 
0QO 
QO 
04 
04 





54 





+D 
き 2 
2C 
1 
OO 
DD 
02 
DC 
10 
DD 
B4 
CC 
DC 


+E +F 
27 QQO 
17 ED 
2O_ 46 
9E QB 
QO DD 
3 9E 
Q9 DD 
QO_QQO 
2C DD 
EE 
24 DC 
9E Q4 
DD Q4 
04 3 
64 C さ 
3O ヨ ビ 








+E +F 
62 10 
10 27 
83 QO 
21 DC 
04 16 
DD 94 
24 9E 
26 QO 
Q4 9E 

さ QQO 
E7 84 


04 C き 





E6 B4 
DC 16 
9E Q4 
3 QO 


QQO_QO1 
G4 


Q1 CC 
O4 C さ 
CC EZ 
OD 9E 
Q0 Q1 
CC oO 
49 5E 
E7 0Q ミ 
DC 94 
5a CC 
F1 9C 





SB 
: 4 
s 1 





: BE 
s 9 ビ 
56QO 
: ら 1 
:C5 
7 谷 
た 
人 42 
Oo 
は りら | 




































Sum 
29 

















&O 


リス ト 6 拡張 く コ ン パ イラ (KV3.6) 


Rdd 。 +0O +1 + オ 2 dd + 〇 1 +2 + さ +4 + ロ +6 +7 + 日 +49 +a +B +C +D +E +F Sum 
さき さ 600 16 QQ B1 3Q Q 3 さ 7 = さき BOQO_ OO_ 27 9E Q4 ED Q2 CC OR 2 9E Q4 ED Q4 CC Q5 CC iiEB 
さ 610 3 10 日 さ R1Q 9E 04 ED Q6 CC FF FF 9E Q4 ED QB CC 20 QOS 9E Q4 :B7 
さ 620 0 02 20 0Q き さ さ 2 6< 6 WU さき B2O ED QA CC CC OO 9E Q4 ED QC CC QO _Q1 9E 04 E7 OE iBE 
さき 630 iC 4D e 0 0 92 0 さき BSO_ DC QO4 C さ OO _ OF DD 04 16 F9 BB 9E 16 4F E6 日 4 3 :1a 
さき 640 3 17 < さき E40_ OO_ 2D 10 26 QO 49 DC 16 CS QQO Q1 DD 16 17 FE 16 0 
さ 650 00 さ 1 g 2 、 Q 日 さき BSO_DC 1A B さ OO_ QO1 10 26 OO_ 12 DC 24 3 4 さ CS 00 01 1 ビ 
さら 660 0 2 | 0Q Q Q さき B60 DD 24 DC 24 9E O4 ED 1E 16 QQO 21 CC 53 43 9E 04 :E9 
さ 670 り O > 10 27 QQ さ BZ0 ED ヨ 4 CC C さ QQO 9E Q4 ED QOS2 CC OO Q1 9E Q4 E7 Q4 :EB 
さ 680 さ 0 さき BBO 
さ 690 > さき 00 さき Bo 
さ 6AO g さ oO _Q さき BAO 
さ 6BO 0 り 日 さき BEO 
さ 6CO | = 0 さき BCO 
さ 6DO 0 : さき BDO 
さき 6EO さ Q C QG さき BEO 
さ 6FO 0 00 0 0 Q 0 さき BFQO 








Add Rdd  +O 二 1 +2 + さ +4 + 呈 6 + プ + 日 +9 + 人 Q +B + じ +D +E +F Sum 
さき 700 6 さき さ COO_ C さ QO QOS5 DD Q4 CC OO_Q3 DD 1 39 9E 16 4F E6 B4 :15 
き 3710 3 0 7 さ C10 B さ QO 25 10 26 QO 5E DC 16 C ミ さ 0O O1 DD 16 17 FD :F6 
さき 72Q こ ) . さ C20_ 45 DC 1Q 日 さ OO Q1 10 27 QO_ 03 16 F6 4F DC 04 3 :EZ 
さき CSQ_QO_Q1 DD O4 CC OO _ EC 9E Q4 E7 1E DC 24 58 49 DD 』iBF 
さき C40 24 DC 24 BS OO _ 10 10 2C OO 0CE CC OO_ 60 D3 24 9E CO 
さ CSQO Q4 EZ 1F 16 Q0 14 CC QO EB 9E Q4 E7 1F DC 24 9E si2E 
さ C6Q Q4 EZ7 B4 DC Q4 CS OO_Q1 DD Q4 CC OO _Q6 DD 1 16 』D さ 
さき CZ7O_FB SO さ QO BC 02 20 05 52 4E 44 2 00 さ 4 10 17 F7 iB9 
さき CBQO 1 さ 2 62 10 27 0O_ 15 17 FB 93 CC 4F 09 34 06 17 i4 昌 
3790 ) 3 0O 0 G さ 0 に り さ C90 F7 94 さ 2 62 CC OO _Q3 DD 1 16 FB 26 9E 16 4F E6 』02 
さき 7O 2 0 3 0 2 00 こ さ CAQO_B4 3 QO 2B 10 26 00 23 DC _ 16 C3 OO Q1 DD 16 17 48 
き 7RO 17 0 3 0Q と Q さ C コ 上 ま さ CBO FB 7 9E 16 4F E6 4 3 QQ 29 10 27 0Q0_ 03 16 03 iiER 


さ 7CO < コ 3 0 さき さ CCO 6D DC 16 C3 QQO_ Q1 DD 16 16 FZ7 F7 9E 16 4F E6 
さき CDO_B さ QO 24 10 26 QO 7 CC QO 0O DD 2E CC 0QO 0O 
さ CEO 24 DC 2E B3 QO_Q9 10 2F QO 07 DC 2E B さ QO 07 
さ CFO 2E DC 24 5B 49 58 49 58 49 5B 49 D ミ 2E DD 24 





dd  +QO 1 + キ 2 ー+ さ +4 + 王 + せ 6 + プ +B +9 + 人 Q +E +C +D +E +F Sum 
さ 3800 *6 で F さ DOO 16 C さ OO Q1 DD 16 9E 16 4F E6 4 B ミ QO 3O DD 2E :FB 
さ D1Q DC 2E さ 6 06 CC QO 09 BD 4D 9 さ 6 06 DC 2E 36 06 50 
さ D20 CC OO 11 BD 4D A1 Q4 CO E4 CO 36 06 DC 2E 36 06 :12 

さ DSQO CC OO QO ED 4D A1 AA CO EQ CO 36 06 DC 2E 36 06 :OD 
3B40 CC 0 0 - さ D4O CC QQO 16 BD 4D A9 AR CO EA CO 27 95 16 0Q0 45 9E 』5E 
さ BSO CS 00 と 0 さ DSO 16 4F E6 B4 さ 4 Q6 17 F6 E2 32 62 10 27 QO 51 CC :EO 
3B60 で 9 さ D6O QO QO DD 24 DC 24 36 06 CC QQO QAQ BD 4D 1F 36 06 s78 
さ B70 ( さ D7O 9E 16 4F E6 B4 ES C1 BS QO 3O DD 24 DC 16 C3 QO :7 
さ BB0 さ DBO Q1 DD 16 9E 16 4F E6 B4 さ 4 Q6 17 F6 ^E 32 62 B3 si6D 
3890 3D9O QO OO 26 DO CC QO CC 9E Q4 E7 B4 DC Q4 C さ OO Qi41 
BaO さ DAQO DD Q4 DC 24 9E Q4 ED 1E CC QO O1 DD 1 16 F7 12 : フ 1 
3BBO さ DBO 9E 16 4F E6 日 4 日 さ QO 27 10 26 QO 11 9E 16 4F E6 47 
さ 3BCO さ DCO Q1 DD 24 DC 16 CS OO GS DD 16 16 FF CZ 9E 16 4F iBC 
さ 38DO さ DDO E6 84 さ 4 06 17 F6 B1 さ 2 62 10 27 Q2 51 17 F4 BE3 :OE 
さ DEQO 9E 18 4F E6 84 B さ OO QS 10 26 QQ QO9 9E 1B EC Q2 iDB 
さ DFQO DD 24 16FF 9F 9E 16 4F E6 4 BS O0 5B 10 26 QO i36 


ワー と イロ ょ ぉ 押 DQD セ ロ 
ご どら 0mJ い NOMG 





Sums 


Rdd 。 +O キ 1 +2 + さ +4 +55 +6 +7 +B +9 + +B +C +D +E+F Sum 
ミ EOO OE CC QO 17 DD 2C 17 EB 45 CC oo Q6 DD 1 39 DC :1C 
さ E10 22 3 OO 03 10 26 00 20 CC Q1 QO 9E 18 ED B4 DC :CE 
3E20 QC 9E 1 ED 02 DC OC 3 QO Q2 DD OC DC OC BS Q1 :H さ 
さ E さ O Q2 10 26 OO 03 16 02 BS 9E 1 EC 02 DD 2E 9E 16 :39 
ミ 940 Q 00 SE40 
3950 Q さ B さ 4 0 7 2 62 0 さ E5Q 
ミ 960 : 3E6Q 
970 0G 2 0 2 2 C 3 3 さ E70 4F E6 4 B さ QO 29 
3980 3 2 CC OO 03 3EBO OO Q1 DD 16 DC 1 
3990 ド き 4 10 5 3 : 3E9QO DD 1a DC Q4 BS oO 
39aO 2 3 と 6 O さ EAO DC 2E 9E Q4 E7 Q1 
39EO OCG 2 53 2B 0O 0 3EBO 16 QO 2B CC Qoo 9E 
さ 9CO 6 e 1 7 8 3ECO CC E6 BR 9E Q4 ED 
9DO 3 5 ・ 0 さ EDO C ミ OO 05 DD Qo4 CC 
ュ 9EO O ) 3EEO B さ QO 2B 10 26 Q1 DE 16 CS oo o1 DD 16 DC 
<9FO 27 0O 15 り 0 32 SEFO B3 OO Q2 DD oB DC 9E OB ED B4 17 F6 3B 9E 





27 OO Q& 16 Q1 B1 DC 16 C3 i1C 
OO0_ 01 10 26 00 26 CC OO 0O3 99 
0 さ DD 04 CC QO 9E 9E Q4 EZ 
4F_ E6 9E Q4 ED Q2 16 0O 
04 EZ7 B4 DC 2E 9E Q4 E7 
CC _QO 4F 9E Q4 EZ7 Q4 DC 
Q3 DD 1 39 9E 16 4F E6 





Su Q Sum: 2E 72 BF CE F2 DS5 99 FB 60 5 Ba 46 





0 37 B4 


Add dd +O +1 + す 2 + さ +4 + 曲 +6 + キ フ +B +9 +a TB +C +D +E 
3aOO CE Q C G さ FOO EC B4 DD 2E DC OB C ミ Oo Oo2 DD oB 9E 16 4F E6 
ュ A1O き F10 B さ OO 29 10 27 OO 0 16 Q1 14 DC 16 CS oO 01 
3A2O Q CO ミ F2O 16 DC 1 B さ OO O1 10 26 OO BE CC oO 0 ミ DD 1 
ュ asO さき F さ O_Q4 3 OO Q4 DD 0O4 CC OO 9E 9E 04 E7 Q1 DC 2E 
3A40 0 に 0 ミ F40 Q4 EZ Q2 CC OO EC 9E Q4 EZ QO3 DC 24 5B 49 DD 
ミ AS5O さき F5O DC 24 BS OO OO 10 26 OO OF CC 0QQO B4 9E Q4 EZ 
3A6o BR Q Q き F6O DC Q4 CS Oo oO5 DD Q4 39 DC 24 さ 6 oe CC oO 1Q 
ミ A7O に d 3F7Q 4D 1 さ 6 QO6 DC 24 36 06 CC FF EF ED 4D Q9 a4 
3aBo 3 3 さき F8O E4 CO 10 27 QO 17 DC 24 36 06 CC oO 1F 
き A9o H さき F9O CO 9E O4 EZ7 O4 DC 04 CS OO Q5 DD Q4 39 
3aAO CS OO O ミ ミ FAO _Q6 CC OO BO BD 4D a1 36 06 DC 24 ミ 6 06 
3ABO ト : 3FBO BD 4D A9 a4 CO E4 CO 10 27 Oo0 15 CC OO 
3ACO Q Q 3 ミ FCO E7 Q4 DC 24 9E Q4 EZ 05 DC Oo4 C ミ oo oe6 DD 04 3 
さ ADo 3FDO CC QO B9 9E 04 E7 O4 DC 04 CS oO o7 DD o4 DC 
さ AEO ミ FEO 9E O4 ED 1E さ 9 16 OO 2B CC oo 9E 5E o4 E7 84 
さき FFO 2E 9E O4 EZ O1 CC 5B 49 9E Oo4 ED EE EC BB 

















91 


0 


リス ト 6 拡張 コン パイ ラ (KV3. 











ます 沙 9 く す 邊 4 呈 キ ら 6 + プ - 日 
ED Q4 04 C さ 3 06 0Q6 DD 
じ OO DC 5E Q4 EZ B4 DC SE 
Q2 DD 04 CC _ 00 QOS 1 介 
BD 4D QB 49 4C 47 


さき 4E 
4E DC 





405O 



























dd 





3 む ビ 
1 に 
: Qo4 
BD 
50 52 
9) 


4D 1 415O 





+4 



























19 
29 


CLEAR さ 99。%H1FFF 
INFUT "HUT OR CULD" 5 全員 
IF ="H" THEN 69 
LOADN "RTF 

LOADN"EF 





49 


9 


69 
79 


INFUT "FILE NaME" iQ 
FEN" 1 。 提 1。 谷 叶 

9 IF FEEE(&H2SDC)=9 THEN GOTO 129 
99 FRINT"FILE 1S UPFENED" 

199 EXEC&HSOO9 





4060 oO DD 5 選 . 受 E ビ ミ 44160 
4070 O1 DD 2E 9E 2E 4F OO ロ 4170 
408O ED 4E DE DC 16 9 ミ 3 QO_BD :EE 4180 
4090 4E RB6 BED 4D OB SE 8 4190 
4080 ED 4D 17 BD 4D OBE 41a0 
40BO_ 47 55 4D.45 4E 54 41BO 
40CO C = 2 41CO 
40DO 41DO 0 
40EO 41EO 16 39 CC OO ささ 
40FO 41FO _BD 4D 17 10 DE 
【 
YET スト / ファ イル 版 へ の 変更 還 還 還 昌 昌 昌和 
ーー 
Rdd 。 +O +1 +2 + さ +4 +5 ロ +6 +7 + 日 19 + +B +C +D +E +F Sum dd  +O +1 +2 + さ +4 +5 +6 +7 + 日 19 + +B +C +D +E +F Sum 
41BO CC 10 27 DD 2C 39 34 4 BD 4D 06 6 QD 10 9E 0OO :12 4FAO 20 D9 さ 4 6F 4F 1F BB C6 O1 D7 BF BD DB 07 25 11 iC4 
4190 7 4 10 BE OO QO EC 4 10 3 7F OD 27 28 a6 0 iED 4FBO _QD CO 26 OD BE Q4 さ D 6 BOO 26 FC 6 OD A7 2 20 isFS 
41AO 日 1 OD 27 31 日 1 27 27 1E 日 O 30 2B F2 昌 1 39 22 EE =:6a 4FCO QB CC 7F QD BE Q4 3D ED 4 BE Q4 さ D 35 EF 7D FC i0C 
41BO 34 Q2 1F 20 さ 4 06 5 日 49 5B 49 E3 E1 5 49 EB EO :21 4FDO 4 26 O1 4F 7F FD 05 さ 9 E7 日 4 BD BE9 C6 12 BD Q2 iCC 
41CO B9 OO 1F 02 20 DB さ 4 20 10 9E OO 6 O 7 AO 日 1 :92 | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 
! 41DO QD 26 FB 35 20 10 9F 12 9E OO 9F 16 35 CB 12 DD kBoO Sum: B9 BB DA DB Ea 24 Oa 92 EC OF 4C 39 EO aF B1 2F :BF 
| 41EO 16 39 CC QQO ささ 3 DD 46 9E 46 EC 4 DD 46 さ 9 39 39 i9 さ 
41FO BED 4D 17 10 DE FE さ 35 FF OO OO OO QO OO 0QO OO 0 k41 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー : 20 
Sum: 91 6F 77 03 32 29 ED 02 99 DS B6 FF QB 62 3C E5 』7O Ap0022039 
errrirsssesspiaiarcsmiixcmssssss = スト 5 メー イ ン ン ETCHSEEEGEIsasisisassssss よ 5 





2 


119 BOT 1 さ 9@ 
129 FRINT"xXX NOT ASCII FILE XP 
13 の 9 CLOSE#1 





ddr o1d new 



















SO00 CE6 34 
44 9B 
00 DF 
の 交 
4 4E 
7 。 疲 
Q4 昌 1 
EE 3 
04 DF 
C6 。 10 
94 OO 
FF PE 
ED 17 
OO 04 
1E 0 人 4 
ED 0Q4 

B4 
20 
FF 
9F 
0 
CC 
CC 
16 
さら 
10 
1E 
CC 
9F 
1 人 8 
DF 
10 
7E 
QQO 





ヨン * 


アッ プ (V1.3 一 V3.6) 





Pi スト O KK コン イラ ・ バ ー ジ 








20CF 
2QOD7 
20DC 
20F4 
2109 





SD4 人 an 
SDA5 
SDAE 
2DEO 
SF2 フ 
SF さら 6 


さ 592 





409F 
41F4 
41F9 
41FE 











o1d new ne 

4C 7F C6 

QO: 6E 人 4 ビ 

貞二 E 1 

させ に 1 さら 6 

FE BE さき 4 

Q4 。 12 1 

9 12 13 

Q4 12 ED 

C さ FE ED 

QO DE FE 

BD QQO Q5 

DD 22 DD 

4D 1F 65 

9E BS QO 

CC E6 2DA6 EZ7  G さ 

84 ED 2DAC DC 1 

0O2 ED SDE1 DD B1 

C6 。 10 2F28  QOO DE 

94 0QO BD Qoo 

2E 0O8 DC Cl 

ビ 1 DD 6 ら 61 

90 OO 8 

B4 CE DD 

44F 16 E6 

2 Ba 12 

じ 6 QO 9E 

C6 CE 4F 

E6 ED 84 

04 OO 1S 

17 4D 。 Q1 

09 65 41FO ささ ED 

24 DE 41F5 44 FE 

さき 4F 41FA さら 6 EE 
28  QO 


Addr ol1d new 


9B 
07 
4 コ 


12 
?E 
O6 
0 
09 
k/:] 


ddr oid new 







人 4 ビ ) 全 BE ま 小 
QQO 9  C6 10 
3 )E 994. 12 
44 人 4 る 
B4 81 
04 。 18 
0 10 
DE GE 
DD 9F 
ES : 選 所 
人 FE BD 
1E 12 
BE D 信 
E7 DD 
04 9E 
3" EZ 
16 04 
9B 35 
84 B1 
CS 22 
DC 05 
0】 6 る 
B4 9E 
05 DD 
@ 巨 。 3 め 
Q4 EZ 
84 89 
DC 81 
DD に 。 ま 2 
ED 17 
2 は ア 
20. プ ビ 


OO 
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FM-Z 


バ コ ン バイ ラ や マシ ン を フル に 活用 / 


〇 DO 〇 5 


この プロ グラ ム は , 雑誌 !/O, FM-8, 7/8 活 研 に 掲載 され 
た , 種々 の ユー ティ リティ を 活用 する た め の DOS (ディ ス 
ク ・ オ ペレ ー テ ィング ・ シ ステ ム ) で す . 名 付け て ,“IODO 
S9? で す . 

リロ ケー タプ ブル で , BIOS を 使う プロ グラ ム な ら , な ん で 
も (も ちろ ん 大 きす ぎ て は いけ ませ ん ), コマ ンド と し て 登 
録 し て 使え ます . 


_IODDOSg の 特徴 


FEF-BASIC と 互換 性 の ある ディ スク 管理 を 行なう . 

@ フ ル RAM で 動作 する . 使う の は , ブー ト ROM と サ プ ブシ 
ステ ム の コマ ンド の み 、. 

常駐 コマ ンド (6 種 ) の 他 に , 非常 駐 コ マン ド が ある . 

ファ イル 名 の 拡張 (ファ イル ・ タ イプ , ファ イル ・ モ ー 
ド ) が で きる . 


対象 シス テム 
機種 : FM-7 


装置 : 5 イン チ 両 面 倍 密度 フロ ッ ピ ー デ ィ ス ク 装 置 (1 ま 
だ は 2 ドラ イブ ). 

メモ リ : $CD00 一 $EFFF を 占有 する . 

F-BASIC : バー ジョ ン 3.0 


F-BASIC と の 互換 


WIODOS 9 上 で , F-BASIC の ディ スク の 読み 書き が で き 
る . F-BASIC 上 で は IODOS 9 の ディ スク の TILES, LOA 
D, SAVE は で き な い ("Bad File Structure* と な る ). 

@ 常 駐 コ マン ド は F-BASIC に 準拠 し て いる . 

コマ ンド で 入出 力 で きる の は , BASIC プ ログ ラム と マシ 
ン 語 ファ イル で ある . ASCII 形 式 フ ァイル , ラン ダム アク 
セス ・ フ ァイル は 扱え な い . 

@⑳ 非 常駐 コマ ンド の FBASIC に より , IODOS 9 から F-BA 
SIC に 制御 を 移せ る . ロー ド 済 の F-BASIC プ ログ ラム は そ 
の まま 残っ て いる . F-BASIC か ら IODOS 9 に 戻る に は , 抜 
張 コ マン ド BYE を 用 いる . 


注 ) F-BASIC は ROM モ ー ド で , フリ ー エ リア は $7FFF ま 
で と な る が , ディ スク 関係 の 命令 は 使え な い ( 図 1). 





圏 Wonder Soft Sgn 





1 IODOS 9 と F-BASIC 





(RAM) ディ スク 入出 力 ,. ディ スク 
IODOS9 へ の プロ グラ ム , デー タ の 
eee( 部 BYE ロー ド / セ ー プ .. 
暫 に 1 カセ ッ ト 入 出力 . プロ グラ 
ム の 編集 ・ 実 行 . フ リー エ 
リア は , $7FFF ま で .. 











ファ イル 名 の 拡張 


ファ イル 名 は , F-BASIC の ファ イル 名 の 他 に , ファ イル ・ 
タイ ププ (の , ファ イル ・ モ ー ド (72) が つけ られ ます . 方 , 7 
は この 順に 空白 で 区 切っ て 指定 する 方 式 で す . 空白 を 2 個 
続け る と , 方 を 省略 で きま す . 
7 :F-BASIC の ファ イル 名 . 8 文字 内 の 英字 で 始ま る , 
英 数 字 列 . 
太 : ファ イル の 形式 を 示す . 3 文字 以内 . 省略 可 . 
72: ファ イル の モー ド を 示す . 1 廊 字 . 省略 可 . 
R : 読み 出し の み 可 能 . SAVE や KILL を 禁止 する . 
: 書き 込み の み 可 能 . LOAD を 禁止 する . 
注 すでに , の な か に 空白 を 含ん を で いる ファ イル は , F- 
BASIC (DISK モ ー ド ) で , 名 前 を 変更 し て か ら 使っ て く 
だ さい . この と き , F-BASIC で ファ イル を 書き か える ( 再 
SAVE) と , ファ イル 属性 や DATE 情 報 が 消さ れ ま す . 


非常 駐 コ マン ド の 登録 と 実行 


7 が COM で, 7 が 民 で ある ファ イル は , ファ イル 名 (2) 
を 指定 する だ け で , ディ スク か ら 非 常駐 コマ ンド 領域 に ロ 
ー ド され , 実行 され ます . 放 , 訪 放 と も 全部 大 文字 で 指 
定 し て くだ さい . 

IODOS 9 で は , ブー ト 時 に ROM に ある BIOS を 裏 RAM 
に コピ ー す る の で , BIOS を 使っ た リロ ケー タブ ル な プ ブログ 
ラム な ら , 名 前 を 換え を る だ け で コマ ンド と し て 使え ます . 

非常 駐 コ マン ド か ら , IODOS 9 に 戻る に は , リタ ー ン 命 
令 (RTS な ど ) を 用 いま す . IODOS 9 か ら は , | BREAK 
キー 割り 込み 可 状 態 で 制御 が 渡さ れる の で , |BREAK| キー 
を 押す と IODOS 9 に 強制 的 に 戻さ れ ま す . 

非常 駐 コ マン ド 内 で は , レジ スタ 類 を 自由 に 使え ます . 
スタ ッ ク を 変更 し て し まっ た と き は , IODOS の 先頭 DO00) 
に ジャ ンプ し て くだ さい . 
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1O 


な お , 非常 駐 コ マン ド は , $A000 か ら $CBFF ま で の 問 に 
ロー ド さ れ ま す . 非常 駐 コ ロマ ンド の パラ メー タ は , 非常 駐 
コマ ンド 名 の あと に , 1 個 以 上 の 空白 また は , 記号 (引用 
符 () な ど ) を つけ て 指定 し ます . パラ メー タ は , 先頭 の 空 
和 白 が 除 か れ て , $EE60 か ら $EE7F ま で に 入り ます . マラ メー 
タ の 最後 に は , ヌル (0) が 入っ て いま す . 


例 1 ABC 、, D,E, FIRETURN| $EE60 填 0 +1 填 2 十 3 十 4 5 
1 oo 44 2C 45 2C 46 00 
パラメータ 


非常 駐 コ マン ド ( 大 廊 字 で も 小字 娘 で も 良い ) 








例 2 ABC DEF” [RETURN 
ンマ パラメータ 
非常 駐 コ マン ド 








$EE60 0 十 1 十 2 十 3 十 4 5 
22 44 45 46 22 00 








7/O り OS9 の 作り 方 


リス ト 1 の ダン プ ・ リ スト を 打ち 込ん を だ あと , ドラ イブ 
0 に フォ ー マ ッ ト す 済 の ディ スケ ッ ト を 入れ , EXEC 芝 本 
1B00[RETURN| を 実行 し て くだ さい . これ で IODOS9 の ディ 
スケ ッ ト の で き あ が り で す . 

初め て 使う ディ スケ ッ ト の と き は , DSKINIO | RETURN 
を 行なっ て くだ さい . 既に F-BASIC で 使用 中 の ディ スク な 
ら , ファ イル は その まま 残っ て お り , すぐ に 使え ます . 

FM- 7 の パワ ー オ ン , また は RESET ボ タン を 押す と , IO 
DOS 9 が ロー ド さ れ 実 行き され ます . 

プー ト 時 の ディ ッ プ ・ ス イッ チ は , F-BASIC モ ー ド , D 
OS モー ド の いずれ で も か まい ませ ん . ブー ト 時 に は , メモ 
リ を クリ ア せ ず に , BIOS を ROM か ら 裏 RAM に コピ ー, 画 
面 を 80xX25 に 設定 , 先行 入力 を 可能 で コマ ンド 待ち に な り 
ます . た だ し , BASIC テ キス ト は NEW さ れ ま す . 
* 1 :F-BASIC の フォ ー マ ッ ティ ング ・ ル ー チ ン (SYSDS 
K) を 用 いて くだ さい . URADOS の フォ ー マ ッ ティ ング ・ 
ルー チン を 用 いる と , IODOS9 で も ロー ド , セー ブ が 一 段 と 
早く な り ま す . 
スタ ー ト アッ プ ・ プ ログ ラム 

プー ト 時 に , 任意 の マシ ン 語 ファ イル を ロー ド し , 実行 
させ る こと が で きま す . 非常 駐 コ マン ド STARTUP を 実行 
させ る と , スタ ー ト ・ ア ッ プ する マシ ン 語 ファ イル の ファ 
イル 名 を 指定 で きま す . 

この 機能 は , ディ ッ プ ・ ス イッ チ が DOS モ ー ド に な っ て 
いる と きのみ , 動作 し ます . スタ ー ト ・ ア ッ プ し た プロ グ 
ラム か ら IODOS に 戻る に は , リタ ー ン 命令 (RTS な ど ) を 使 
っ て くだ さい . 


コマ ンド の 入力 


IODOS 9 が “>? を 表示 し て いる と き は , コマ ンド が 入力 
で きま す . 








ァ > 計 コ マン ド 入 力行 
カー ソル (移動 可 ) 


マザー ディ スク の ドラ イブ 番号 





マザー ディ スク と は , 常駐 コマ ンド で ドラ イブ 番号 を 省 
略し た と き に 有効 に な る ドラ イブ 番号 で す . 

コマ ンド に は , 常駐 (メモ リ 上 に 存在 し て いる ) コマ ン 
ド , 非常 駐 (ディ スク 上 に 存在 し て いる ) コマ ンド , それ 
に 制御 コマ ンド が あり ます . 

非常 駐 コ マン ド 名 の 前 に , バド ライ ブ 番 号 :” を 付け る と , 
その 非常 駐 コ マン ド の 入っ て いる ドラ イブ が 指定 で きま す . 
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画面 に 表示 され て いる コマ ンド は , カー ソル 移動 し て , 
一 部 を 変更 する と , 再び 実行 され ます (た と えば , スペ ー 
ス を 挿入 し て [ 選 す る ). 





マザー ディ スク の 変更 
数 字 "0*, また は “1” を 指定 する と , マザー ディ スク が 
その 数 値 の ドラ イブ に 変更 され ます . 


例 . 0>1 と する と , 
1> 肌 と な る . 





@ プ リン タ ・ ス イッ チ 
記号 パ +” を 指定 する と , プリ ンタ 出力 可能 に し ます . 
この 状態 で の (IODOS 9 ) の 画面 へ の 出力 は , すべ て 同時 
に プリ ンタ に も 出力 され , 再度 , “ 十 ” を 指定 する と , プリ 
ンタ 出力 を し ませ ん . 
例 . 0> 十 [RETURN| と する と , Printer on" の メッ セー ジ 
が 出力 され , プリ ンタ 出力 モー ド に な っ た こと を 示し 
に あ : 膝 
コマ ンド 入力 ルー チン を 元 に 戻す . 
16 進 数 値 $51 A を 入力 する と , コマ ンド 入力 ルー チン を , 
IODOS 9 の キー ボー ド か ら の 一 行 入 力 ル ー チ ン に 戻 し ま 





6 種 の 常駐 コマ ンド が あり ます . この コマ ンド は , 大 廊 
字 , 小娘 字 の いずれ で 指定 し て も 動作 可能 で す . 

以下 、 く > は 省略 可能 を , | | は いずれ か を 選択 する こ 
と を 意味 し . アド レス の 16 進 数 は , “&H” を つけ て も , つ 
け な く て も 構い ませ ん . dr は ドラ イブ 番号 で ,. 0 また は 1 
を 意味 し ます . ご . は 空白 1 個 を 意味 し ます . 


⑳LOAD 


機能 : マシ ン 語 また は , BASIC プ ログ ラム ・ フ ァイル を , 
ディ スク か ら メ モリ に ロー ド す る 。. 

形式 : LOAD<M> “<dr :> フ ァイル 名 ぐ 。 < < オフ セッ 
ト ><, R>>> 

説明 

オフ セッ ト : マシ ン 語 ファ イル に つい て の み 有 効 . 本 来 
ロー ド す る アド レス に , 加え る , また は 引く 数 値 を 16 進 数 
で 指定 する . 引く と き は , 16 進 数 の 前 に パー?( マ イナ ス ) 
を つけ る 。. 

R : マシ ン 語 ファ イル に つい て の み 有 効 . ロー ド 後 , 直 
ち に 実行 する . 


注 ) ASCII 形 式 の ファ イル は , ロー ド で き な い . 


の SAVE 


撲 能 : マシ ン 語 、。 ま た は BASIC プ ログ ラム ・ フ ァイル を , 
メモ リ か ら デ ィ ス ク ヘ セー プ ブ す る . 

形式 : SAVE<M> “<dr :> ファ イル 名 ぐ く 開始 アド レ 
ス , 終了 アド レス く 実行 アド レス >>> 

説明 

BASIC プ ログ ラム の 場合 は . ファ イル 名 の み で よい が , 
マシ ン 語 ファ イル で は , 先頭 アド レス と 終了 アド レス を 指 


定 す る . 実行 アド レス は 実行 開始 アド レス で , 省略 する と 
先頭 アド レス と され る . 


@FILES 


機能 ディ スク の 中 の ファ イル を , リス ト ・ ア ッ プ する . 
形式 : FILE<S> ぐ <dr : >< フ ァイル 名 > ぐ > > 
説明 : 
ファ イル 名 の 指定 が な いと き は , すべ て の ファ イル を リ 
スト ・ ア デップ する . ファ イル 名 を 指定 し た と き は , “*? が 
くる まで 一 致し た 好ま だ た は 太 を も つ フ ァイル を リス ト ・ ア 
ッ プ する . 
ファ イル 属性 は , ファ イル 名 の 右 に 表示 され る . 
A : ASCII 形 式 
B : BASIC ゲ ログ ラム 形式 


M : マシ ン 語 形式 





例 FILES “BA*_ COMY 
7 が “BA” で 始ま る ファ イル で , が が COM” の も の を 表示 
する . 


の KILL 


機能 : ファ イル を 削除 する . 

形式 : KILL “<dr:> ファ イル 名 ぐ > 

説明 :^Are you sure(Y or N)?27 の メッ セー ジ が 出さ れる 
る の で , [Y] (Yes) また は [N| (No) を 入力 し , | RETURN | キ 
ー を 押す . 


MAME 

機能 : ファ イル 名 を 変更 する . 

形式 : NAME <dr:> 旧 フ ァイル 名 ?AS\ 新 フ ァイル 
名 2 

説明 : 新 ファ イル 名 と 同じ ファ イル 名 が 既に ある と , エ 
ラー に な る . 新 フ ァイル 名 は , 旧 フ ァイル 名 と 同じ ヒド ライ 
ン の に と DO3 ら る 。 


⑥FEXEC 


機能 : ある アド レス か ら 実 行 す る . 

形式 : EXEC_ アデ ド レス 

説明 : メ モリ 上 に ある マシ ン 語 プロ グラ ム を 実行 する . 
アド レス は 16 進 数 で 入れ る . EE 広 EC と アド レス の 間 に は , 
1 つ 以 上 の 空白 が 必要 で す . 

マシ ン 語 プロ グラ ム の 中 で は , レジ スタ 類 を 自由 に 使っ 
て 良い . IODOS 9 に 戻る に は , リタ ー ン 命令 (RTS な ど ) 
を 使う . 


非常 圧 コ マン ド 


非常 駐 コ マン ド は , ディ スク か ら コ マン ド 領 域 に ロー ド 
され て 実行 され る コマ ンド で す . ファ イル 名 を 変更 する だ 
け で , コマ ンド と し て 利用 可能 で す . 

BIOS を 使う リロ ケー タブ ル な プロ グラ ム な ら , 非 常駐 コ 
マン ド と な り ま す . この 例 と し て , 等 作 貴 弥 氏 の 6809 デ 
バッ ガ ” (FM-8 活 研 ) や , 馬場 二郎 氏 の エディタ ・ ア セ 
ンプ ブラ Ver2.0” (FM-7/8 活 研 ) な ど , 便利 に 使 を る よう で 
す . 

この 他 に , IODOS9 の ラン タイ ム ・ ル ー チ ン や , 入出 力 
ルー チン を 使う リロ ケー タブ ル な プロ グラ ム も , 非常 駐 コ 
マン ド と な り ま す . これ ら の 例 と し て , いく つか の 非常 駐 
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図 2 KD コ ン パ イラ ・ メ モリ ・ マ ッ プ 





9600 

ラベ ル ・ テ ー フ プル 

選 
9F00 p ea 
9FFF ダイ レク ト ・ ペ ー ジ 
A000 
トゥ ニレ ブス て レレ 

C1FF 
CD00 ラン タイ ム ・ ル レー チン 
CFFF 














コマ ンド と その 作り 方 を 以下 に 示し ます . 


@F-BASIC 


機能 : IODOS 9 か ら , F-BASIC に 制御 を 移す . 

形式 : FBASIC 

説明 :F-BASIC に 制御 を 移す . この F-BASIC は , ROM 
モー ド で , テキ スト ・ エ リア は , $900 一 $7FFF ま で ある . 

この コマ ンド は , F-BASIC に な っ て も , 0 一 $8FF 以 外 は 
メモ リ ・ ク リア を し な い NEW の 状態 に し. テキ スト が ある 
場合 は その 状態 を 保持 する . 

IODOS 9 に 戻る と き は , F-BASIC に 拡張 し て ある コマ ン 
ド の “BYE” を 使う . 直接 また は プロ グラ ム 中 か ら , BYE 
を 実行 さき せる と , IODOS 9 に 戻る . 

作り 方 : アセ ンプ ブル ・ リ スト を , リス ト 2 に 示す . マシ 
ン 語 の 部 分 を 打ち 込ん で , ファ イル 名 を ヾ FBASIC_.COM 
CR と し て セー ブ す る . 

注 :F-BASIC に お いて , $FC00 一 $FC2F を 壊す と , BYE 
コマ ンド で IODOS 9 に 戻れ な く な る . 

も し , 何ら か の 理由 で IODOS 9 に 戻れ な く な っ た と き は , 
RAM モ ー ド に し て , $D000 に ジャ ンプ すれ ば IODOS9 に 戻 
る (た と えば , RAM 上 に 7FEFDOF7ED000 を 書き , この 先 
頭 ア ドレ ス に ジャ ンプ する ). 


@KD(/OD05 パ ー ジ ョ ン K コ ン パ プラ ) 


機能 : IODOS 9 の ラン タイ ム ・ ル ー チ ン ($CD00 一 $CF 
FF) を 利用 し て , メモ リ 上 の , 氏 コ ン パ イラ の ソー ス ・ プ ブロ 
グラ ム を コン パイ ル す る . 

形式 : KD 

説明 : BASIC テ キス ト の 形 で , メモ リ 上 に ある プロ グラ 
ム を コン パイ ル す る . オブ ジェ クト は , $5000 番 地 か ら 作 
成 さ れ ,、 IODOS 9 の ラン タイ ム ・ ル ー チ ン を 使っ て 実行 す 
9 に 

作り 方 : 拡張 KK コン パイ ラ (バー ジョ ン 3.6) を , リス ト 
3 に 従っ て 変更 する . 変 更 し た ら , デ ィ ス ク に セー プ ' す る. 
IODOS 9 を プー ト し て , ファ イル 名 を , ヾ KD_JCOMLR” 
に 変更 する . コン パイ ル 時 の メモ リ ・ マ ッ プ を 図 2 に 示す . 


@TYPE 
機能 : ディ スク 上 の ファ イル に つい て の 情報 を 出力 する . 
形式 : TYPE “<dr:> ファ イル 名 < ぐ ?> 
説明 : 次 の も の を 表示 する . 
(ji) ファ イル 名 
(ii)DATE( も し 指定 され て いれ ば ) 
(ii) ディ レク トリ の 位置 (トラ ッ ク , セ クタ ) 
(iv) フ ァイル の 先頭 位置 (トラ ッ ク , セ クタ) 
(Y) 使 用 し て いる クラ スタ 番号 を , 使用 し て いる 順に 
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図 3 メモ リ ・ マ ッ プ 


4 FCB (File Control Block) 

















0000 
043D 1 行 入 力 バ ッ フ ァ 
900 スタ ッ ク ・ エ リア 
A000 
CC00 IODOS ワ ー ク ・ エ リア 
CD00 
D000 ラン タイ ム ・ ル ー チ ン 

[ejple に る り 
ビン 00 eee デー トニー に 1/ EC 日 
F000 
F-BIOS 
FC00 
FFFF FBASIC ワ ー ク 
16 進数 で 表示 . 


(vi) フ ァイル 属性 
(vi) ファ イル 内 容 : マシ ン 語 , BASIC フ ァイル で は , 
先頭 アド レス , 終了 アド レス , 実行 アド レス を 表 
示す る . ASCI フ ァイル で は , 書か れ て いる 内 容 を 
表示 する . 
作り 方 : リス ト 4 の プロ グラ ム を , F-BASIC の エディ タ 
を 使っ て 作る . その 後 , KD コ ンマ イラ で コン パイ ルレ し , オ 
プ ブ ジ ェクト を び \TYPE_JCOM_LLR” の 名 前 で SAVE す る . 


WVIDTH 

機能 : 画面 の 一 行 の 字 数 を 変更 する . 

形式 : WIDTH く < 」 め 

説明 : z が 40 の と き は , 一 行 に 40 廊 字 表 示す る . z が 40 

以外 で は , 一 行 に 80 文 字 表示 する . 行 数 は , いずれ の と き 
も 25 行 の 設定 に な っ て いる . 

作り 方 : リ スト 5 の プロ グラ ム を , F-BASIC の エディ タ 
を 使っ て 作る . あと は , KD コ ン パ イラ で コン パイ ルレ し , オ 
プ ジ ェ クト を い ゞ ヾ WIDTH__COM_LR” の ファ イル 名 で SAVE 
する . 


9⑨DATE 

機能 : ディ レク トリ に 書き こむ メッ セー ジ を 指定 し た り , 
指定 され て いる メッ セー ジ を 表示 する . 

形式 : DATE< _.16 文 字 内 の メッ セー ジ > 

説明 : 文字 列 と し て 日 付 な ど を 指定 する と , それ 以降 S 
AVE コ マン ド で ファ イル を 作る た びに , その ディ レク トリ 
に 指定 し た メッ セー ジ を 書き 込む . 使え る 文字 は , キー ボ 
ー ド か ら 入 る 文字 な ら な ん で も 良い . 

書き 込ん だ メッ セー ジ は , “TYPE′” コマ ンド で 見 る こと 
が で き る. 

ッ パ ラメ ー タ の 指定 が な いと き は , 現在 設定 され て いる メ 
ッ セ ー ジ を 表示 する . 

作り 方 : リス ト 6 の プロ グラ ム を , F-BASIC の エディ タ 
を 使っ て 作り , KD コ ン パ イラ で コン パイ ル 後 , オブジェ ク 
ト を ヾ DATE_JCOM_R′” の ファ イル 名 で SAVE す る . 


⑨⑥ 昌 ELP 


検 能 : IODOS9 の コマ ンド の 使い 方 を 表示 する . 

形式 : HELP 

作り 方 : リス ト 7 の プロ グラ ム を , F-BASIC の エディ タ 
を 使っ て 作成 する . 次 に , KD コ ン パ イラ に より コン パイル 
する . コン パイ ル で きた ら , オブ ジェ クト を ヾ HELP__.CO 
M__R′ の ファ イル 名 で セー ブ す る . 
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file name (fn) *+ 









*1 の 以外 は 空白 ($20) を 入れ る . 
file type (ft)*2 *2 友 以 外 は ヌル (0) を 入れ る . 














10 ファ イル ・ タ イプ 
12「 ASCII フ ラグ ラン ダム ・ ア クセ ス ・ フ ラグ 
14 | 先頭 クラ スタ ・ ア ドレ ス 放 ie mode (tm) “ 





ワー ク エラ ー ジ ラグ 

















18「 バッ ファ ・ ア ドレ ス *"* *4 バッ ファ ・ サ イズ は 256 バ イト . 
20 | トラ ッ ク (0-39) セク タ (1 一 16) 
22 | サ ィ ド (0-1) 了 ド ライ ブフ 番号 (0-1) 





アク セス 中 の クラ スタ ・ カ ウン タ | アク セス 中 の クラ スタ ・ ア ドレ ス 
ディ レク トリ の トラ ッ ク ディ レク トリ の セク タ 
ディ レク トリ の サイ ド ディ レク トリ 上 の アド レス 


open mode (9 Ca open 完 了 フ ラグ 





























82| コメ ント *5 
34 *3 の を 指定 し な いと き は ヌル (0) に する . 

*5 read open 時 : ディ レク トリ の 16 一 32 バ イト に 塞 か れ て いる 
36 内 容 が 入る . 

write close 時 : ディ レク トリ の 16 一 32 バ イト に コメ ント を 痢 

98 きこ も む . 
40| | ① ャ : open 時 に 必ず 指定 する も の . 

② : write close 時 (open 時 で も よい ) に 必ず 指定 する も の . 
42 | | ③ そ の 他 : open 時 , また は read/write 時 に セッ ト さ れる . 
44 (《④FCBB は , フ ァイル を CLOSE す る まで 壊さ な いこ と . 














9STARTUP 

機能 : ディ スク の ボリ ュー ム 名 と , ブー ト 時 に 実行 する 
プロ グラ ム 名 を 登録 する . 

形式 : STARTUP 

説明 : 2 文字 の ボリ ュー ム 名 と , ブー ト 時 に 実行 する プ 
ログ ラム 名 (8 廊 字 内 の 7 で 訪 が 2 は 無 指定 と する ) を 登録 
する . 

ボリ ュー ム 名 を 指定 し て お く と , OPEN , CLOSE 時 に 同 
ーー ボリ ュー ム か を チェ ッ ク す る . 

プー ト 時 に 実行 する プロ グラ ム (スタ ー ト アッ プ ・ プ ブロ 
グラ ム ) は , ここ で 指定 し た ファ イル 名 を 持つ , 実行 可能 
な マシ ン 語 ファ イル で , ブー ト さ れる た びに 最初 に 実行 さ 
れる . ファ イル が な いと , び File Not Found′" の メッ セー ジ 
が 出力 され , シス テム に 戻る . 

スタ ー ト ・ ア ッ プ は , DOS モ ー ド の と きのみ 動作 する の 
で , ディ ッ プ ・ ス イッ チ を 切り 変え て お く . 

使い 方 : リ スト 8 の プロ グラ ム を , F-BASIC の エディ タ 
を 使っ て 作る . あと は , KD コ ン パ イラ で コン パイ ルレ し , フ 
ァイル 名 を ヾ STARTUP_JCOM_JR′ と し て セー ブ す る . 


終わ り に 


IODOS9, いか が で し た か . いま まで 中 央 に デン と 居 座 
っ て いた だ た, F-BASIC が 一 つの モー ド に な っ て し まい まし た . 

IODOS9 は , BASIC イ ンタ ー プ リタ より , コン パイ ラ や マシ 
ン 語 中 心 に 利用 する 人 の た め の DOS で す . し か も , F-BASI 
C と 互換 性 も あり ます . 

BIOS を 利用 する リロ ケー タブ ル な プロ グラ ム な ら , すぐ 
に コマ ンド に な り ま す . あな た の 工夫 次 第 で , IODOS9 は 無限 
に 発展 する 可能 性 を 秘め て いま す . 仕事 や . ゲー ム の プロ グ 
ラム 開発 に 活用 し , 役立て て いた だ けれ ば 幸い で す . 





,O 


素 1 入出 力 サ プル ー チ ン 





両面 , キ ー ボ ー ド 関係 
名 称 | アドレ ュ | 


フロ ッ ピ ー デ ィ ス ク 関 係 


A レ ジス タ の 値 を , 画面 また は プリ ンタ に 出力 す 
OUTEE CD00 | る .sCF38 が $20 な ら 画 面 に 出力 し , S8D な ら 画 面 X レ ジス タ に , FCB (File Control Block) の アド レス を セッ ト し て , 
と プリ ンタ に 出力 する . レジ スタ は 保存 され る . サ プ ル ー チ ン ・ コ ー ル する . レジ スタ 類 は すべ て 保存 され る . サブ プ 
ルー チン か ら 戻 つっ たら, 必ず エラ ー フ ラグ を 確か め る . 
キー ボー ド か ら 1 廊 字 A レ ジス タ に 入力 する . キー 
CD03 | 入 カ な し は ,0( ヌ ル ) と な る . エ コー バッ ク は な い . 
A レ ジス タ 以 外 保存 され る . 名 称 | アド レス | 栓 能 


メレ ジス タ で 示さ れる バッ ファ に , キー より 一 行 (| ファ イル の CLOSE を 行なう .OPEN し た ファ イル 
GETLiNE| cpos | が 押さ きれ る まで ) を 入力 する ・ 一行 の 終わ り に は $ は , 必ず CLOSE す る . 

0D が 入る . レジ スタ は 保存 され る . | po | 

[CTRL|+[C] で キー 入力 を 中 止 する . 


OPEN 済 の ファ イル を 1 セク タ ず つ 読 む . 
表 2 エラ ー メ ッ セ ー ジ 





























| FYRITE | 021 | OPEN 六 の ファ イル に ! セ クタ ずっ 草 く 。 








① コ マン ド 解 釈 か ら の メッ セー ジ ② デ ィ ス ク 管 理 か ら の メッ セー ジ 


FORMAT ER コマ ンド の フォ ー マ ッ ト が お か し い . 
ADDRESS ER アド レス の 指定 が お か し い 
DEVICE ER デバ イス 番号 が お か し い . 








File Not Found ファ イル 名 が 見 つか ら な い 、. 

File Already Exist ファ イル 名 が すでに 存在 する . 
Disk Full ディ スク が いっ ぱい で ある . 

Bad File Mode ファ イル 形式 が 違う . 

Protected File プロ テク ト さ れ た ファ イル で ある . 
Drive Not Ready “ライ ブ が Ready 状 態 に な い . 





Disk Write Protected | ディ スク が 書き 込み 保護 され て いる . 
FAT ER ファ ッ ト の 中 味 が お か し い . 

OPEN ER CODE=※ | ファ イル ・ オ ー プ ン 時 に エラ ー が 生じ た . 
CLOSE ER CODE=※| ファ イル ・ ク ロー ズ 時 に エラ ー が 生じ た . 
READ ER CODE=※ | ファ イル ・ リ ー ド 時 に エラ ー が 生じ た . 
WRITE ER CODE=※ | ファ イル ・ ラ イト 時 に エラ ー が 生じ た . 





注 ) ※ は , エラ ー コ ー ド で , 表 3 を 参照 の こと -. 











表 3 エラ ー コ ー ド (FCB の エラ ー フ ラグ に セッ ト さ れる ) 
表 4 主 な エン トリ 









































ド | 内 容 

0 normal end 

10 drive not ready D000 | IODOS9 ホ ッ ト ・ ス ター ト 

11 disk write protected 1 行 入 力 ル ー チ ン ・ ア ド レス . 普通 は SCD06 に な っ て いる . 
12 hard error P010 | EoF(s1A) が くる と , CD06 に リセ ッ ト さ れる . 

2 NT D013 | フロ ッ ビ ピー ディ スク RESTORE ル ー チ ン ・ ア ドレ ス 

15 Cs D016 フロ ッ ピ ビー ディ スク READ/WRITE ル ー チ ン ・ ア ドレ ス 
16 file not found D024 | 主 ア クセ ス ・ ド ライ ブ 番 号 が 入っ て いる . 

17 bad file mode D02B | Break エ ント リ . 

18 file already exist EC00 | FAT 用 エリ ア . 

19 no disk space EE00 | FCB 用 エリ ア . 
20 directory over EE30 | FAT 用 FCB 用 エリ ア . 
21 end of file EE50 | DATE 用 エリ ア . 
22 file not opened EE60 | バラ メー タ 用 エリ ア . 
23 file is protected EE80 | ワー ク 用 エリ ア . 























の 1 ) IODOS 9 作成 プロ グラ ム ダン プ げ ・ リス ト EE 還 還 昌 昌 















+6 + フ + 日 +9 +A +B +C +D +E +F Sum add +O 1 +2 + さ +4 + 品 +6 +7 + 日 +9 +Q +B +C +D +E +F Sum 
20 OB さ O BD OO 31 6 1 97 0 ミス =:51 1COO さ 2 BC FD 2O 09 OO QQO _QO OO QO OO OO _QO 0Q 7F FD si6O 
2E BD FE QB 25 EC 86 98 4 27 :B 1C10 OF BF FF F6 1 SO 6 FD 1F BB 96 Q4 BS Q2 27 37 iD 
O1 OO ED Q02 a6 05 4C BB1 11 26 s17 1C20 20 OF さ Q BD QO a5 6 B1 5C 5C ED 4 97 03 BD FE =:16 
Q5 20 Da 4F 1F BB 39 QB OO OO si18 1CSO_02 30 BD OO 9E BD FE QB 25 EB 6 QB 4 27 1 7 ioOBE 
00 1C OO_ 00 O1 00 0Q0 20 QO _ 00 si46 1C4Q QB 02 CS Q1 QQ ED Q2 aQ6 05 4C B1 11 26 04 8B6 :E2 


















QO OO _QQO_QO _QO _QQ 0OO OO 00 OO siQOO 1C5O 01 06 7 05 20 Da B6 FD QB 2B FE 1 40 B6 0 si:92 
OO _ 00 OO _QOQO OO QO OO _ 00 09 QO siOO 1C6Q BZ 0 E6 FD 05 2 FB CC QC 12 FD FC 2 7F FD 77 
OO _QQO OO QO OO QO _QO QO QO QO iQO 1C7O 05 FD OF BE FE Fa a6 4 7F FD OF a7 O 7D FD :97 
OO _ 00 OO OO QO OO OO _QO _QO OO szOO 1CBO OF FC QO 26 F1 7F FD BE OO EF :4B 
OO0 00 QO QQO OO OO _QO QO QQO QO siOO 1C9O 1 1 BE 0 さ BE 10 :5D 
OO QO 0O OO OO OO QO QO OoO QO siOO 1CQO BF 4 7F FD 1F 5F :Do 
QO 00 OO _QO OO OO _QO OO _QO_QO 1CEO ED 9F 35 F < さ D FB :24 
OO_ OO OO _QO QO 00 QO OO oO0 00 1CCO 8B6 B7 FD 0Q5 05 QO iDD 
GO_QO QO QO QO QO QO OO _QO 0oQO 1CDO OO oO_ OR OO Up】 QO_ sFB 


QO OO OO _QO QO _QO OO QO OO OO 1CEO GoO 


QO 
O Oc 


oO 


























54 O4 F5 E6 EB AD B1 32 F2 SO si61 計 林 EA OF 1 1B 4C BB 6F CB F2 B2 79 10 SD 8 FD 32 | 
= スト 1 ( の) 2 ) = 
+ ら 6 + プ 7 + 日 +9 + +B +C +D +E +F Sum 1D5O 49 2 FB 44 56 ED 64 EC C1 2Q Q4 BD 2C 6 さ 3 61 6 1 日 
17 Q2 99 20 OC 35 10 20 oO2 8BD BoO 1D60 6O 2B 1E 5B 49 2 F 日 44 56 3 64 20 06 5 49 24 :FBH 
4 6 QD BD ES 6 QA 20 E1 36 :F さ 1D7O FB E3 64 1C FE 2B QO2 1A O1 69 6 さ 69 62 6 60 20 s2C 
EC 41 さ D EB E4 E7 E4 ^aA6 C4 E6 =:BQa 1DBO EC EC 62 6D 61 さ ミ 2 66 2 05 4 さ 5 る 3 C3 00 O1 39 32 sz:94 
1E 89 さ 3 44 39 BE OO QO さ 4 10 siFA 1D90 66 CC 7F FF 39 4D 2B F1 39 a3 C1 2F 2C CC 0O 0QO 16 
04 BD 40 63 61 6C 6O 2B 40 58 :23 1DAO さ 9 3 ビ 1 2E 24 CC OO OO 39 3 さ ビ 1 2D 1C CC QQO OO :eD 








&O 


リス ト 1 (その 2 ) 





























1DEO 39 a さ C1 2C 14 CC QO QO 39 a さ C1 27 0C CC Qo QO 

1DCO さ 9 3 C1 26 04 CC QO QO 39 CC OO Q1 39 B3 QQ oO 

1DDO 27 F7 CC OO QO 39 17 FF 2 1F 9 4F 39 8D 15 16 

1DEO FF a7 BE Q4 さ D 17 FF 1E A6 BQ 1 24 27 2B B1 2D 

1DFO 27 ER さ Q 1F CC QO OO 4 06 A6 4 B2 さ Q 2B 18 81 

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Add  +Q +1 + つ + さ +4 +55 +6 + フ + 日 +9 +Q +B +C +D +E +F Sum 

Sum: 6D FD さ F さ O 9F 6C AE 95 2D B2 SE EE QF O1 QC BEF :2D 1FOO 46 3D EE 41 B9 QO ED C4 39 
1F1Q 09 さ 6 16 BD CD EC 42 さく 48 CS QO OS ED BC 09 S5 iD5 
1F2O 10 さ 6 16 BD BD ミミ 4 さ 9 1C 2C 6 49 16 FE 5 20 :E さ 

Add  +O +1 +2 + さ +4 +55 +6 +7 +B +9 +a +B +C +D +E +F Sum 1F さ O 7C CF さ 4 さ B BC OO OO QO 20 02 20 1 さ さ 4 さ 1 BD 26 :BS 

1EQO 09 22 14 aQ7 4 EC 60 5 49 5B 49 E ミ 6Q 5B 49 EE :CZ 1F40 1O BE FC 日 2 BE Q さ O1 aF a1 7 A4 BD 2E 35 E1 4 :1E 

1E10 BO B9 OO ED 60 20 E2 35 B6 CC OO QO さ 4 06 Aa6 4 :4 さ 

1E20 B2 さ Q 2B F さ B1 Q9 23 Q6 日 2 07 日 1 QF 22 E9 aA7 84 iD2 

1E さ O EC 60 5B 49 5B 49 5B 49 5B 49 EB BQO ED 6o 20 DE :B6 

1E40 BE QO OO さ 6 10 36 10 36 1Q 36 10 4D 2 05 63 40 :C5 

1E5O 17 OO D7 5B 49 ED 46 BE OO OF C6 05 1C FE 6 C5 :aF 

1E60 49 B1 09 22 04 1C FE 20 Q4 2 QA 1 Q1 a7 CS5 5 ia4 

1E70 26 EC 6B 47 69 46 24 02 6C 45 30 1F 26 DC C6 Q1 :5F 

1EBO QA6 C5 26 05 5C C1 O5 26 F7 39 BD B4 さ 4 Q4 ER 49 :BB 

1E9O C2 O6 2 さ 3 02 BD 20 35 0O4 6D 40 2 0Q5 B6 2D 17 FE :77 

1EQO 5F QA6 C5 BE さ Q 17 FE 5B 5C C1 Q6 26 F4 ささ 3 4 39 :E5 

1EEO ささ 5E BD BC 20 E2 B6 20 17 FE 45 5 26 FA 39 さ 4 :9 さ 

1ECO Q4 BD O4 さ 5 Q4 1F 98 1F 9 44 44 44 44 BD Q4 1F :ED 

1EDO 9B B4 OF BB さ Q B1 39 23 02 BB 07 16 FE 22 1F 9B :44 

1EEQO 20 F9 ささ 5C Aa6 45 E6 47 さ D ED 42 EC 45 3D EB 42 :C フ 7 

スト (その 3 ) se ま =tocmー キ ーー ニキ ーー ニテ ー ニ ニニ ドー デニ ニッ ニョ ニー パニ マー ニー:| 

Rdd  +O +1 +2 + さ +4 +5 +6 +7 +B +9 +a +B +C +D +E +F Sum 23EO 9E 0O6 4F E6 BB 11 BS OO 10 10 26 OO 15 BD CD OB 』E5 

2000 34 7F C6 CC 1F 9B CE FC BO 10 DF FE 16 QQ 48B 7E :12 23CO 46 69 6C 65 20 4E 6F 74 20 46 6F 75 6E 64 QO 16 :Q さ 

2010 CD 06 7E FE Q2 7E FE QB 16 12 3D 16 12 4 16 12 :D2 23DO FD 5 9E O6 4F E6 BB 11 日 さ QO 12 10 26 QO 19 BD ie 

2020 53 16 12 SE OO 17 12 6B 16 QO 32 C6 40 F7 FD O5 :B1 2 さ EO CD OB 46 69 6C 65 20 41 6C 72 65 ea1 64 79 20 45 i9F 

203O_B6 FD Q4 BS 02 27 04 7F FD QS 3B 7F FD QOS F6 FD :99 2 さ FO 7B 69 7 くさ 74 OO 16 FD さ 4 9E Q6 4F E6 BB 11 BS OO 』04 

204004 い ExO2:Z7:1FgIKEZ<002 )4 日 :BD ED 1Z.BD1CDOBn22 ォ Z2Y る 46 | 2 ニニ ニニ ニニ ニニ ニー ニニ ニニ ニニ ニニ ニー ニニ ーーーー ニ ーー ニニ ニニ ーー ニニ ニニ ニー ニニ ーー ニー ニーム どこ つこ ここ っ | 

2QSO 65 61 6B OO 16 QO C9 CC QO QO F7 DO 24 BE DO 2B iSo Sum: 9F CB DA 4BR EF 2E 0Q7 D6 B7 B5 C2 42 F2 9 65 F7 iFO 

2060 BF FF F6 CC OO OO DD OO CC OO Qoo DD 02 CC EE 60 』22 

2070 DD 04 CC EE QO DD 06 CC EE BO DD QB CC EE 5o DD :B4 

20BO OR 4F F6 DO 24 DD OC CC EF CO DD OE OF Q1 DC Oo 』BE Add  +O +1 +2 + さ +4 +5 +6 + フ +B +9 +a +B +C +D +E +F Sum 

2090 B さ 00 7F 10 2E QO 14 DC QO 5B 49 9E 0O6 さ O BB 36 』66 2400 1 さ 10 26 0O 10 BD CD OB 44 69 23 6B 20 46 75 6C iCO 

20O 10 CC OO QO ED D1 OC O1 16 FF E3 CC OS Q5 DD 10 eo 2410 6C OO 16 FD 17 9E 06 4F E6 8 11 ミ QO 14 10 26 』D5 

20EO OF Q1 DC OO 9E 10 E6 BB 4F BS QO 20 10 2D GO 16 ki5O 2420 OO 15 BD CD OB 44 69 72 65 6 さ 74 6F 72 79 20 46 iC5 

20CO DC OO 9E 06 30 BB 36 10 DC QO 9E 1O E6 BB 4F EZ :B2 243O 75 6C 6C OO 16 FC F5 9E Q6 4F E6 8 11 日 S 00 11 』5a 

2QDO D1 OC Q1 16 FF DC DC QO B さ QO OB 1Q 26 00 18 CC s5o 2440 10 26 OO 14 BD CD OB 42 61 64 20 46 69 6C 65 20 :A6 

20EO QO OO 9E 10 E7 4 CC OO QO DD 12 DC OC DD 14 CC :79 2450 4D 6F 64 65 00 16 FC D4 9E Q6 4F E6 8 11 さ 0O 』i6Q 

20FO OO O1 DD 16 16 07 E9 BD CD 17 BD CD OB 49 4F 44 ikOC 2460 17 10 26 OO 15 BD CD OB 5o 72 6F 74 65 6 さ 74 65 : さ D 

YS の RS ニン ミ 2470 64 20 46 69 6C 65 QO 16 FC B2 9E 06 4F E6 BB 11 』 さ 人 

Sum: 6B EA F4 BO さ B FB 79 CC AO 42 F2 2C 6F aB aF BB :C5 

Add +O +1 +2 +3 +4 +55 +6 +7 + 昌 +9 +a +B +C +D +E +F SBum 

2100 4F 53 39 20 6 65 72 20 さ 1 2E さ O 20 2 43 29 587 :E2 

2110 6F 6E 64 65 72 20 3 6F 66 74 20 27 3B さ 4 2E OO 』B5 

2120 CC DO 10 DD 1 CC CD 06 9E 18 ED 4 10 CE OB FF i4C 

2130 BD CD 17 DC OC BD CE BO BD CD OB 3E OO CC EF Oo 52 

2140 DD QE CC EE OO DD 06 CC OO 00 DD 12 CC oO oO DD EC 

2150 1 DC OC DD 14 DC OC F7 DO 24 1C OO 17 06 さ 3B 17 4E 

2160 06 54 17 06 さ 3E 1 50 さ Q BC 02 20 05 4C 4F 41 44 』22 

2170 OO さ 4 10 17 06 7 32 62 10 27 OO 03 16 Q6 BF さ O 』91 

21BO BC 0Q2 20 05 53 41 56 45 OO さ 4 10 17 06 3F さ 2 62 』16 add +O +1 +2 +3 +4 +5 +6 +7 +B +9 +a +B +C +D +E +F Sum 

2190 10 27 OO O3 16 O9 36 さ OQ BC 02 20 O5 46 49 4C 45 :92 2500 CD OB 52 45 41 44 20 45 52 20 4 さ 3 4F 44 45 3D OO 』2 さ 

21Q0 00 34 10 17 06 27 さ 32 62 10 27 OO 05 1C 0Q 16 OB ks95 2510 9E O6 4F E6 BB 11 BD CE BO 16 FC 10 BD CD OB 57 :BB 

21BO 24 さ O BC O2 20 05 4B 49 4C 4C OO さ 4 10 17 06 OD ia1 2520 52 49 54 45 20 45 52 20 43 4F 44 45 さ D QO 9E 06 i07 

21CO 32 62 10 27 OO 03 16 OE F1 3O BC 02 20 05 4E 41 』55 253O 4F E6 BB 11 BD CE BO 16 FB F2 BD CD OB 46 41 54 :7C 

21DO 4D 45 00 さ 4 10 17 OS F5 32 62 10 27 QQO OS 16 OD iDB 2540 20 45 52 QO 16 FE 10 17 02 6C 9E 1Q 4F E6 4 B さ 』4 フ 7 

21EO E1 さ Q BC 02 20 05 45 5B 45 43 OO 34 10 17 05 DD is26 2550 OO 22 10 27 OO 1C 9E 1O 4F E6 B4 BS OO OD 10 26 』A2 

21FO さ 2 62 10 27 OO Q5 1C OO 16 OF 20 9E 10 4F E6 B4 s98 256O QO Q6 CC OO O1 ED 62 39 DC 10 CS OO O1 DD 10 16 』OE 

ーー ニニ ニー っ ーー 2570 FF DB DC 10 C3 OO O1 DD 10 17 0O2 さ EC 62 DD 1C siOE 

Sum: 96 96 2B CB 03 D2 79 15 C4 61 4D 7 さ 6D 79 6F 2C :EB 2580 OF Q1 DC 0Q B さ OO 07 10 2E 0O 12 DC OO 9E 1C さ O iC 
2590 BB さ 6 10 CC OO 20 E7 D1 OC Q1 16 FF E5 CC OO 00 4B 
25A0 9E 1C ED OB CC OO 0O 9E 1C E7 Oa CC CO 00 9E 1C iaAC 

Add 。 +O +1 +2 +3 +4 +5 +6 +7 + 日 +9 +a +B +C +D +E +F 25BO E7 OF OF O1 OF OS 9E 10 4F E6 B4 BS OO 22 10 27 i5B 

2200 日 OO QD 10 26 OO 03 16 FF 29 9E 10 4F E6 B4 日 さ 25CO OO B6 9E 10 4F E6 B4 B さ OO 2 10 26 OO 07 QC QOS iC 

2210 QO 1Q 10 26 0O 0Q3 16 FF 07 9E 1O 4F E6 QO1 83 0O 25DO OF O1 16 OO 99 9E 10 4F E6 B4 3 OO さ 10 26 OO 』19 

2220 OD 10 26 QQ 7 9E 10 4F E6 日 4 BS QO 2B 10 26 0O 25EO 16 9E 1C 4F E6 4 B さ OO 3O DD 14 OF O1 CC QO 20 』29 

223O 3D 4F F6 CF 3B DD 18 BD CD oB 5o 72 69 6E 74 65 25FO E 1C E7 B4 16 OO 77 9E 10 4F E6 B4 日 O0 OD 10 iB9 

2240 72 20 OO DC 1 日 OO 20 10 26 OO OF BD CD OB 6F :72 | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ーーーーーーーーーーーーーーーー- 

2250 6E OO CC OO BD F7 CF 3B 16 QO QOD BD CD OB 6F 66 Sum: OD 5B 26 70 C2 97 Oa BS5 4B BE 6 21 2B F9 B1 32 』48 

2260 66 OO CC OO 20 F7 CF 3B 16 FE C1 16 OO さ 1 9E 10 

2270 4F E6 4 さ 6 0O6 CC QO 3O BD CD B9 36 06 9E 10 4F 

22BO E6 B4 さ 6 O6 CC OO 31 BD CD B9 AA CO Ea CO 10 27 Add +O +1 +2 + さ +4 +55 +6 + フ +B +9 + +B +C +D +E +F Sum 
2600 26 OO O ミ 16 OO 7C DC O2 日 さ OO OO 10 26 CO 1B DC 』49 
2610 OO B さ OO 07 10 2E OO OF DC QO 9E 1C 3O BB さ 6 10 』6E 
2620 9E 1O 4F E6 B4 E7 D1 16 OO 42 DC O2 日 さ O0 O1 10 』E9 
26 さ O 26 OO 1E DC OO BS oo o2 1O 2E OO 12 DC oo CS oo 94 
2640 OB 9E 1C さ O BB 36 1Q 9E 10 4F E6 B4 E7 D1 16 OO 』FB 
2650 1B DC Q2 B さ 0Q Q2 10 26 OO 12 DC QO 3 0O 0Q 10 』 さ 5 
2660 26 OO QO9 E 10 4F E6 B4 9E 1C E7 OF OC QO1 DC 10 』 さ SF 
267O CS OO Q1 DD 10 16 FF さ E DC 1Q0 C さ 0O Q1 DD 10 17 』BB 
26BO O1 さ 4 DC 02 さ 36 C6 CC OO QO BD CD E9 36 06 DC OO s76 
2690 36 Q6 CC OO OO BD CD B9 a4 CO E4 CO 10 27 0Q QB8 』92 
26AO CC OO O1 ED 62 16 OO O5 CC OO Oo ED 62 さ 9 EC 62 』D9 

Add  +O +1 +2 + さ +4 +5 + ら 6 + フ +B +9 +a +B +C +D +E +F Sum 26BO 34 06 17 O1 5C 32 62 ED 62 EC 62 36 C6 CC OO 3Q 』17 

23QQO 1Q 16 FF C4 DC QO2 9E Q4 さ O BB さ 6 1Q CC OO OO E7 :1D 26CO BD CD 99 さ 6 06 EC 62 さ 36 06 CC OO さ 9 BD CD B1 Aa4 :CD 

2 さ 10 D1 OF OS DC O2 日 oO 07 1O 2E CO 1D DC oO2 9E 06 s2B 26DO CO E4 CO 10 27 OO Oa EC 62 さ QO さ Q DD 1E 16 OO 』B フ Z 

2 さく 20 3O BB さ 6 1O DC 02 9E 0Q6 E6 BB 4F 34 06 17 O4 E1 :79 26EO O5 CC FF FF DD 1E EC 62 36 06 CC QO 41 ED CD 99 sB4 

2 ささ O さ 2 62 E7 D1 OC O3 16 FF Da CC 43 4F 9E CO6 ED QB :41 26FO さ 6 06 EC 62 36 Q6 CC QO 46 BD CD B1 aA4 CO E4 CO i1B 

2 さ 40 CC QO 4D 9E O6 E7 OA CC OO 52 9E O6 E7 OF CC OO 』 さ 2 | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー- 

235O O1 DD 1 CC OO O1 DD 16 16 O5 B5 BD CD OB 46 4F sB2 Sum: E5 DO 9C A4 7 さ CC D1 DE AF 78 92 B9 59 D4 57 CA 』:7 さ 

2 さ 60 52 4D 41 54 20 QO 16 OO 3E DC 14 36 0Q6 CC CO OO saO 

2 さ 70 BD CD B9 さ 6 0O6 DC 14 さ 6 06 CC OO O1 BD CD B9 AA :65 

2 さ BO CO EA CO 10 27 QO Q1 39 BD CD 17 BD CD QB 44 45 si9a dd +O +1 +2 + さ +4 +5 + ら 6 + フ + 日 19 +a +B +C +D +E +F Sum 

2 さ 9O 56 49 4 さ 45 20 OO OC BE 16 Oo OC BD CD OB 41 44 :4D 2700 10 27 QO OB EC 62 日 さ OO 41 C さ OO Oa DD 1E 39 DC : さ 1 

2 さ QO 44 52 45 5 さ 5 さ 20 QO BD CD OB 45 52 QQ 16 FD 7C isSC 2710 1E ED 62 さ 9 17 OO 9F 9E 10 4F E6 B4 さ 6 06 CC OO :CB 









































98 








&O 


リス ト 1( そ の 3 ) 











dd  +0O + オ 1 +2 + さ 3 +4 +55 +6 せ 7 +B +9 +aA +B +C +D +E +F Sum 
2BQ0 QQO_QQ DD 1 39 QE O1 16 FF C9 DC 10 D3 0O DD 10 :C5 
2B10 3 さ 9 EC 62 さ 6 Q6 CC OO 61 BD CD 99 36 Q6 EC 62 36 iD さ 
2B20 06 CC OO 7 BD CD B1 A4 CO E4 CO 10 27 00 QA EC :BC 
2BSO 62 日 さ OQ 2Q0 ED 62 16 QO Q4 EC 62 ED 62 39 CC QO 1O 








2CQOO DD OE DC 2 9E OE ED 4 DC OE CS QQ Q2 DD 
2C10 QO Q1 DD 2C DC 2C 9 さ 26 10 2E QO 1D 9E 2 
2C20 B4 さ 4 O6 17 QOS 7C 32 62 DC 2 C3 OO 01 DD 
2C さ O 2C C さ OO Q1 DD 2C 16 FF DB DC 24 3 QO 0Q2 
2C40 OO 5S CC QQO FF さ 4 0O6 17 OS 5B さ 2 62 CC QQO 





CC 
E6 
DE 
26 
さ 4 
62 
32 
36 
Q6 
DC 
F2 
Q6 


+ ド 
9E 


さ 4 
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リス ト 1( そ の 3) 


Add  +O +1 +2 + さ +4 + 呈 +6 + ブ 7 + 日 +9 +a +B +C +D +E +F Sum Add  +O +1 +2 + さ +4 + 品 +6 + プ + 日 49 +Q +B +C +D +E +F Bum 
さ 10O 0Q6 4F E6 8B8 11 さ 6 06 CC QO 12 BD CD C1 a4 CO E4 gzB1 さ 600 さ E 9E OE さ O BB 36 10 CC QO OO E7 D1 DC 1C 34 06 ia1 
き 110 CO 10 27 QO 0O さ 16 F2 9B 16 FO 18B 9E 1O 4F E6 B4 :1F さ 610 17 0Q5S さ F 32 62 9E 1C 4F E6 BB 11 10 27 QO 03 16 iCZ 
さ 120 B さ QO 20 10 27 QQ QBE CC Q4 さ D DD 1Q 17 F6 B7 16 si89 3620 OO BO DC さ 3E CS OO _OE 9E OE E6 BB 4F DD Q2 DC 3E iDO 
さ 1 さ 0 F1 6D 17 F5 DF DD 2E DC 2E B3 QQO QQ 10 26 00 03 s1 さ 6 さ 0 C さ OO QE E OE さ O BB 36 1O CC OO FF E7 D1 DC Q2 giDF 
さ 140 16 F2 5 17 F6 70 9E 10 4F E6 B4 日 さ QO 2C 10 26 :29 さ 640 C さ OO O5 9E 42 E6 日 BE 4F 日 3 OO CO 10 2C oo 2 く 3 DC :E6 
さ 150 OO Q7 DC 10 CS3 OO O1 DD 10 34 7F DC 2E 1F 01 aD 』2E さ 650 O2 C3 QO 05 9E 42 E6 BB 4F DD 18 DC Q2 C さ OO QOS iQ5 
さ 160 84 3 さ 5 7F 16 EF C6 DC OE ミ EF OO B ミ QO FF 10 2F i20 う 3660_ 9E 42 30 BB 36 10 CC OO FF E7 D1 DC 1 DD 02 16 gi4D 
さ 3170 QO 1D DC 0O6 さ 4 06 17 05 2F 32 62 9E 06 4F E6 BB :79 さ 670 FF CC DC 02 C さ OO 05 9E 42 3O BB さ 6 10 CC OO FF 1D 
さ 180 11 10 27 QQ 05 さ 2 62 16F さ 75 CC EF OO DD QE 9E 』3 さ 680 E7 D1 CC O1 O1 34 0O6 17 02 Da さ 2 62 9E 1C 4F E6 i36 
さ 190 OE 4F E6 B4 DD 18 DC OE CS QQ O1 DD OE DC 18 DD :26 さ 690 BB 11 日 OO 0O 10 27 0QQ Q3 16 QO Q6 CC OO QO DD i1B 
さ 1QQ 1 昌 さ 9 EC 62 9E OE E7 4 DC OE C さ OQ Q1 DD OE DC 2B さ 6AO 1B 39 CC QO O1 DD 1B 39 EC 62 DD 1C 9E 1C 4F E6 』B2 
さ 1BO _OE 日 S EF OO 晶 さ QQO FF 10 2F OO 1D DC Q6 さ 4 06 17 sz91 さ 6BO BB 1F 日 3 OO O1 10 27 OO 09 CC OO 16 9E 1C E7 8 si76 
さ 1CO 05 CE 32 62 9E Q6 4F E6 8 11 1O 27 OO 0O5 32 64 iaB さ 6CO 11 さ 9 9E 1C 4F E6 BB 14 DD 4B 9E 1C 4F E6 8 15 :B6 
さ 1DO 
31EO 
3fFo 











dd  +O +1 + つ + さ +4 + +6 + フ + 日 +9 +aA +B +C +D +E +F Sum dd +O +1 +2 +3 +4 +55 + せ 6 + プ 7 + 日 49 +a +BE +C +D +E +F Bum 


Add  +O 1 + つ ー+ キ る +4 +55 +6 + フ + 日 +9 +a +B +C +D +E +F Rdd  + 〇 O 1 +2 つ + さ 3 +4 +55 +6 +7 +B +9 + +B +C +D +E +F Sum 
ささ QO OO QO9 CC QO 17 9E 1C E7 BB 11 さ 9 OF QO ミ DC 02 日 さ さ B0O O6 17 03 4E 32 62 5E 1C 4F E6 BB 11 10 27 QO _Q1 iC2 
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リス ト 1 (その 3 ) 


























さ ACO DC さ E C3 QO 20 DD SE 16 FF 71 17 FD CB DC さ a 36 :C6 さ B5O OE さ 9 EC 62 じ ミ QO 10 DD 5B CC OO 09 9E 5B E7 B4 :D さ 
さ ADO Q6 CC QO Q1 BD CD B9 さ 6 06 DC SB さ 6 06 CC QO Q4 :72 3B6Q 16 QO OE EC 62 C さ QQ 1Q DD 58 CC QQO QA 9E 5B E7 』2D 
3AEO BD CD A9 A4 CO E4 CO 10 27 QO 09 CC QO 14 9E 1C :15 さ BZO 84 DC 5B 4 O6 17 QQO 46 さ 2 62 9E 5 4F E6 01 1O 1F 
さ AFQ E7 BB 11 さ 9 DC さ B 9E 1C E7 8 15 DC さ a 9E 1C E7 iC2 さき BBO 27 QO さ OF QOS 9E 5B 4F E6 O1 36 Q6 CC QO 0OC BD 』70 
ここ s こ ちっ ここ ニン ーー ニー ニコ ニニ ニニ ニニ ニー ニニ ここ ここ ここ ニニ ニニ ニニ ニラ ニー ニー ニー ニニ ーーーー* 3B9O CD 99 さ 6 06 DC Q2 36 06 CC 0Q O5 BD CD Aa1 4 CO 1C 
Sum: 4E CE 1 O7 21 F さ 42 B5 FF BA 92 QB 1 C2 7Q BD :a さ さ BAO E4 CO 1O 27 OO 17 DC 58 さ 4 06 17 OO S4 32 62 DC si1B 
さ BBO 5B さ 4 O6 17 OO OB 32 62 0OC 03 16 FF CB さ 9 AE 62 k7a 
3 さ BCO さ 4 79 1 40 86 FD 1F BE 17 E4 4 35 79 A7 01 39 』0B 
dd  +0 1 +2 + さ +4 + 巳 +6 +7 +B ヨ + す 9 +a +B +C +D +E +F Sum さ BDO EC 62 ビ さ QO 10 DD 5B DC 58 さ 34 O6 17 QQO QOS 32 62 si72 
さ EQQO BB 16 16 FF 18 9E 1C EC BB 14 9E 1C ED BB 1 9E :F4 さ BEO さ 9 AE 62 34 79 1 40 B6 FD 1F BE 17 E4 24 35 79 』4 
3B10 1C 4F E6 BB 16 9E 1C E7 BB 1C DC さ E 9E 1C E7 BB :77 さ BFO さ 9 10 DE FE 35 FF OO QOQ OO QO QO CO OO OO 0Q OO 59 
さ B20 1D 9E 1C 4F E6 BB 11 DD 18 さ 9 CC OQ1 Q4 9E 1C ED :4B | | 一 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー- 
さ BSO BB 14 CC OO OO 9E 1C E7 BB 16 CC EF OO 9E 1C ED :Q9 Sum: 3B 64 A5 1D 66 CB OO 92 75 46 9C Oa 44 B5 A1 27 :16 
3B4O BB 12 CC QQO Q4 DD さ B CC OO QO DD さ A CC EF QO DD :FAa 
EE スト 2 ビ 巳 AS ら |C じ コマ ンド アセ ンプ ルレ ・ リ スト EE 
00010 Na FBASTIC 
QQOO20 6Q0Q0Q RG ま 6O0O 
OO00 さ O FT MEN 
Q0Q040 EE6O FARAM EQU まま EE6O 
00050 003 さ TTP EQU まさ さ 
QOQ0060 0035 TEND EQU まま さら 
O03BH VTQP EBU 第 3B 
003D TOF EEU まさ 3D 
DOS DENTRY EQGU ま DO25 
20 02 6004 STQRT ERA ENTRY 
20 31 6035 GSTART1 BRA ENTRY1 
6004 ENTRY EQU * 
6004 さ 0 BE FE LEAX START1 FCR 
6007 RF BC4 昌 STX ENTAD+1 PCR 
600R 1 人 n 50 RCC 19) 
600C 10CE O100 LDS 寺村 100 
0 6010 4F CLRA 
QQ18O 6011 1F ヨ B TFR DP 
OO0190 6013 9E ささ LDX TTQP 
QOSOO 6015 RF D O1O1 STX STEXT。FCR 
QOS210 6019 EC B4 LDD sX 
00220 6Q01B ED BD QQFF STD BTUF 、PCR 
OO0230 。 601F 9E さき 5 LDX TEND 
OO0240 。 6021 F BD OQFZ STX ETEXT,PCR 
0025O 。 6025 C6 91 LDBE 間 17 
00260 6027 さ 0 D QQ01 LEAX FRG 。 FCR 
00270 602B CE OBFO LDU 井 ま BFO 
QOS2BO _ 602E 8BD 76 6Q0a6 BSR MOVE 
00290 。 6030 4F CLRA 
00300 6031 4 COHA 
00310 6032 7E 08FO JMP ま BFO 
00320 6035 3Q BD QO1B ENTRY1 LEAX INIT.FCR 
00330 6039 CE 08Q00 LDU 井 ま BOO 
00340 603C C6 FO LDE 半 ま FO 
0035O 603E 8BD 66 606 BSR MOVE 
Q0360 6040 7E Q8Q0QO JMF ま B0O 
00370 。 6043 30 BD QO0 フ Z PROG LERX FRUG 1 。 PCR 
QO3BO _ 6047 7D FDOF TST ま FDOF 
00390 。 604 6E 9F FBFE JMP [ ま FEFE ] 
OO4QO 604E 7F FDOF FRBG1  CLR FDOF 
OO410 6051 7E ROO2 ENTaAD  JMPF OO2 
Q0420 。 6054 7D FDOF INIT TST ま FDOF 
00430 6057 7F OBFF CLR BFF 
00440 605A 30 BD OOBE LEAX ARER。 FCR 
00450 60SE CE FCOO LDU 菩 ま FCOO 
00460 6061 C6 2E LDB STEXT--AREA 
O0470 6063 8BD 41 606 BSR MVE 
004BO 6065 6 bc/ LDR 25 
00490 6067 BZ 03OD STA まま 03OD sLINE NUMBER 
O05OO 606a 4 DECA 
00510 606B BZ 03QOF STA ま O30F ijSCRHLE LINE NUMEBER 
OO052O 606E 6 5Oo LDa 菩 ヨ 0 
00530 6070 97 に ビ さ STA じ さ sMIDTH 
Q0540 6072 BD CBBC JSR ま も CBBC sSET SCREEN 
005S5O * EXTEND REYMORD 
QOS60 6075 7C Q2O さ INC ま 20 マ sSTATEMENT NUMBER 
00570 6907 日 10BE FCOO LDY 韻 ま FCOO 
QOS5BO _ 607C 1QOBF O2O04 STY も 204 iTQBLE QADDRESS 
OOS9O 60O 31 9 OOQ21 LEAY ANL-QREA』Y 
OO60OO _ 6084 1OBF O21O STY 和 ま 210 sEXECUTE ADDRESS 
QO610 698 8D 24 6OE BSR SET 
OO620 60 BE 7FFF LDX 村 相 7FF ビ 
QO6 さ Q 608BD BF QS9D STX ま も 059D RaQNM END 
QO640 6090 9F 45 STX 45 s CHQRQCTER END 
OO65O 6092 3O 9 FED4 LEAX ー さ 00。 X 
00660 6096 59F さき F STX まう F sSTACK END 
QO67O 609 1F 14 TFR X。8 
OO6 ヨ 8O _ 609a BD BF さ 9 JSR ヨロ F さ 9 j NEM 
00690 609D BD 16 6QB5 BSR SET1 
QQO700 605F 8BD 27 60C BSR SET2 
Q0710 691 1 ビ AF QANDCC 壮 ま AF 
00720 。 60Q3 7E 6 る E JMP 第 B6 さ E 
Q07 さ O _ 6086 6 oO MOVE LDA *X キ 
00740 60 7 CO STA 。U+ 
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リス ト 2 FBASIC コ マン ド アセ ンプ ブル ・ リ スト 











Q0750 _ 6O0aa 5a DECB 6OF マ 人 41 

O0760 6OaB 26 F9 6Oa6 BNE MVE 6OF 4 5 ら さ 

QQ770 60aD 39 RTS 60F C5 

007BO 。 608E EE BD QQ6 昌 SET LDU STEXT。PCR Q105O 6OF6 4C FCC ? し LTS ヤ * 

0O0790 60B2 DF ささ STU TTOP 6OF フ 4 ビ 

OOBOO 60B4 さ 9 RTS 6OF ヨ 49 

QO ヨ B10 60BS 9E 3 さ SET1 LDX TTP 60F に よ 】 

OOB2O 6QE7 EC BD QOQ063 LDD BTP , PCR 6OF D4 

Q0830 6OEE ED 4 STD sX Q106O 6QOFE 4 に FCC *LFRINT* 

OOB40 60BD AE BD QOSB LDX ETEXT。PCR 60FC 5O 

OOB5O _ 60C1 9F さ 5 STX TEND 60FD 52 

OOB60 _ 60C3 9F さ B STX VTQFP 6OFE 49 

QQB70 60CS 9F 3D BTX aTOP' 6OFF 4E 

00BBO 60C7 39 RTS 6100 D4 

QQ890 60CB BE 0302 SET2 LDX 寺 ま 0 さ 02 01070 6101 5 さ FCG ) SOUN ト * 

O0900 60CB 10BE 1B67 LDY 寺 ま 1B67 6102 4F 

QOQ910 60CF BD OB 6ODC BSR HLT 610QS 55 

00920 。 60D1 EF FCEB2 STX 第 FCB2 6104 4E 

QQO930 _ 60D4 1QEF FCB4 STY まま FC 人 4 6105 C4 

00940 。 6O0DB 7F FDQO5 ELR まま FDO5 Q1QBQO 6106 50 FCC YFLR ル " 

QOQO95O 。 60DB さ 39 RTS 6107 4 ビ 

O0960 。 60DC _B6 FDQ5 HLT LDA も FDO5 6108 41 

QQ970 60DF 2B FE 6ODC BMT HLT 6109 D9 

O09BO 60OE1 6 8BO LDA 半 $B0 Q1090 610 42 FCC BY が 

QOQ099QO 6QE さ BE7 FDQ5 STA まま FDO5 610B 59 

O10OO 6OE6 BG6 FDO5 HLT1 LDA まま FDO5 610C C5 

QO1010 60E9 2 FB 6QE6 BFL HLT1 O11Q0O 61OD 1 F4 ANL CMFA 電 ま F 人 4 

01020 60EEB 39 RTS 01110 61OF 27 0 る 6114 BEQ BYE 

9 6OEC 4 さ RREA FCC ) CHRT ホ * O1120 6111 7E 920 JMP 92 人 AO 

6OED 48 01130 6114 7F FDOF BYE CLR 生 FDOF 
6OEE 41 Q1140 6 ム 6117 7E DO25 JNMP DENTRY 
6OEF 49 Q115O 611 人 QOOQO STEXT  FDB 9 
6OFO CE Q1160 611C 0000 ETEXT  FDB 9) 

Q1040 60OF1 45 FCC ERAS ナ * Q1170 611E 000QO BT ロ P FDB 9) 
60F2 52 01180 600Q END START 











トト 3 KKD コ ン バ イ ララ 変 更 箇所 (V3 . 6 ) EE 還 還 還 昌和 








Addr o1d new Addr o1d new Addr ol1d new addr o1d new 
2007 。 4C 9F 2O11 4D CD 2014 4D CD 2o2E 4D CD 
2o4E 4D CD 2051 4D CD 2o54 4D CD 2057 4D CD 
206Q 4D CD 2o6D 4D CD 207 さ 42 04 2074 。 QO 3D 
208BE 4B 9E 209Q 4B 9E 20CO 4C 9F 20CE 4C 9F 
2127 4D CD 213B 4D CD 213E 4D CD 214F 4E CE 
2170O 4D CD 2182 4D CD 2198 4D CD 21A2 4D CD 
21E4 4D CD 21FA 4D CD 21FD 4D CD 2218 4E CE 
223A 4D CD 223D 4D CD 225F 4E CE 2262 4D CD 
226E 。 4D CD 227 さ 4D CD 2276 4D CD 2279 4D CD 
2209 4D CD 22D さ 4D CD 2 さ 0O5 4D CD 2 さ 14 4D CD 
239B 4D CD 2 さ EC 4E CE 2405 4D CD 243O _ 4D CD 
24 ル 7 4 BE 2485。 4E CE 24CC 4E CE 24F2 4E CE 
2517 4D CD 252B 4E CE 25B6 4D CD 2589 4D CD 
26F7 4D CD 2707 4D CD 2715 4D CD 2BC4 4D CD 
299E 4D CD 29Qa1 4D CD 267 4D CD 2A6Q 4D CD 
2aC7 4D CD 2C1D 4D CD 2C2O _ 4D CD 2FA3 4D CD 
さ 15O 4D CD さ 15C 4D CD さ 187 4D CD さ 319 さ 4D CD 
さ 225 4D CD さ 27D 4D CD さ 28BO _ 4D CD ささ 8 さ 4D CD 
さ 44 さ 4D CD さ 44F 4D CD さ 46O _ 4D CD さき 46C 4D CD 
さ 488 4D CD さ 49D 4D CD さ 4A9 4D CD さ 5FC 4D CD 
さ 6 さ 2 。 4D CD 364C 4D CD 3666 4D CD さ 68O _ 4D CD 
さ 6EF 4D CD さ 807 4D CD さ 816 4D CD さ 866 4D CD 
さ B7E 4D CD さ BBE 4D CD 3 さ BE 4D CD 3 さ BD2 4D CD 
さ BF2 4D CD 3BFE 4D CD 39OE _ 4D CD 3 さ 91E 4D CD 
さ 97D 4D CD 39 さ 。 4D CD さ 9CD 4D CD さ C8BB 4F CF 
さ D24 4D CD さ D34 4D CD 3D44 4D CD 3D6C 4D CD 
さ F7CE 4D CD さ 3FA5 4D CD 3FE1 4D CD 402F _ 4D CD 
4032 4D CD 4049 4D CD 405S8 4E CE 405B 4D CD 405E _。 4D CD 
406 人 8 4E CE 408B1 4E CE 4090 。 4E CE 409 さ 4D CD 409B 。 4D CD 
40Q1 4D CD 4084 4D CD 4QEE 4D CD 4QBF 4D CD 40OEO _ 4D CD 
40EC 4D CD 4126 4D CD 4137 4D CD 414 コ 4D CD 4159 4D CD 
416Q 4D CD 41F1 4D CD 41F フ 7 7F FF 





スト 4 1「Y ピ ヒビ コマ ンド リー ス ・ リ スト EE 還 還 昌 昌 昌 





19 "(# TYPE V 1. の ら PRUGRANMMED BY UN 4.1 *) 

2 の 9 "CUNST EDPEN= ま も $D ら 1 日 。 ERERD= も D ら 1E。、E は BT し BCD96 

さ の " CUNST BUFRD= も 94 さ D 。 PQRMAD=$ も EE6O 。 FATAD= 和 まま ECOO3 EE ロニ の 

49 "BUTO TYPE 

5 の "UPENi CUDE ま QE6 ら 2 。 も BD,EUPEN 韻 3 RETURN 

69 *"READ』CUDE も QRE62#。 も BD。ERERD##3 RETURN 

79 "FOURNMERIPRINT "FURMRT "BOTU EROUT 

Bo "DVCKi IF DEV=G _UR DEV=1 THEN RETURNiFIsPRINT/"DEVICE "iCUDE さ 3262 
96 "ERUUTIPRINT "ERRUR "3 BUTU LOUOP1 

199 "HPENERs 

11 の 9 “ IF FC 17)=16 THEN PRKINT"Fi1 Not Found"』BUTU LOOP1』F エ 
129 "IF FCs17)=19 THEN PRINT"Drive Not Ready"sGBUTU LUUP1iF エ 
139 “PRINT "UPEN ER CUDE=" 。 FC 17) 』 GUTU LOOP1 

149 "KRDERIPRINT "READ ER CUDE=" 。FCi 17) 5 BHT LOOP1 
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リス ト 4 TYPE コ マン ド リー ス ・ リ スト 





159 "(# BTDAFELX:1)] テ ) 

16 の 9 "BTDQF SKIPSPE ]』MHILE X: の ) く >" ョ TF X: の ) =EOL THEN ん 1=1』RETURNiF 1』 X ニ X+1 』 MEND 
179 " X ニ X+1 

18 の 9 "FCB=X1 


199 "FOUR 1=9 TO 7』gFCB:T)=" "NEXTiFCB(4) = の FC 日 : 1 の ) = ら 』 FCBs 1 王 ) = の 』 エニ Oi』 ゴ ニー の 
299 "MMHILE XE の ) く テリ 5 
219 『" 





IF X:9)=" =" THEN DE ソ =FCB: の ) 一 まさ の 』 エニ の FCEB ょ の )=" “ELSE 

229 『" IF Xs の ” THEN =J+1』 エミ 9 ELGE 

239 『" IF Xs: の) =E ロ DL THEN GOTOU BTDQF2iF エ 

249 『" IF J=9 THEN IF <= ニ 7 THEN FCB: 1 ) =X ょ の) # エニ 1+13FIiELSE 

2596 " IF =1 THEN IF 1< THEN FCB: エ +8) =X= ら の) 』 エ = ニ 1+1iFTiELGE 

269 『" IF J=2 THEN IF 1=9 THEN FCB: 1 弓 ) =X: の) 』 エニ 1 エ +13FTsFTsFTsFTIFIIFTIX= ニ X+1』MEND 
79 "GTDAF2I 21= ニ 9』RETURN 

289 "SEIPSPsMHILE X ょ の 9)=" " ョ X= ニ X+1iMENDiRETURN 

299 " (X TYPE テ %) 

さ 99 "TYPE』FC=MURK[ ] 3 X=PQARMQD 』 DE ソ =PEEK ( ま D924 ) 

さ 19 "IF GTDQAFEFC] THEN BHT FURNER』F エ 

さ 29 "DVCKE 1 _- 

ささ 9 " FC: う 9 ) =9』 FC (9) =BUFAD 

さき 49 "FC 2 う ) =DEVi GPUHPNLFC]』 IF FC 17) THEN BOTU ロ PENERiF エ I 

35@ "PRINT /』FOR エ != の 9 TU 7iPRINT CHR$ も (FC: エ ) ) siNEXTIPRINT" " 

さ 69 "1= ヨ iMHILE [<= ニ 19 AND FC 1) ぐ > の 9』PRINT CHR ま (FCs 1) ) 5 エニ エ +14MENDIPRINT" " 

379 "IF FC 15) く >9 THEN PRINT CHR$ も (FC 15) ) sFIiPRINT / 

さ 39 "エニ 32sMHILE FCET)>= ニ ジー ド QRND I く で 48iPRINT CHR も (FC 1 ) ) 』 エ = ニ エ +18 MENDIPRINT / 

399 "PRINT "Di ヒモ 上 OFry 上 ac ヒド = テリ" 。FC: 26) 。 "ヒモ er=" 。 FC 27) 。" id="。FCi 2B) 。/ 

499 "PRINT "Gtar レ 上 上 ビレ acCK ド = リ "。F ビ ピュ 2 つの) 。" 5 ヒモ er デリ"。FC ビ 21) 。、" 5ide="。FCg 22) 。/ 

491 "J=FCs 14) iFRT=FATRDi TF FC ょ 2 さ ) THEN FRT=FAT+256iF エ 

492 "PRINT"U5ed C1Us モ 5 aar"。 り | あり 。HEX2 も (J) 

49 さ "UMHILE FAT: ゴ + ロ ) くま じ の 3 ゴ = ニ FT: ゴ + 品 ) iFRINT "| まり 。HEX2 ま (J) 』 MEND 

419 "PRINT /』FTYP=FC: 11 ) 

429 "IF FTYP=2 THEN PRINT"xMQCHINEX"s BTCH[ ]』 LEN=BUF (② ) 』 GR=BUF ( 1 ) 』 BUF=BUF+ 和 4 

4 さ ウ 9 " QR=SR』 ER=R+LENー}1 』 エニ 1 

4449 " 。 MHILE 1 エ < で =LENi QBTCHE ] 』 エニ エ + 1 』 MEND 

4559 "BTCHE ]』 BTCHE ]』 BTCHE ] 』 XQDR=BTCH[ ] *2 紀 6+BTCHL[ ] 

469 " DSPSUB[ ] 

479 "ELSE IF FTYP=9 QAND FC:12)=9 THEN PRINT "BASICX" GTCHE ] 』 BUF= ニ BUF+2 

4 日 9 『 =9』 REPEAT エ =1+1iUNTIL BUF: エ + さ )=9 QRND BUF: エ +1) く >2 ロ 43 SRK= ニ BUF (9) ユー4 3 NR=SRiP 
=9 

499 " REPEQAT』Q=BTCH[ ]』 IF Q=O THEN P=P+1iELSE IF QA く > も 1 人 Q THEN P=9iFTiFTiQR= ニ AR+13 
NTIL Q= ま 1Q AND P= さ 

599 『" XQADR=SR 』 ER=QR i DSPSUB[ ] 

19 "ELSE IF FC: 12) =25 ロ THEN PRINT"XQSCIIX"PRINT /』Q= ま GD3REPEAT 3 PRINT CHR$(Q) ia 
=BTCHE ]』 UNTIL = 各 1RIPRINT / 

529 "ELSE FCE: 17)=17』GUTU OPENERiFTKFIiFI 

539 "LOOP1』END 

呈 49 "DSPSUEBPRINT//" STQART="。HEX$(SR) 。" END=" 、HEX$(ER) 。、" EXEC=" 。HEX ま $(XADR) 。/』 RET 
URN 

559 " BPUPNI OPENEX1 ]』 BUF=BUFAD+256』 RETURN 








569 "BTCHI 
579 "IF BUF-BUFAD >25 王 THEN READFFC]』 IF FC:17) THEN CUDE $ さ 262 社 GTU RDERiFTiBUF= 
BUFADjFI 


589 " QA=BUF : の) 』 BUF=BUF+ 1 』 = RETURN 
99 "WORK CUDE まさ の 日間 。 も ら さ 1F 后 。 1939 栖 





スト 5 WIDTH コ マン ド ソー ス ・ リ ス ト EE 


19 "(X MIDTH V 1. の 9 PRUGRAMMED ON 3.12 #) 

さ 9 " CHNST PARMAD= も EE6 の 

49 " X=PQRMADi MD=DEC[ X : の) ]*19-DECE X: 1 ) ] 

59 "=B9』 IF MD=49 THEN MM=495FI 

69 " INITE] 

79 "END 

9 "DECI ん 1= ん 1 一 まさ の 』 RETURN 

99 "HLTiCUDE ま B6」 FDG 半日 。 員 日 6 日 の 韻 。 負 日 7 。 まま FDG ロ 。 も 日 6 。 和 ま FDO ロ 栖 。 も 2QF 日 5 DDR= 和 ま FCB2i RE 
TURN 

19O “SUBIPOURKE FDG5。9』 RETURN 

119 "INITiHLT[]』CPUEE ADDR。 ま の 1 の の 。 軸 。 2 ロ 。。 2 つら ロ 。 ウ 。 1 。9』 SUB[ ] iRETURN 


スト 6 DA 人 1 ヒコ マン ド ソー ス ・ リ ス | ト EE 


19 "(#* DaQTE V 1.9O PRUGRAMMED ON 日 く 。12 #) 

29 ” CUNST PQRMQAD= ま EE6 ら 。 DQTERD=$E ヒ 5 ら 。 EDF= ら の 

さ の 9 " X=PQARMADs Y=DATEAD 

4 の "ITF X: の 9)=EUF THEN 1 エ =9』MHILE 1 く <=15 QAND YsrI) く >EUFIPRTINT CHR も (Ys 1) )』 エ = ニ エ +15 MENDiE 
ND 

59 "FOR 1T=9 TO 15iYs1)=9NEXT 

69 " エ = の 3 MHILE 【 く =1 AND Xs:T) く >E ロ Fs Y: 1 ) =X = エ ) 5 エニ エ +1』 MEND 

79 "END 


7/ HELP ピ コマ ンド ソー ス ・ リ メス ト 還 還 昌和 

















19 " (X HELF V 1.9 PRDGRQAMMED UN 4.1 ※) 
で の 品 = あ 2 る 

さき 9 "FRINT/ リ ーーITUDUS9 riden モ 上 Command=ーー"/ 
49 PRINT/ "EXEC adr" 














59 "FRINT/ リ " 呈 X 選 に い 上 呈 an addre5=5" 

69 "PRINT/" リ FILES 。 CHR も () "dr ES キュ 1 己 nam SW 、CHR ま () 。" 

79 "FRINT/" 11= モ ut fi1e name5=" 

9 "FRINT/" ュ if fi] 己 ロ am 己 こ ロ m モ 上 ain "%" 。11 ら 上 ロ u モ 上 matched fi1e name" 
99 "PRINT/"KTLL"。 CEHR ま () "dr ミラ f ュ 1 与 name く "。CHR も ( 唱 ) 9 リ 
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リス ト 7 HELP コマ ンド ソー ス ・ リ スト 





199 "FRINT/" de1ete fi1e" 

119 “FRINT/"LUADSM"、CEHR ま () "Sdri Si1 name<"。CHR も ( 避 ) "で で ロ f 和 fe モ adr テ SR テテ > リノ 
129 "PRINT/" 1oad BAS1IC or MaQCHINE fi1e" 

139 "PRINT/" 1 R 1 5DC1 和 fied 上 hen 己 X* ら こい 上 " 


149 “FRINT/ "NAME" 。CHR ま (BB) 。" く dri >O1d fi1 name"。CHR ま も ( 品 ) 、" SB" 。CHR ま も ( ロ ) "new f11 na 
me くく"。CHR も () "テリ 

159 "FRINT/" renam ら 11 与 nam@" 

169 "FRINT/ "SAVESM"。CHR ま (BB) 。"Sdri >f ュ 1 name<"。CHR も ( 品 ) 、" く 5 モ art adr。end adr ぶ 。eX 呈 
C ad レヒ 1 

179 "FRINT/" =ave BQSIC or MACHINE fi1e" 

1B ウ "PRTNT// リ ーーIUDDS⑦ COn モ ヒロ] COmmandーー"/ 

199 "FRINT/ "dr" 





299 "PRTINT/" change mother drive" 

219 "PRINT/" く FCOmmand ロ aram 

SS の 9 "PRTINT/" XX 己 に い 上 司 COmmand 千 11 与 1 て 上 h ロ aFameterC"' 

2 う 39 "FRINT/" cOmmand fi1ekfn 1 Command name。f モ ij CUM and fm is R" 


49 "FRINT// リ ーーIODDS9 trangent Commandーー"/ 
259 "FRINT/ "DATE date" 











269 "PRINT/" 品 己 t a モ 与 wt 上 hin 16 Charac 上 5 リ 
279 "FRINT/"FBASTC" 
2B9 "FRTINT/" goto F-EQSIC mode" 
= PRINT/" back to IODOS9 using "「。CHR ま () "BYE" 。 CEHR$() 
*FRINT/"HELF" 
*FRINT/" he1 ロ yOu キロ use IDOS9" 
YFRINT/"RD" 
*FRINT/" high memory ドド compiler" 
*PRINT/ "STARTUP" 
*FRINT/" モロ 1um ら ロ am 己 8nd ほら モ a レ 上 uD DPFOq ロ Fam name" 
"FRINT/"TYFE" 、CHR ま (B) 。" く drF ェ >f ュ 1 name<"。CHR ま も ( ロ ) "テリ 
FRINT/" 115 上 〇 u 革 上 。 中 1 是 5 モ a モ 1 らら ュ iC5" 
*PRINT/" fi 1 ロロ Si 人 1 On 、1 ad add し 5 。 己 ※ 己 に い 上 司 address" 
*PRINT/"MIEDTH n" 
*PRINT/" change disp1ay 11in ゅ width" 
419 “PRINT/" n _ must be 49 or 9@" 
りら "PRINT// リ ーー5=ymbO1 ーー"/ 
439 "FRINT/" fi1e_nameifn< で キモ SS fm 
449 "PRINT/" dri て 911)..drive noO。" 
459 “FRINT/" adr:heX number address" 


469 "PRTNT/ 





トト OS = ご 丁 和信 叫 UP ソー スズ ス ・ リ ス | ト 








1 の "(X STARTUP V 1. の PRUBRAMMED UN 4.1 #) 

2 の CDNST ERST= ま D の 12 ESRMW=$D の 15 BTL= 和 まま CD の 6 

さり CUNST BUFAD= ま の 43D 

4 の "BOTO STUP 

5 の "RES』CUDE 人 E62 ご 479 韻 中 1 人 4 の 林 。 ま 日 6FD 韻 中 1F 晶 日 持 も BD ERST 半 , まさ 5 フ 9 栖 。 7 の 1#3RETURN 
6 の 'SRMiCUDE NE62 柱 叶う 人 479 韻 中 1 介 4 の 韻 。 生日 6FD 村 。 生 1F 日 日 桂 HID 。 SR 。 まさ ロフ 9 提 7 の 1 柱 : RETURN 
7 の "BTLINE』 CUDE BE ,BUFAD , ま BD 。EBTL 韻 : X ニ BUFAD』 RETURN 

B の 9 BRIPSPsMHILE X: の )=′/ '』X=X+1』MENDiRETURN 

9 の "DEVER』PRINT/ "DEVICE ER"』BUTD LOOP1 

1 の "RDERjFRINT/"DISK READ ER CODE=" 。FCs 17) 』 BOT LOOP1 

11 の 9 "MTERiFRINT/"DISK MRITE ER CUDE=" 』FC: 17) 』 BUTD LUOP1 

12 の "(* STUP *) 

13 の "STUP』FC=MWURK[ ]』FUR エ = の TO 7i』FCs 1 ) = の 』NEXT』FN=FC+ 

14 り ウ "PRINT/ "DEV り ICE?" 』 DEV=TNPUT 

15 の 9 "IF DEV ぐ > の AND DEV ヾ >1 THEN BUTO DEVER』F エ r 

151 "PRINT/ "VODLUME NAME (within 2 Character)?"』BTLINE[ ]』 SKIPSP[ ] 』 ソ =X (の ) 

152 "PRINT/"FILE NAMYE(within 日 Charac モ er) で "sBTLTNE[ ]』SKIPSP[ ] 

153 ユエ = の iMHILE エ く =7』FN: 1 ) = まま 2 の 』 エニ エ + 1 』 MEND 

154 iMHILE エミ ニブ AND X』 の ) く > もの D』TF X: の ) >= ま 2 の THEN FN: 1 ) =X: の ) 』ELSE FN: 1 ) = ま 2 の FI 
3 X ニ X+1 』 エニ = エ +1 』 MEND 
16 の "FC(1)=BUFAD』FC: 5) =1 』FCi 7 ) =DEV 

161 "RESLEFC] 

17 の 9 "FCi の ) = ま の SRM[FC]』 ITF FCi1) THEN BOT RDERjFI 
18 の 'X=BUFAD+5sFOR エ = ウ TO 7』Xi1)=FNi 1) 』NEXT 

ご 1 の "FC の ) = の 9』SRMFFC]』TF FC 1) THEN GBDTOD MTERiFI 
22 の "FCs 4) =1 

< う 3 の "FCk の ) = ま の As SRW[FC]』 IF FC 1) THEN GOTO RDERiFI 
24 の 9 =BUFAD+1』A( の ) =VL 

25 の "FCs の ) = ま の 9』SRMEFC]』TF FCi 1) THEN BUTD MTERjF エ I 
26 の LOOP1』END 

327 の “MORR』 CUDE まう の BC 。 ま の さる 1F 壮 1 の う 9 拉 
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拡張 コンパ イラ を 利用 する 上 で の 注意 点 , プ ログ ラミ 
ング の 特殊 な テク ニッ ク な ど を 説明 し ます . 拡張 K コ ン パ 
イラ を 利用 し て , ひと 味 違 っ た プロ グラ ミン グ を 楽し み ま 


じみ う 。 














トー い 注 ーー 
- ラミ ング の ) 7GA 
ソン ソース ・ プ ログ ラム の 大 き さ 

通常 の 場合 、 ソ ー ス ・ プ ログ ラム が , $2000 を 越え る と , 
コン パイ ラ 本 体 を 壊し て し まい ます . この と き は , コン パパ 
イラ 本 体 を 胡 RA M に 移動 する (FM-7 の 場合 ) か , コン 
イラ を ファ イル 版 に 変更 する (FM- 8, 11 の 場合 ) を し 
て くだ さい . 

コン パイ ラ を 裏 RAM に 移動 し た と き は , ソー ス ・ ブ ログ 
ラム は , $41FEF ま で 占有 で きま す . ソー ス ・ プ ログ ラム が $41 
FEF を 越え る と き は , 一 行 入力 バッ ファ と シン ボル ・ テ ー プ ブ 
ル を 裏 RAM に 移動 する と , さら に , $4AFF ま で 占有 で きま 
まま: 

BASIC の CLEAR 娘 は , ソー ス ・ プ ログ ラム が コン パイ 
ラ な ど 他 の 部 分 を 壊さ な いた め に 使う の で , その 恐れ が な 
いと き は , 使わ な く て も か まい ませ ん . 一 度 設定 する と , 
再 設定 され る まで 有効 で す . 

ソー ス ・ プ ログ ラム が どこ まで 使っ て いる か を 知る に は 
$35, $36 番 地 の 内 容 を みれ ば わか り ま す ( 図 1). 
コン パイ ル で きる シン ボル の 数 

コン パイ ル で きる プロ グラ ム の 変数 の 数 の 上 限 は , 127 
で す . また だ , 変数 , ラベ ル , 定数 (以上 シン ボル と 総称 す 
る ) の 入っ て いる テー ブル (シン ボル ・ テ ー ブ ル ) の 大 き 
さ は , $4300 一 $ 4 AFF ま で の $800 バ イト で す . 各 変 数 , 
ラベ ル , 定数 1 つ あ だ たり, 12 バ イト を 使う の で , それ ら の 
総計 の 上 上限 は , 170 で す . 

シン ボル ・ テ ー ブ ル が 大 きく な りす ぎ て 壊れ る と , 原因 不 
明 の エラ ー が で ます 。 この と き は 。 
① シ ン ボ ル で 木 使用 の も の を 削除 し , 重 復 し て 使え る 変数 

は な る べく 何 回 も 使う . 
テー ブル の 大 き さ を 増やす . FM- 7 なら, 裏 RAM に 移 
動 す る こと も で きま す . 

旧 バ ー ジ ョ ン で は , この テー ブル の 大 き さ が $700 バイ 
ト と 少し 小さ か っ た の で 注意 し て くだ さい . 

テー ブル の 大 き さ の 変更 は , エン トリ ・ マ ッ プ の シン ボ 





図 1 CLEAR 300,& H1FFF の と き の メ モリ ・ マ ッ プ 
($33, $34) 一 ー 





($35, $36) 一 テ 


単純 変数 注 ) ( 。) 内 の アド レス の 内 容 
($3B, $3C)-ー が 実際 の アド レス を 示す . 
配列 変数 
($3D, $3E)-ー 





($8F, $40)- 


($45, $46) 一 テ ーー 


フリ ー エ リア 


マーー $ 1ED3 


| 300 バ イト 


ーーー $ 1FFF 





図 2 シン ボル ・ テ ー ブ プル ダン プ 実 行 例 





FE EMFTLER LABEL. TaELE DUMF' 


氷水 人 EELLG ボボ 


CHECE SOECs 

ボボ VARTARLLEG ポポ 

SU も 0000g 合 も 000SI 電 
00 生ま 

ボ 率 CHNSTaNTS ポポ ※ 

LTEL. 刈 人 4 当 OO 


*※ 率 DEFTNEG ポ ボ 氷 


60 hy 人 色 呈 い 舎人 








ル ・ テ ー ブ ル ・ ア ドレ ス (p.83) の 値 を 変更 する こと で 
で きま す . シン ボル ・ テ ー ブ プル を ダンプ し , 名 前 と アデ ドレ 
ス 。 お よび 何 バ イト 使っ て いる か を 出力 する プロ グラ ム を , 
リス ト 1 に , 天 行 例 を 図 2 に 示し ます . 


と た O 万 - ん と 7 


FOR-NEXT か ら の GOTO 女 。 RETURN 廊 に よる 形 び 
出し を する と , 異常 な 動作 を し ます . ルー プ か ら の 飛び 出 
し が ある と き は , FOR-NEX 丁 文 で な く 。 WHILE-WEND 
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例 1 配列 を 0 クリ ア す る プロ グラ ム 





10 7EONST TNCT= ま 0OCO1 。CLRT= ま QFO1 
2O 1=0 ョ FC じ = 和 ま 6000 


さき 0 7 CODE CLRT#MHTLE エミ = ニ EO ュ FC(T)= テ OiCOUDE TNCT#』 MEND 





例 2 デー タ 参 照 プ ログ ラム 





190 "ENST TNCT= ま OEO1.CLR エモ 和 ま OFO1 
SO 「 T=OsFC=DaTARE ] 


40 "DTI CODE 呈 OB 韻 。 あ 0 革 1F 提 第 10 さ 9 提 
0 "CODE 0O。1」2。 さ 。4。5。 ら 。7。 日 。9。10 


30 7"EUDE CECLRTI 失 iMHILE 1 ミ = モ 9gFRTNT FC 1T) iCODE INET#』 MEND』 END 





リス ト 1 シン ボル ・ テ ー ブ ル ダン プ ・ プ ログ ラム 





10 7 CONST LTEIL.= 生 43OO 

SO "FRINT/"E COMFTLER LABEL TAELE DUMF"/ 
21 "SUM=O 

さき 0O "PRINT/ リ ポポ 水 LABELG ※※ 氷 り /gC ビ HECEEO] 

40 "FRTINT/ リ VARIAELLES まり / ェ じ ビ HECEE 1 ] 
5O "FRTINT/ リ CHNSTANTS ※ り / ェ CHECEE 上 ミコ 
60 "PRTNT/ リ ルポ % DEFINES ※ 氷 り /g じ HECE ト 人] 

61 "FRINT/SUMK12。! byt 上 5 us5ed"/ 

70 7 END 

80 "CHECEI =LTBL 

99 | MMHILE REO) で 人 征 FF 

100 「 IF aiO)=X1 THEN SUM=SUM+ 1 

MO 2 FDR Im4 TO 11:FRINT CHR*(asT) ) NEXT 
120 『" FRINT ! まもり 。HEX ま (AA(1))。 り 8 "saFI 
130 「 月 宇和 キ 1S8*MENDD 

140 "RETURN 











人 婦 . また は REPEAT-UNTIL 文 を 使っ て くだ さい . 


変数 の 初期 値 


変数 の 初期 値 は クリ ア さ れ て いな い の で , 何 が 入っ て い 
る か わか り ま せん . 


/Z/ パ 7 の 後 の 文 


PRINT 文 の あと に , 他 の 婦 を 壮 く と き は ,。 必ず 本) で 
区 切る こと どこ 7 (空白) で は 区 切れ ませ ん . 


キー ワー ド て で て 始ま る 変数 名 


使え を ませ ん . 
康 コ プラ ミン グ 


小さ くそ し て 速く する 

0 一 127 まで の 1 ずつ 繰り 上 が る カウ ンタ は , 次 の よう 
に する と プロ グラ ム ・ サ イズ も 小さ く , し か も 実行 速度 が 
あがり ます . 
① 方 法 
① み カウ ンタ に 使う 変数 を 決め る . 普通 IT と か 本 を 使う . 
⑧ プ ログ ラム の 先頭 で . その 変数 に 0 を 代入 する . 
③ 以 後 , 0 に する に は , CODE $OFO1#” を 使う . 1 繰り 上 
げ る に は , “CODE $0C01#” を 使う . 

$6000 か ら 始 まる 配列 FC' を , 42 バ イト 0 クリ ア す る プロ 
グラ ム を 例 1 に 示し ます . 


の 47 文 を 使う 


BASIC の DATA 娘 の よう に , プロ グラ ム 中 に デー タ 領 域 
を と り , 読み 出し , 書き 込み が で きま す . 
方 法 
① 得 た い ア ドレ ス の 前 に ラベ ル を つけ , “CODE $ 308C せ , 
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例 3 文字 列 長 を プリ ント ・ ア ウト する プロ グラ ム 


10 "N=LEN[ "AECDEF"]』FRINT N 
20 『 END 

30 "LENi =Z1 ょ し =O 

40 *MHTLE AsO) : 人 =a+13 し = し +1: MEND 
0 "1=L ェ RETURN 











$ 031F 半 , $ 1039#" を 書く . デ ー タ 領域 は この 後 と な る . 
⑨② こ の ラベ ル に 関数 コー ル を する と , デー タ 領 域 の 先頭 ア 
ドレ ス を 持ち 返る . 
あと は , その アド レス を も と に , PEEK/ POKE, また 
は 配列 で その 内 容 が 読み 書き で きる . 

メモ リ 内 の デー タ を 書き 出し , プリ ント ・ ア ウト する プ 
ログ ラム を 例 2 に 示し ます . 


文字 列 を 航 う 

サ プ ブル ー チ ン ま た は 関数 に 引数 の 文字 列 を 書い て , それ 
ら を 呼び 出す と , サブ ルー チン また は 関数 側 の 引数 に , そ 
の 次 字 列 の 格納 され て いる 先頭 アド レス が セッ ト さ れ ま す . 
サ プ プ ログ ラム 側 で は , その アド レス を 利用 し て 文字 を 取 
り 出 し ます . な お , 廊 字 列 の 終わ り は , 0 (ヌル ) な の で , 文 
字 長 な どの チェ ッ ク が で きま す 。 

女 字 列 の 長き さき を プリ ント ・ ア ウト する プロ グラ ム を 例 3 
に 示し ます . 


ロー カル 変数 を 使う 


サ プ ブルー チン また は 関数 の パラ メー タ は , スタ ッ ク に 積 
まれ る ロー カル 変数 で す . この 変数 に , サブ プ プ ログ ラム 内 
で 値 を 代入 し て も , RETURN 命令 と と も に 値 は 消え て し 
まい ます . 

リカ ー シ ブ ・ コ ー ル の と き , 受け 渡す 値 は すべ て ロー カ 
ル 変 数 に し な けれ ば な り ま せん . 














サ プ プ ログ ラム の 入り 口 で LEAS -n,S を , 出品 で 
LEAS n,S を する と , サ ププ ログ ラム の 中 で ロー カル 変数 
を 新た に 増やす こと が で きま す . 

サブ ププ ログ ラム の 中 で , 4 つの ロー カル 変数 を 追加 する 
プロ グラ ム を 例 4 に 示し ます . 

プロ グラ ム の 入口 で LEAS -8, S を , 出口 で LEAS 8,S 
を し て いま す . これ に よっ て , 免 変数 は 次 の よう に 変わ り 
ます . 


&O 








0 す . TRANSFER は サブ 表示 プロ グラ ム (SUBPRO) と , 
の 表示 デー タ を サブ に 転送 し ます . FPUT は サブ の デー タ を 
際 ロー カル 変数 表示 させ ます . 

の 3 REBUHN NEASOE 交 SPYB2ATD: 

の 4 …… リタ ー ン ・ ア ドレ ス ( 寺 さ な い ) X: 表示 する 左上 の XX 座標 (0 一 639). 

5…… 第 1 パラ メー タ kK Y: 表示 する 左上 の Y 座 標 (0 一 199). 

1152O0C 第 2 パラメータ LX: 表示 する デー タ の X 方 向 の バイ ト 数 . 











LY: 表示 する デー タ の Y 方 向 の ドッ ト 数 . 
PAD: 表示 する パタ ー ン ・ デ ー タ の 入っ て いる アド 
レス . $C000 か ら の オフ セッ ト で 指定 する . 
高速 表示 (FM-/ 用 例 5 ) 例 $100……$C100 か ら パ ター ン ・ デ ー タ 
半 二 に が 入っ て いる . 
ろ ん を な 色 の イン ペー ダ を 1000 史 ,。 あっ と 言う 間 に 表 示 は 電 を 


この プロ グラ ム は , 整数 を 5 桁 の ASCII 文 字 に する も の 
で す . 頭 の ゼロ は サ プ レ ス し ます . 











し ます . イン ベー ダ の パタ ー ン ・ デ ー タ を, サブ の $C100 み グ 思 受 赴 
に 送っ て お いて , それ を メイ ン か ら の 指示 で 表示 し ます . ロ 参 考 文献 
サブ プ の 表示 プロ グラ ム は $C000 か ら 入 っ て いま す . 1 天上 田 昌 “バト ミン トン ・ ゲ ー ム "。 TI/0。「83 年 10 


SUBMIT は 256 バ イト ずつ , サブ に 転送 する ルー チン で 
例 4 ロー カル 変数 を 追加 する 





10 “MORE も ら 6000』 ソ =18 さ 

20 "BTGHDFV。 MORK] 

さき Q "FDR 1T=QO_ TO 4』FRINT CHR ま (MORE T) ) 』NEXT 
40 "END 

50 "BTUD』 CUDE 人 ん 1=1』 ん 
60 "WHILE 2 = ョ ん ( 
70 「 TF 1=1 THEN IF THEN : 
BO ! DMY 8) = モル 01 2 スモ ルス さ /10 ェ 12 モス ルキ 1 3 MEND* CODE さら 6 日 RETURN 













例 5 高速 表示 (FM-7 用 ) 





10 "CONST PFBER=10Q 
20 「 FAT=FPATAD[ ]: TRANSFEREFRT] コ 

エ Q "FUR IT=O TU 999』X=RND(620) : Y=RND(19O) 
さ 1 *C=RND (6) +1 

40 "FPUTLX。Y。2。 日 。FBBR 。 じ ] 


60 "NEXT 

70 END 

BO "HLTiCUDE Bo6。*FDO 王 韻 。 ま GEHFH 半 中 1 全 40 韻 生日 6 日 O 井 日 。 DO 三井 名 6 。 ま FDO 曲 。 本 2 人 FE 半 DDR= 各 
FCB2i RETURN 


90 "SUE:FURE *FDO5』 ORETURN 
100 "(氷水 水 氷水 氷水 水 。 TRANSFER ポポ 氷水 氷水 ※ 氷 水 ) 
110 "TRANSFER』 B=SUBPRUTF コー1S』 SUEMITFE。O コ 
120 "SUEMITFX1。1]』RETURN 
13O "(氷水 氷水 氷水 水 氷 BUHMTT ポポ ポポ ポポ ※) 
140 "SUEM1T』 MM= 生 DOOO+ 事 100KXGi DDRES=%1:FDR M1=O TO さ kHLTL]iCPORE DDR。 まさ F。 YY" 人" 
MA UP TCP "日 7 T 7 あり 1 。 生 D さ りさ 村 。 持 。 釧 40 韻 。 まり 903FDR MG=O TU まさ FsADDR: MG) =ADDRES: 
MG) :NEXTi SUBF ]: DDRE=RDDREB+ ま 40* = 内 40』 NEXT: RETURN 
15O "(ポポ 水 ポポ 氷上 FUT ポポ 水 氷水 氷 氷 ※ 水 水 ) 
160 「FPUTsM=1+TBOXZ2rHLTE]iCPOURE ADDR。 まき F。YYP UP DP 日 。) T" 。 あ 91 。 ま D 
96。 まじ OOO 韻 。 ま OOO フ 井 。 和 まり さま COOC 韻 あり 0 。 凡人 4 。 ん 5 倍 6s SUB[ ]:RETURN 
170 
18O "(* *※*※※ FFPUT FRHGRAM TRANSPURT  *%*※※ ※) 
190 "SUBPRDi CUDE まさ OBC 拉 。 生 0 さ 1F 韻 。 和 10 さ 9 井 
: CODE ま 計 4。 まさ フ 。 ま EE6。 ま D4 
: CODE ま O9。 ま じじ 。 ま じ O 。 ま OO。 ミィ 日 じ 。 まま ED 。 ED 
: CODE ま BC。 ま ED 。 和 ま 1F。 ま 01 。 ま 6F。 まじ 。 ま E じ 。 生 1 人 
: CDDE 呈 王 1 。 69。 日 じ 。 ビア 。 生生 ら 。 日 じ 。 ま EE4 。 日 1 
"CDDE も OB。 も G6。 ま OS 。 和 まさ ロ 。 日 プ 。 人 6 。 ま BC。 名 D ら 
: CDDE 日 1 。 ま OB。 24。 和 ま OC。 人 AE 。 まじ 。 ま DO 。 事 全 
* CODE まじ 。 ま D1 。 ま つら 、 ま 04。 串 日 6。 ま 2O。 ませ O。 0 
7 CDDE も 昌 6。 ま 21 。 ま 全日 じ 。 ま 1 さ 。 ま EE ら 。 BC 。 事 EE 
"CDDE 4F 。 まさ 。 まじ 。 生 提 4。 事 1F 。 ま 0 で 。 和 ま E ビ 。 日 ビ 
* CDDE 生日 1 。 40。 第 ED 。 串 昌 4 。 まま E ら 。 まま EE1 
7 CDDE も 2O。 ま 04 。 員 人 6。 ま 日 O 。 20 。 あ 01 。 計 4F 。 名 合 ブ 
"CDE 人 ロ 。 5 じ 。 ま 2D 。 あま さ 1 。 外人 日 。 まあ 5O 。 生 ら 人 
: CDDE BC 。 人 O 。 あら 。 9。 和 ま 人 6 。 名 BC 。 まり 1 。 日 E 
* CODE 40。 生 人 7。 BB じ 。 事 日 宮 0 。 事 人 日 
) FATADiCDDE まさ OBC 韻 。 0 計 1F 韻 。 還 109 提 
D "CODE OF 。 和 OO 。 生 ブフ F 。 中 選 0 。 生 FF 。 第 0 。 握ら 。 事 ブ 0 
さら 0 "CODE ま FF 。FO。 和 19。 日 0。 さら 。 まじ O 。 CO 。 さき O 
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@ 拡 張 K コ ン パ イラ 用 の 強力 な ユー ティ リティ @ 


く コ ン バ イ ラ で 





PC-6001 用 の 将棋 対局 (|/O'83 年 9 月 号 ) を に コンパ イラ 用 
に 移植 し よう と 思い 立ち まし た が , な に せ 楓 は BASIC コ ン バ パ 
イラ , 文字 変数 を 多用 し て いま す . そこ で まず , K で も 文字 
変数 や 関数 を 使え る よう に し よう と , この サ プ ル ー チ ン を 
作り まし た (も っ と も 肝心 の 将棋 対局 は すでに '83 年 12 月 号 
に 掲載 され まし た が …). 


必 へ 
8 枝 賠 SW 


文字 変数 を 使う た め に あたっ て , いろ いろ な か 法 を 試み 
まし だ た が , 結局 BASIC に な ら っ て アド レス ・ ポ イン タ を 採 
川 し まし た . 文字 変数 に は 変数 名 が な く , すべ て 番号 で 処 
埋 し ます . つま り , た っ た 1 種類 の 配列 と みな すこ と が で 


きま す . 
\ 文 My ペン 
ジ 法 


以下 に 志す 引数 の うち , Ni” は 文字 変数 の 番号 、 ヾ NiS? 
は 文 子 変数 番号 また は 文字 列 、 ヾ 式 / は 数 式 , 数 値 を 表わし 
ます . また , 例 は BASIC の 対応 する 形式 も 共に 示し て あり 
ます . 


@LET(Ni, N。5) 


S を 代入 する . 
例 LERT[0, 1] 
AS (0) ニ A$ (1) 
LET [ 2, い 1/0/] 
A$ (2)=\I/O? 


@ADD(N,, N。, N。) 
機能 : NiS と N。S を 結合 し , Ni に 代入 する . 長 さ が 指定 
値 (後述 ) を 越え る 場合 は , 後ろ を 切り 捨て る . 
例 ) ADD [0, 1, 2] 
A$ (0) ニ A$ (1) 十 A$ (2) 
ADD [3, 4 いび PTS./] 
A$ (3) ニ A$ (4) 十 “PTS.? 


@CMP(Ni, N。) 


機能 : NiS と N。S を 比較 する . 関数 の 値 は , 


108 


変数 を 使う 





NiS>N。S の と 
NiS=N。S の と き 0 
NiS<N。S の と 
が 返さ れる . 
例 ) F= ニ CMP [0, 1] 
F 三 (4$ (0) 三 A$ (1)) 
※ た だ し , BASIC で は , 式 が 成立 する と き ヾ ー1? 
條 部 の と きび 0? が 返さ れる . 


@PHRHT(N) 


機能 : Ni 番 の 文字 変数 を 画面 に 出力 する . 
例 ) PRT [0] 
PRINT A$(0) 


@ INP(N) 


機能 : 文字 列 を キー ボー ド よ り 入 力 し , それ を Ni, に 代入 す 
る . 
列 ) INP [0] 
LINE INPUT AS$(0) 


@POI(Nj) 


機能 : 文子 列 の アド レス を 与え る . 
列 ) ADDR= テ POI [0 ] 
ADDR= ニ VARPTR (A$ (0)) 
※ た だ ただし, BASIC で は ポイ ンタ の アド レス が 返 


され 
る が , POI で は 文字 列 の 格納 アデ ド レス を 与え る . 


@CHRI(INi, 式 ) 

機能 : 式 の 値 を キャ ラク タ ・ コ ー ド に し て Ni, に 代入 す 
る 

例 ) CR [0 , 駐 ] A$ (0) 王 CHR$ (X) 、 

機能 : 式 の 値 の 10 進 表現 を 文字 列 に 変換 し て , N, に 代入 
する . 

列 ) STR [0, 又 ] A$ (0 )=STR$ (X) 

@LEFT (Ni, N。, 式 ) 

機能 : NiS の 左 か ら 式 の 長き さき だけ を 取り 出し , Ni に 代入 
する 。. 


例 ) LEFET[0. 0, 3] 
AS$( 0 ) 三 LEFTS (A$ (0), 3) 


@MIDA(Ni, N。5, 式 」, 式 。) 


機能 : NiS の 式 , の 位置 か ら , 式 。 の 長き だ け を 取り 出し , 


Ni に 代入 する . 
列 ) MIDA [0, 0, 3, 2] 
A$ (0)= ニ MID$ (AS (0), 3, 2) 


@MIDB(N,, 式 」, 式 g, N。) 


機能 : N の 式 , の 位置 か ら , 式 。 の 長き だけ を N。S に 置き 
換え る . 
例 ) : MIDB [0, 3, 4, 1] 
MID$ (A$ (0), 3, 4)A$ (1) 


@RHIGHT(Ni, N。, 式 ) 


機能 : NiS の 右 か ら 式 の 長き だ け を 取り 出し , Ni に 代入 
する . 
例 ) RIGHT [0, 1, 4] 
AW (0)= ニ RIGHT$ (A$ (1), 4 ) 


@STRHING(N,, 式 j, 式 。) 


機能 ・ 式 2 の キャ ラク タ を 式 i」 の 長 さ の 文字 列 に し て , Ni 
に 代入 する . 
例 ) STRING [ 0 , 10, $20] 
A$ (0 )= ニ STRINGS$ (10, 各 H20) 


@HEX(Ni, 式 〕 


機能 : 式 の 値 の 16 進 表現 を , 4 桁 の 文字 列 に 変換 し て N, 
に 代入 する . 
例 ) HEX [0, XX] 
A$ (0) 三 HEX$ ( 又 ) 
※ た だ し , BASIC で は 桁 数 が 一 定 で な く , 頭 の 余分 
な いび ヾ 0? は 切り 捨て られ る . 


@ ASC(Ni) 


機能 : Ni の 最初 の 1 文字 の コー ド を 返す . 
例 ) X=ASC [0] 
メーASC (A$( 0 )) 


@VAL(Ni) 
機能 : N, を 数 値 に 変換 する . スペ ー ス は スキ ッ プ され 


る . 文字 列 の 頭 に ^$′ が あれ ば , 16 進 と みな す . 


例 ) =VAL [0] 
メーYVAL (A$ (0)) 


@LEN(Ni) 


機能 : Ni の 長 さ を 与え る . 
例 ) メー テ LEN [0] 
えーLETN (A$(0)) 


@INSTR( 式 , NiB, N。) 


機能 : NiS 中 に N。S が 含ま れ て いる か どう か 検索 する . 
式 は 検索 開始 位置 を 示す . NzS が 含ま れ て いた と 
き は その 位置 が , 含ま れ て いな か っ た と き は 0 が 
返さ れる . 
例 ) X メ ニーINSTR [1, 0, い \ 
メーINSTR (1, A$(0) 〉) 


あ 便 用 法 $ 


&O 


各 サ プル ー チ ン を 使う た め に は , 最初 に アド レス ・ ポ イ 
ンタ 領域 。 文字 列 領 域 。 ワー ク 領 域 の 初期 設定 を する 必要 
が あり ます . STRINIT ル ー チ ン が これ を 行ない ます . この 
ルー チン 中 の 変数 は , それ ぞ れ 深 の も の を 示し ます . 





ADRPOINT※ アド レス ・ ポ イン タ 領 域 の 先頭 アド レス 
STRTOP※ 文字 列 領域 の 先頭 アド レス 
STREND 文字 列 領域 の 未 尾 ア ドレ ス 
STRNUM 文字 変数 の 個数 
1 STRWORK※ ワー ク 領 域 の 先頭 アド レス 





ユー ザー 側 で 設定 する の は ※ 印 の 3 つ で , 現在 は ROM バ 
ー ジ ョ ンズ で , スタ ッ ク 領 域 を 前 へ 移動 し た も の と し て 設 
定 が あり ます . 文字 列 領域 は アデ アド レス ・ ポ イン タ 領 域 の す 
ぐ 後 ろ に お き , .ADRPOINT と STRTOP と の 間隔 に よっ て 
文字 変数 の 個数 が 決ま り ま す . アド レス ・ ポ イン タタ は 4 バ 
イト で ワン セッ ト な の で , 現在 の 設定 で は 64 個 の 文字 変数 
が 使え ます . 

上記 に 5 つの 変数 を へ た に 変え る と , 装 注 す る 黄 れ が あ 
り ま す . また , 次 の 変数 は 各 サ プ ブルー チン で 使用 する の で 
注意 し て くだ さい . 

STRPOINT, ADR, FLG, LNGTH, A, A1, 日 , 1 
5< EN, 5 

文字 列 の 長 さ は 一 応 $FF バ イト で 押 き えて あり ます が , 
11170 行 お よび 22070 行 の $SFF を 適当 な 値 に 変え 0 る こと きよ 
っ て , も っ と 長く で きま す . この 場合 、 ワ ー ク 領域 は 文字 
列 の 長き の 上 限 十 1 の 広 さ が 必要 で す の で , STRWORIK 
の 値 を 適宜 変更 し て くだ さい . た だ し , INP ル ー チ ン に よる 
キー ボー ド か ら の 入力 は , バッ ファ 長 の 関係 上 $FF バ イト 
まで し か 受け 付け ませ ん . 

KK コン パイ ラ は , 引数 と し て 関数 を 持つ こと は で き な い 
よう で す (た と えば HEX [ 0, ASC [1]] など). 本 当 は 
で きる の か も 知れ な い が , や り 方 が まず いせ いか こと ご と 
く 禁 走 し まし た . そこ で , ADD, CHR, STR, LEET, 
MIDA, RIGHT,。 STRING。 HEX の 各 サ ブ プルー チン は , 
結果 を 文字 変数 に 代入 する 形式 を と り ま し た . この た だ た め , 
BASIC で は 1 行 で すむ 簡単 な 関数 が , 大 変 手間 の か か る こ 
と も あり ます . 

例 ) BASIC : 
A$ー *※※/ 十 MID$ (B$。 3 5 ニニ \ ネ 
キタ 
K: 
LET [ 0, ~ 素 *?] : MIDA [2, 1, 3, 
5] : ADD [0, 0, 2] : ADD [0, 0, 
N※※ 玉 /] 

0 番 の 文字 変数 が A$, 1 番 が B$ に あたり ます が , 余分 な 
2 番 を 使用 し た うえ , 4 段階 に 分 ける 必要 が あり ます . 

CMP, POI, ASC,。 VAL、LEN, INSTR の 各 サ ブル ー 
チン は 関数 で す が , それ 以外 の ルー チン も 一 応 代 入 先 の 文 
字 変 数 (PRT ル ー チ ン で は 出力 する 文字 変数 ) の アド レス 
を 返す よう に な っ て いま す . デバ ッ グ に 役立て て くだ さい . 

INP ル ー チ ン は モニ タ ROM を 呼び 出し て いま す . 現在 は 
FM-7 用 に な っ て いま す . 

な お , 入力 の 中 断 は , [BREAK|, [CTRL|+[X|| [CTRL| 二 
[Cl に て 可能 で , この と き は 空 文字 列 が 入力 され ます . し か 
し , 禁 走 する こと が ある の で 避け た 方 が いい で し ょ う . 

STR ル ー チ ン で , 式 の 値 が $8000 の と き , 返さ れる 文字 列 
は パー0?” と な り ま す が , これ は KK コ ン ッ パイ ラ の 性格 (数 値 
が 符号 付き 2 バイト ) か らく る も の で す . 修正 し よう か と 
も 思い まし た が , 氏 自 身 が $8000 を 一 0 と プリ ント する の 
の 合わ 2 生 る きど 人 居 も まし だ 。 

同じ 理由 で VAL ル ー チ ン で も , 符号 付き 2 バイ ト を オー 
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バー フロ ー す る と き , 変 な 値 が 返さ れる こと が あり ます . 

引数 の 値 は 一 部 を 除い て チェ ッ ク し て いま せん の で , 
ー ザ ー 側 で 管理 し て くだ さい . また , 引数 が 変数 番号 で あ 
る か アド レス で ある か を 見 分 ける の は , その 引数 が 変数 の 
個数 の 範囲 内 に ある か どう か を チェ ッ ク し て いる だ け な の 


ご た 








で , 注意 が 必要 で す . 
BASIC に あっ て , この サ プ ・ ル ー チ ン に な いも の が あり 
ます が , 次 の 理由 に より 省き まし た . 
0CT$ めった に 使わ な い 
TIME$ グラ フィ ッ ク ・ サ プル ー チ ン (!/083 年 4 月 
号 。 FM- 7 /8 活用 研究 ) に 掲載 され て い 
る 
SPACE$ STRING で 代用 可能 





あめ 最 後に 


BASIC で で きる こと は , 全部 で きる よう に し よう と 欲 張 
っ だ た だ た め , オン ・ メ モリ 版 で 典 RAM を 使う か , ファ イル 版 
で な けれ ば コン パイ ル で き な い サイ ズ に な っ て し まい まし 
た だ. 実際 の 使用 に あたっ て は , 必要 な 部 分 だ け を 入力 すれ 


ば よい の で す が , 別 の サブ ルー チン が 呼び 出し て いる 部 分 
も ある の で 気 を つけ で て くだ さい . STRINIT と LET は 最低 
限 必要 で す が , ほか に LEFT お よび RIGHT ル ー チ ン は 
MIDA ル ー チ ン を 呼び 出し ます . 
2 旧 で 作り 上 上 げ だ も の で す お ) グラ ジィ ルク "デル デ チ 

ン に 次 いで , 氏 の 強力 な 機能 を 拡張 で きた と 思い ます . 変数 
の 個数 を 極力 押さ え , で きる だ け 多 く を ユー ザー に 開放 し 
よう と し て , 無茶 苦 茶 な 使い 方 を し て いる せい で , わか り 
に くい か も し れ ま せん が , みな さん 研究 し て みて くだ さい 
参考 文献 

FM-8 活 用 研究 ”。 工学 社 

FM-7/8 活 用 研究 ?。 工学 社 


ババ イラ 文字 変 至 ユー ティ リティ ソー ス ・ リス ト EE 





の 》? GOSUB STRINIT 
1ooO ! 

11O ! 
120 ! ( 玉 USER?S PROGBRAM AREA ネ ) 
13Q ! 

140 ! 

39396 !END 

1OOOO ? (ボド 還 還 間 間 間隔 | | 還 間 昌 間 間 間 昌 間 時 ネ ) 


1QQO1O ! 


1oo2O ?LETj 
1oQ3O ! 

1oo4O ? STRPUINT=ADRFUDTNT+ メ 1 ネオ 

1QQ5O ?!  A=X2 

1ooEO ? ADR=STRFOINT(O) 

1oQ7O ! LNBTH=STRPOINT(1 ) 

1ooBO ? IF A>=QO_AND A<STRNUM THEN =ADRFDTNT+A ネ 
邊 』 A=BCO) 』 し =BC1) 』 GOTO LET1 j』 FI 

1oo9O ! し L=O 

1Q1oO ? 。 MHILE AiL)>O 

1O11O ? 上 =L+1 

1o12Q 7 MEND 

1o13O ? 上 = し +1 

1o14O 7LET1j 

1o15O ? STRFDINTC1)=L 

1Q169 リエ =2 

1o17O ? 。 MHTILE STRFDINT+T ネ 2 く <STRTDF 

1Q18O ! IF STRPUINT(T) く >Q THEN STRPOINT( 1 ) =STRP 
DINT(I)-LNBTH+L 』 FI 

1Q190 ! エニ エ + ラ 

1o2oo ? MEND 

1o21O ? STREND=STREND-LNBTH+ し 

1Q220 7 IF L>LNBTH THEN BOTU LET2 j』 FI 

1o23Q ! エ =O 

1o24O 7 MHILE IT<L 

1o25O ? ADR:i 1)=As 1) 

1o26O ! エニ = エ + ォ 1 

1o27 の ? MEND 

1o2BQ ? IF L=LNBTH THEN BOTU LET4 』 FI 

1o29O ! 1TF STRPUINT+>=STRTUP THEN GODTU LETH 』 
Fr 

1o3OO ? FOR 1=STRFODINT(2) TO STEEND 

1Q31 の ? TiO)=I:LNGTH-L ) 

1o32O ? 。 NEXT 

1o33QO ? GTO LET4 

1o34O ?LET2』 

1o35O ? IF STRPDINT+4>=STRTUF_THEN GUTOD LET3 』 
Fi 

1o36O ? FDR 1I=STREND TUD STRPUINT(2) STEP 1 
1037O ! TiO)=I』iLNGTH-L ) 

1o3BO ? NEXT 

1Q39o ?LET3j 

1o4oo ? TrT=o 

1o41O ! 。 MHILE I<L 

1o42O ? ADR:i 1)=Ai 1) 

1o43O ? エニ = エ +1 

1o44O ? MEND 











1o45O 7!LET4j 
1o46O ? Ac=ADR 
1Q47O ! RETURN 
1048O ? 


11OOO ? ( 玉 還 呈 還 陣 昌 間 間 了 症 是 間 DDTTTOUN 還 昌 間 間 昌 間 ) 
11o1O ? 


11o2o ?ADD 
11o3o 

11O4O ? ADR=%X1 

11Q5O ? 。 A=X2 

11OEO ! Al1=3 

11o7O ? IF A>=O AND A<STRNUM THEN B=ADRFDINT+A ネ 
4 j A=BCO) 』 FI 

11OBO ? IF Al1>=O AND A1<STRNUM THEN B=ADRFDINT+ 
A1*4 』 A1=BCO) 」 FI 

11o9O !  J=STRMDRK 

111oO ! Iao 

1111O ? 。 MHILE Air)>o 

1112O ?  B=Az1) 

1118O ? CFOKE J,B 

1114O ? エニ 1+1 

1115O ? MEND 

1116O ? TI=o 

1117O 7? MHILE Ai:I)>O AND J-STRMDRIK く $ ま FF 

111BO 7  B=A1:1) 

1119o ? CFOKE J,B 

1120O ? エ =T+1 

1121O ? MEND 

1122O ? 。 CPOKE J,O 

1123O ? LET [ADR, STRMDRK] 

1124O 7 RETURN 

1125O 


12OOO  ) (本 還 昌 還 昌 了 了 是 本 晶 ( じ (MIF'ARE 回 昌 昌 昌 間 昌 量 ホ ) 
12O1Q ! 





1202O 7 CMPj 

12Q36 ! 

12O04 〇 ?  A=ZX1 

1205O ら ! AA1= ニ 2 

12O6O 7 TIF A>=O_AND A<STRNUNM THEN B=ADRFU TINT+A ネ 
4 』 A=B(O) 』 FI 

12o67O ! ITF Al>=o_AND A1 く STRNUM THEN BE=ADRFDINT+ 
A1 ネ 中 』 A1=B(O) 』 Fi 

12OBO ! FLGB=O 

1209O 7 エニ Oo 

121QO !  MHILE AT)=A1si1T) AND Asi1)>O 

1211O ! エニ テオ 1 

1212O ? MEND 

12130 2  TF Ag エ )+A1i 1T)>O THEN FLB=SBNCA エ ) う ーA1iT) 
0、 FL 

1214 の 》?  B= ニ FLG 

1215O 》 RETURN 

1216O ! 

13OQOO ' ( ネ 王 還 還 還 了 間 昌 1 NF'U)T 陣 了 ホネ ) 

13o1O ! 

13O2O ? TNFj 

13Q3Qo !? 
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K コ ン バ イ ラ 文 字 変 数 ユー ティ リティ ソー ス ・ リ スト 








13o4O ? ADR=X1 191oO ! し = の 

13O5O ? CODE ま 34, ブフ F 4F, 生 1F , ま BBH, ま BD, 和 ま DB, まま の 7 まう | 1911O アー MHILE AiL) >O 

5, ま 7F 1912O 》 し = し +1 

13O6O ひ ? ム = 和 ま 43D 1913O ? MEND 

13o7O ! IF AiO) う =1 THEN Aio)=O j』 FI 1914 〇 ! し = し +1 

13QBO ! 1T=Oo 1915O ?MIDA1i 

13o9Q ? 。 MHILE Asi1)>O 1916oO ? IF エ >=Lー-1 THEN LET [ADR," "リコ 』 BOTO MIDA 
131QQ ! STRMORK: 1)=Ai 1) 2 3 FT 

1311 ひ の ? エニ = ニテ エ +1 1917O ?  S=STRMDRK 

1312O ! MEND 1918O 》) FOR N=I TO 1+J ゴ 

1313O ? STRMOURK: 1 )= の 1919O ?  B=AziN) 

1314@ ! 。 LET [ADR, STRMURK] 192oo ?  CPOKE 9S,B 

1315O ? RETURN 1921Q ? NEXT 

1316Q ! 1922O ! 。 CPOKE 8, の 

Eottyi 邊 を 人 = 因 に 3N 大 = っ っ 尋 る ) 1923O ? LET 上 ADR, STRMORK] 

14O1O 7! 19246 ?MIDASj 

14O2O ! FRTj 1925O ? RETURN 

14o3QO ! 1926O 

14 の 4 〇 ? AA=ZX1 2COQOO 7 ( 王 還 還 間 間 間 是 時 11 日 還 昌 昌 昌 昌 昌 間 是 間 *) 
14QSO !  B=ADRPOUINT+A ネ 4 2oo1O ? 

14O6O ? ADR=BCO) 2oo2O ? MIDBi 

14QC7O ! LNGTH=BC(1 ) 2oo3O ! 

14OBO ? FUR エ =Q TU LNGTH-2 2oo4O ? ADR=X1 

14Q9O リー ? CHR ま (ADRi 1)) 2oOoOSO ! エニ 2ー1 

141oOO ? NEXT 2oO6O ? 。 J ゴ =%9 

1411O 》  B=ADR 2oo7O ! AA=X 符 

1412O ? RETURN 2ooBO ?  B=ADRFDINT+ADR ネ 4 

1413O ? 2oQo9O ? ADR=B( 〇 〉 

15OOO ! (本 還 間 了 昌 間 了 隊 較 開 FTINTEF 還 昌 間 昌 昌 昌 昌 間 是 * ネ ) 2o1OO ! IF 1 く <O THEN GOTD MIDB1 』 FI 
15o1O ? 2Qo11O 》 1F A>=O AND A<STRNUM THEN B=ADRFUINT+A ネ 
15o2O_? FPDI 4 』 A=BCO) 』 FI 

15Q3o ? 2O12O ? N=o 

15O4O 7 A=X1 2o13O ? 。 MHILE ADRiN) >O_ AND Nr 

1SoSQ !  B=ADRPUINT+A キ 4 2o14 〇 !  N=N+1 

15O6 ひ ? ADR=BCO) 2o15O ? MEND 

15Q7OQ ? RETURN 2o16O ? IF ADRzN)=O THEN BOT MIDB1 』 FI 
15oBo ! d 2o17O 》 。 MHILE ( ADRiN)>O AND AiN-T)>O ) AND N-+ 
16OOO 7 ( 還 還 昌 間 間 間 間 症 間 じ H 還 還 還 昌 昌 昌 昌 昌 時 ホネ) < 

16o1O ! 2o18O ? ADR:iN)=As N-[) 

16o2O ! CHRj 2o19O 》  N=N+1 

16o3O ! 2o2 の OO ! MEND 

16O4O 〇 ? ADR=%1 2021O 7 MIDB1』 

16oSQO ! STRMORK(Q) =%2 ネ 256 2O22O0 》  B=ADR 

16O6Oo ! 。 LET [ADR,STRMORK] 2o2S3Q ! RETURN 

16o7O ? RETURN 2o24 の ! 

16oBO ? っ 1OOO ! (ボド 王 還 昌 間 間 昌 昌 間 唱 下 :](HT よ 還 還 還 量 昌 昌 昌 間 時 ) 
17OOO !? ( 還 還 還 間 昌 還 間 間 昌 間 間 〇 T ド $ 還 昌 間 昌 昌 間 昌 症 間 ネ ) 21O1 の 6 『! 

17o1O ! 21O2O 7 RIBHTj 

17o2O ? STRj 2103O ! 

17o3o ? 21 の 4O ? ADR=1 

17O4O ? ADR=%1 6 2105O リー AA= ニ 2 

17oSO ?  B=%2 21oO6 ひ の リー 1 エ =Z8 

17oO6oO ? =ABSC(B) 21 の 07O ? IF A>=oO_AND A<STRNU 軸 THEN B=ADRFUINT+A キ ネ 
17o7O ? Js=STRMORK 邊 』 AA= ニ BCO) 』 し =BC1) 一 1 』 GUTO RIGHT1 』 FI 
17OBO ? IF B<O THEN B=?ー? ELSE B=7 ! 』 F エ 21oBO ? し = の 

17o9o ?  CPOKE J,B 21o9oO 7! MHILE AiL)>O 

171OO ? エ =1OOOQO 211OO ? 上 し = し +1 

1711O ? FLG=o 2111O ! MEND 

1712O 》  MHILE IT>O 2112O0 7?RIBHT1j 

1713O ? N=S/1 2113O ? BB=Lー1+1 

1714O ? IF N>O _UR FLB=1 THEN FLB=1 j』 5=5S-N ネ 1 ぅ 2114O ? IF B<=Oo THEN B=1 j』 FI 

N=N+$3O j』 CPOKE JJ,N 』 FI 2115O 》) MIDA [ADR, A,B, エコ 

1715O ? エエ =[/1O 2116O ? RETURN 

1716o 》 MEND 2117o ! 

1717 の ? IF FLB=O THEN CFPOKE ゴゴ , ま 3 の 9 』 FI っ 2OOO 7 ( ホ 還 還 昌 間 間 間 間 是 症 還 TIN 回 還 還 還 還 昌 昌 昌 是 量 ホ ) 
1718Q ! 。 CPOKE J ゴ ,O 22Q61O ! 

1719O ? LET ADR, STRMDRK] 2 っ 2o2O 7? STRTINGj 

172oO ! RETURN 22o3O ! 

1721 の 9? 2 スク oO4O ? ADR=X1 

18OOO ! (本 還 還 間 間 昌 間 昌 間 了 隊 題 | 上 EF | 邊 還 昌 昌 昌 昌 昌 間 半 ネ ) 2205O ! 上 し ニ メル 

18o1O ! 22o6O ?  B=%3 

18o2O0 7LEFTj 22O7 の ? IF し > ま FF THEN し = 中 FF ELSE IF L く の THEN し = 
18o3O ! の j』 FT 5 FI 

18o4 の ? MIDA [1, 2 1, ん 3] <2OB ウ ? 。 FOUR 1=O TO Lー1 

18oSo ? RETURN 22o9O ? STRMORK: 1 ) =B 

18o6o ? 2216O6 7 NEXT 

19OOO ? ( 還 還 昌 昌 陣 昌 昌 陣 間 1TD へ 還 還 還 還 昌 昌 昌 陣 間 | キ ) 2211O ? STRMORK:L)= の 

19Q1O ? 2212O ? LET [ADR, STRMORK] 

19o2O ? MIDAs 2213O 》 RETURN 

19Qo3oO ? 2214O ! 

19o4O 〇 ? ADR=%X1 23OOO ? ( ホ 還 還 還 還 昌 昌 還 還 曽 上 バ 還 還 間 是 還 還 還 還 昌 ネ ) 
19Q5O !  A=Z2 23o1O ! 

19O6O ? エニ メー1 23o2O ? HEXj 

19O7O 〇 ? ゴゴ =%X 叶 1 23o3O ?! 

19oOBO ? IF 1< く の THEN BOTD MIDA2 』 FI 23O4O ? ADR=Z1 

19o9O ? IF A>=O AND A<STRNUM THEN B=ADRPUINT+A ネ | | 23CSO ?  B=X2 

4 』 A=B(O) 』 し =BC1) 』 BODTOU MIDA1 』 FI 23O6O ? =STRMORK 
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23Q7 の 9 ? =HIGHC(B) 
23OBO ! BUSUB HEX1 
23o9 〇 ? =LOMK(B) 
231 の の ! BUSUB HEX1 


23116 》!  CPOKRE の 
23129 ? 。 LET ADER, STRMURK ド ] ユ 
23139 ) RETUREN 


2314 の ! 
23150 ?HEX1j 
29169 ? エニ 1 の 
2317Q ? 。 MHILE Ix>o 
2918BO ? 。 N=S/1 
23190 ?! =S-N ポ 1 
っ 232oO ? IF N<1O THEN N=N+$*$3O ELSE N=N+$37 』 FI 
23210 ? 。 CPOKE J,N 
23220 ! 。 エ =I/16 
2323O ! MEND 
っ 33240 ? RETURN 
23250 
4OOO 7 還 了 還 へ ご 回 * ) 
24Q1O リ 
っ 4020 7 ABCi 
24Q3O ! 
24O49 リー A=X1 
24O5O ? IF A>=O_ AND A<STRNUM THEN BE=ADEFUTNT+A キ 
jaA=BCO) 』 FI 
24O6O ! 。 N=AiO) 
24G7O ? RETURN 
24oBO リ ・ 
っ 5OOC ' ( 還 較 いい へ | = * ) 
25o1O リ 
25o20 7 VALi 
25o3o ! 
25o4 の 0 7? A=%1 
25o5o ? IF A>=O_AND A<STRNUM THEN B=ADRFDINT+A* | 
キ 』 A=B(O) 』 FI | 
25o6O ? FLB= ひ 
2507 の 9 7 。 N=1 
25oBOo ? 8B=o 
25o9O ? ユエ =ー1 
251QO ? REPEAT 
2511O ? =I+1 
2512o ! UNTIL Ai1TD く > テッ 
2513 の 0 ! 1TF Ai1)=? ま 7 THEN エ = エ +1 』 GBDTU VAL2 』 FI 
2514 の ? 。 TF AiT)=?ー? THEN N=-1 』 エニ エ +1 』 FI 
2515 の 9 ? 。MHILE FLG=O 
25169 ? 。 J=AiTi) 
2517 の ? IF J=O THEN FLB=1 』 BODTD VAL1 』 FI 
251 ヨ Oo ? 。 IF J ゴ = リラ THEN GOTO VAL1 j FI 
25190 ? IF J<7O7 DR J>!97 THEN FLB=1 』 BOTO VAL 
1 , FI 
252OO ? =5 ネ 1 の +Jー ま 3O 
| 25219 ! VAL1 
25220 ? エニ エ +1 
2523QO ? MEND 
2524 の 7 8=S キ *N 
2525O ? RETURN 
2526o ? 
2527 の 7? VAL2j 
252BO ? 。 MHILE FLB=O 
2529o ! 。 J=As 1) 
253oo 7? IF J=o THEN FLB=1 』 BDTU VAL4 』 FI 
25319 ? IF = テラ THEN BOTO VAL4 』 FI 
2532O ? IF J>=?O7 AND <=?7 THEN = ゴー ま 3O 』 BOT 
0 VAL3 』 FI 


25330 7 IF ゴ >=?A7 AND <=?F? THEN 了 ゴ = ニ ゴー 和 ま 37 』 BOT 
0 VAL3 j』 FI 


2534O ? FLB=1 』 BOTO VAL4 
2535o ?VAL3j 
2536O ? =5※16+ ゴ 


2537O ?VAL45 
2538O ? エニ = エ +1 








25396 》 MEND 
254OO ? 5=S※N 
る 2541 ひ 9 ? RETURN 
25420 ? 





26OOO 
26 の 61 
26O2O 
26o3O 
26O4 ひ の 
26O5 の 


! 


(を 人 =oS= や 半身 コ 半 5 555"."|"| こ COEE あ ) 


?LENj 


ロ 


人 ム = ん 1 
IF A>=Oo_AND A く STENUNM THEN =ADRFUTNT+A ネ 


4 』 し =B(1)-1 』 BOTO LEN1 』 FI 


| 26oO6 ひ 


26O7 
26OBO 
26Q9Q 
261OO 
2611O 
26 12O 
2613O 
る フウ の OO 
27Q1 め 
7 の 2 の 
2703 ひ 
る 7 の 4 の 
27Q5 ひ 
27O6 の 
27 の 7 ひ 
2708 の 


す 
! 
す 


L=O 

MHILE AL) > の 
L= レ +1 

MEND 


3LEN1 5 


し / 
す 
す 
5 
す 


B=L 
RETURN 


( 還 還 還 昌 昌 間 間 較 画 1 NGTF 還 還 昌 間 車間 昌 昌 時 ネ ) 
INSTRj 


= ん 1 一 1 

人 ム ニ メ 2 

A ム 1= ニ 3 

IF SB< ひ の THEN S=Q 』 BUTU INSTR1 』 FI 

IF A>=O_AND A<STRNUM THEN B=ADRPUINT+A ネ 


4 』 A=BC(O) 』 FI 


2709 の 
A1 ま 4 』 
2710O ひ 
271 1 の 
2712O 
2713 の 
2714 ひ 
2715 ら 9 
る 2716 の 
2717 の 
2718 
719 の 
272OO 
マス 721O 
2722 の 
2723 ひ 
2724 〇 
2725 ひ 
2726O 
2727 の 
27SB の 
729 の 
2730O 
2731 の 
2732 
る 7339 ひ 
2734 
<7359 ひ 
<786 避 
SBOO ひ 
固 ま ) 

2891 
2802O 
2BOG 
<B ひ 4 
2805 
2BO6O 
2807① 
2BOBO ひ 
2 ヨ 09 
28B10O 
2811 の 
2812 の 
2813 の 
2814 
2815 の 
2B16 の 


す 


IF A1>=Oo_AND A1<STRNUM THEN B=ADRFIUINT+ 


A1=BCQ) 』 FI 


=ー1 

FLG=O 

MHILE FLB= の 

IF 1I=S THEN FLG=1 j』 FI 

IF AI)= の 9 THEN FLB=2 』 FI 

エ = エ +1 

MEND 

IF FLB=2 THEN S=O j』 BOTU INSTR1 』 FI 

FLG=O 

MHILE FLB=O_ AND AiS) > の 

BUSUB INSTR2 

=5S+ 1 

MEND 

IF FLB=o THEN =O 』 FI 
INSTR1j 

B=S 

RETURN 


INSTR2j 
= 
FLG=1 
MHILE A1i1T)>O_AND FLGB=1 
IF Ai TI+SD) く >A1kT) THEN FLG=O 』 FI 
エニ エ +1 
MEND 
FREETURN 


( ド 還 還 昌 間 陣 還 間 昌 昌 較 TING TNITTAL_] ZE 還 還 昌 昌 昌 間 間 


7STEIINITj 


ADRPUINT= ま 7QOO 
STRTUP= も 71 の O 

STRMDURK= も 7F GO 
STRNUM=(STRTUP-ADRPOUTINT) /4 
STREND=STRTUF+STRNUN-1 

FOR 1=O TO STRENUM* ま 2 _ STEP 2 
ADRPUINTC エ )=STRTUF+ エ /2 
ADRFOUINTC( エ +1 ) =1 

NEXT 

FOUR 1=STRTOF TO STREND 
TiO)= ニ ひ 

NEXT 

RETURN 
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ンク ググ 22 



























































DISK BASIC では, ROM BASIC 用 ソフ ト が 実行 で き な い 
な どの 不満 を お 持ち の FM-7 ユー ザー の た め に , ROM 
BASIC な み の フ リー エリ ア を 誇る URADOS を 紹介 し ます . 


文 URADOS の 特徴 太 


⑯ROM _ BASIC なみ の フ リー エリ ア (マシ ン 語 は $7FFF ま 

で OK). 

@ マ シン 語 プ ログ ラム な どの 開発 に 威力 を 発揮 する スー パパ 

ー モ ニタ を 利用 で きま す . し か も RAM 上 に LOAD さ れ 

る た め , ユー ザー エリ ア を 浸食 し ませ ん . 

@ プ ログ ラム の セー プ 時 間 の 短縮 . 

@RS-232C か ら ASCII 型 式 の プロ グラ ム が ロー ド で きま す 
(LOAD?COM0:?). 


護 DISK BASIC と の 互換 性 文 


URADOS 上 で DISK BASIC の ディ スケ ッ ト が 読み 書き 
で き , その 逆 も また 可能 で す . つま り , いま 使っ て いる ディ ス 
ケッ ト は その まま 利用 で きま す . また , ラン ダム ・ フ ァ イ 
ル 関 係 の 命令 は 利用 で きま せん が , シー ケン シャ ル ・ フ ァ 
イル な ら ば , 無 条件 に 15 個 まで OPEN で きま す . 


文 スー パー モニ タ に つい て 文 


URADOS に は マシ ン 語 の 入力 な ど に 便利 な スー パー モ 
ニタ が 付属 し て いま す . コマ ンド は , 芋 (ヘル プ ) で すべ て 
表示 され ます が , その 概 を 以下 に 示し ます . 

B: プレ ー ク ・ ポ イン ト の 設定 (最大 10 個 ) 

G コ マン ド 時 の み 有 効 で , 指定 アド レス を SWTI に 置き 換 

えて 実行 し ます . で すか ら , ユー ザー は SWI を 利用 で き 

ませ ん . 

C: サ ブ プルー チン ・ コ ー ル 

D: メ モリ ・ ダ ンプ 
80 桁 モー ド 時 は , ASCII ダ ンプ も 出力 し ます . 

E: メ モリ ・ チ ェ ン ジ 
80 桁 モー ド 時 の み 利 用 で き , 強制 的 に 単色 モー ド に な り 
ます . この コマ ンド は , 多く の サブ プ - コ マン ド を 持っ て お 


- 月 OM 45/C で し み 





かなり レ ログ ラム を た 放 ク に 放 






を 
し 
し 


"< 2 
DOS の Tom 


り , 是 を 押す こと に より , 利用 法 が 表示 され ます . 主 を 特 
微 は 縦横 チェ ッ ク サ ム , 16 進 テン ・ キ ー, スク リー ン ・* 
エイ ト な ど 人 で ず 。 

F: メ モリ 初期 化 

指定 範囲 を 定数 (文字 定数 可 ) で 初期 化し ます . 

G : 実行 

アド レス 指定 を 省略 し た 場合 は , 仮想 レジ スタ (PC) の 
内 容 で 指定 され る アド レス に ジャ ンプ し ます . 

H: ヘル プ 

80 桁 モー ド 時 に は , コマ ンド の 機能 も 表示 し ます 

L: ディ ス ア セン プル 

M : ブロ ッ ク 転 送 

P: プリンタ ・ ト グル 

D, L, メ コ マ ンド 時 に , プリ ンタ に 出力 する か どう か を 
指定 し ます . 

Q : BASIC 復 帰 

CTRL | 十 [C|, | CTRL | 十 [X| [BREAK | キー で も 同様 な 動 
作 を し ます . 

R: リ ー ド ・ デ ィ ス ク 
クラ スタ No に よる 指定 も 可 . 

S: サ ー チ ・ コ ンス タン ト 
































指定 範囲 か ら 最 大 16 要 素 まで の 定数 列 を さがし だ し ます . 


W: ライ ト ・ デ ィ ス ク 
X: レジ スタ (仮想 レジ スタ ) の 表示 ・ 変 更 

D, エコ マン ド で 表示 され た 16 進 ダン プ の 部 分 は , 一 度 に 
複数 行 に 渡っ て スク リー ン ・ エ ディ ッ ト で きま す . 

$8000 以 降 は , ROM お よび シス テム 領域 で すか ら , 書き 
込み は で きま せん . 

スー パー モニ タ は 別 フ ァイル に な る の で , URADOS を 
BOOT 後 , 以下 の ステ ー ト メン ト を 実行 する こと に より 利 
用 で きま す . 





CLEAR, & を H5000:LOADM7MONITOR/,,R | 


友 プ ログ ラム の 解説 文 
@ リ スト 1 

URADOS の IPL, ブート ローダー, 本 体 お よ び SYSGEN 
プロ グラ ム で す . フォ ー マ ッ ト 済 の ディ スケ ッ ト を ドラ イ 
プ 0 に 入れ て , EXEC& 旧 3000 を 実行 する と , ディ スケ ッ ト 





に シス テム を 書き 込み ます . この と き , エラ ー が 起き る と , 
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1O 


図 1 メモ リ ・ マ ッ プ 


2 FILES の 表示 





000 BASIC WORK 


(RS-232C バッ ファ ) 
URAD05 ス テー ば ント テー ブル 
712 な イル | 








[$33] 


フリ ー エ リア 




















0000 FAT バッ ファ 
$8800 
DIR バ ッ フ ァ 
$9000 
ファ イル ・ バ ッ フ ァ 
$A200 フリ ー エ リア 
URADOS スタ ッ ク ・ エ リア 


に た で 1【e 央 (9 (| 


1 が pe に 】 


FIRQ, HANDLER 


ド に) りり コ コ に (II:】 

















$F17D 
IOS (ROM コ ピー 
1 URADOSwNDOow | BS 2 
$FC80 
en 5 SYSTEV 共 RAM 
/O エリ ア 
$FE00 | pLpsk HANpLER 
$FFE0 

















し て 実行 を 中 断 し ます . 終わ っ た ら , DIS- 
KINIO を 実行 し て お きま し ょ う . 
@ リ スト 2 

スー パー モニ タ 本 体 と 。 ロー ダー の プロ グラ ム で す . 打 
ち 込 み 終 わっ た ら , リス ト 1 で 作成 し た URADOS の ディ 
スケ ッ ト に SAVEM7MONITOR/, を H5000, 科 H6BFE, を 
H5000 で , セー プ ブ し て お きま す . 
@ リ スト 3 


スキ ュー 付き ディ スク ・ フ ォ ー マ ッ ト ・ プ ログ ラム で す . 


この プロ グラ ム で フォ ー マ ッ ト し た ディ スケ ッ ト を 使用 す 
る と , LOAD, SAVE の 時 間 が 2.5 倍 程度 向上 し ます . た だ 
し , DISK BASIC の VOLCOPY? を 利用 し た 場合 , 遂に 
3.7 倍 程度 時 間 が か か り ま す . この フォ ー マ ッ ト ・ プ ブロ グラ 
ム は, DISK BASIC の ディ スケ ッ ト に 利用 し て も 効果 が あ 
り ま す . 
@ リ スト 4 

スタ ー ト ・ ア デップ ・ プ ログ ラム の 例 と , フリ ー エ リア 拡 
張 プ ログ ラム で す . URADOS は , プー ト 時 に ディ レク トリ 
を 調べ , Startup′” と いう ファ イル が 存在 する と , その プ 
ログ ラム を 自動 的 に 実行 し ます . 2 つ 目 の プロ グラ ム は , 
URADOS で ROM BASIC と と まっ た く < く 同 ヒ じ フ リー エリ ア を 
利用 で きる よう に する プロ グラ ム で す . た だ し , この プロ 
グラ ム を 利用 する と , 次 の よう な 制限 が つく の で , 大 き な 
ゲー ム ・ プ ログ ラム を 実行 する 場合 以外 は , 利用 し な い 方 
が よい で し ょ う . 
⑯ 次 の ステ ー ト メン ト が 利用 で き な く な る . 
DSKINI, NAME, DSKE 
@ 通 常 の URADOS で は , DISK BASIC 用 の プロ グラ ム を 
修正 で きる よう に , CVI, MKI$ な どの ステ ー ト メン ト ・ テ 
ー プ ブル を 持っ て いま す が , フリ ー エ リア を 拡張 する と この 
テー ブル が な く な り , DISK BASIC 用 の プロ グラ ム を 修正 
し て URADOS で 利用 する と いっ た こと が 困難 に な り ま す 

(た と えば , リス ト を 取っ て も CVI, DSKI$ な ど が 表示 さ 
れ な い ). 

この プロ グラ ム は 市 販 の URADOS に も 利用 で きま す . 
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* フ ァイル 名 /:" タ イプ モー ド ユー ズ ド ・ ク ラス タ 









ASClIIl セ ー プ ・ テ キス ト 


中 間 コ ー ド ・ セ ー プ ・ テ キス ト BIN 
ラン ダム ・ フ ァイル RDM 
シー ケン シャ ル ・ フ ァイル SEQ 


マシ ン 皇 ・ フ ァイル 
上 記 以 外 の ファ イル ・ タ イプ は , DISK BASIC と 同じ 表示 に な り ま す . 





表 1 使用 ROM エ ント リ ・ ア ドレ ス 





$00DE BIOS Cal1 
$8597 block transfer 
*$863E hot start uith F-BASIC title 
*$8DD1 erFrOr en モ p ッ 
*$8E35 ROM BASIC error trap 
*$BE69 hot =tart after error 
NEU 


*$8F39 
*$8F91 clear all variable 
$8FE1 Break entry ( hot tar ぃ ith stack recovery ) 
$9288 parenthesis check 
| *974C return 1 byte result 
| *974D re モ turn 2 byte resul モ 
*$99BC ge 1 byte parameter ぃ ith formula processing 
$99BF get 1 byte parameter from FAC 
$9B47 CR LF 
| *$C28C translate 上 ex モ into intermediate code 
| *$C65D ON ERROR trap 
*$C67A interpre モ 
*$CC37 ョ e file descripter 
*$C8BC put console parameter into sub system 


$CE4B close file 〈( buffer 則 ($BF) ) 
$CE81 close all file 

$CEFC open file 

$CF9C LOAD routine body 

$DOES ョ e POS resu] モ 

$D678 check abort 

*$D680 abort entry 

*$D93D field init and erase end of line 
$DAEF cursor of 邊 

*$DAF6 cursor on 

*$EC05S P.S.G. sound stop 

$FBFE BASIC co1d start vector 
$FE02 re=tore digak 

*$FE05 ぃ rite disk 

$FE08 read disk 











また だ た, スー パー モニ タ は , 自動 的 に ロー ド さ れる の で , ス 
ター ト ア ッ プ ・ フ ァイル は 不要 で す . 


文 URAD0S の 内 部 構造 文 


表 1 に URADOS の 利用 し て いる ROM エ ント リ ・ ア ドレ 
ス , 図 1 に メモ リ ・ マ ッ プ を 示し ます . 
⑯RS-232C と バッ ファ に つい て 

RS-232C カ ー ド が 実装 され て いる 場合 は , 自動 的 に 領域 
を 確保 する の で , ゲー ム を 走ら せる 場合 な ど , フリ ー エ リ 
ア が 不足 する 場合 は , カー ド を 抜い て プー ト し まし ょ う . 
@URADOS ス テー トメ ント ・ テ ー ブ ル (リス ト 4 解 説 参 照 ) 
@⑥URADOS WINDOW に つい て 

ROM と 裏 RAM の 連絡 や ,. プレ イク ・ ポ イン ト の 実行 な 
どの ルー チン が あり , URADOS の ルー チン を 利用 する 場 
合 は 主 に ここ を 通し て CALL さ れ ま す . また だ た, この 領域 は , 
IPL ROM の スタ ッ ク 領 域 に な っ て いる の で , スト ッ プ *・ 
リモ セッ ト な ど を 実行 する と 破壊 され ます . 

@ の BIOS (ROM コ ピー) に つい て 

衣 RAM 上 で も BIOS が 利用 で きる よう に ROM の BIOS 

が コピ ー し て あり ます . 


文 URAD0S を 利用 す $ に あたっ て 文 


スト ッ プ ・ リ セット に よる 中 断 は 極力 避け て くだ さい (前 


項 の @ 参 照 ). も し , 中 断 し た 場合 は すぐ に EXEC&HFC00 
を 実行 する と 復活 する 場合 が あり ます . 衣 RAM や $FC00 一 
$FC7F は ユー ザー は 利用 で きま せん . 

プロ グラ ム ・ フ ァイル の セー プ 時 に は , 最後 に 1 回 FAT 
を 書き か える の みな の で , セーブ を 途中 で 中 断 し た 場合 , 
結果 は まっ た く 残 り ま せん . 

FILES の 出力 結果 を 使っ て ロー ド , セーブ が で きま す . 
図 2 に 表示 の 見 方 を 示し ます . 

エラ ー コ ー ド 74 (DISK BASIC Feature) が 新設 され , 
ラン ダム ・ フ ァイル 関係 の 命令 を 利用 し よう と する と この 
(ESE 提 ae) ス ト 1 


SYSGEN プ ログ ラム 


&O 


エラ ー が 発生 し ます . 


広 お わり に 文 


強力 な モニ タ を 搭載 し た URADOS は , きっ と お 役 に た 
つも の と 思い ます . また , 機会 が あれ ば , URADOS 用 の フ 
ァイル 転送 ーー ティ リティ な ど を 発表 し た いと 思い ます . 





Add 。 +0 +1 +2 +3 +4 +5+6+ ア +8 419 +A +B +C +D +E +F Sum 
3000 1A 50 86FD 1F 8B 8E 30 6E C6 01 8D 12 8E 30 76 :5D 
3010 C6 03 8D 0B 8E 30 7E C6 10 8D 04 4F 1F 8B 39 34 :6A 
3020 04 8D 1B CC 01 00 E3 02 ED 02 6C 05 A6 05 81 11 :FB 
3030 25 06 86 01 AZ7 05 6C 06 35 04 5A 26 E2 39 C6 05 :eF 
3040 34 04 34 10 8E 30 66 BD FE 02 35 10 81 0A 27 OF :e3 
3050 BD FE 05 35 04 4D 27 0D 81 0A 27 03 5A 26 E1 4F :DF 
3060 1F 8B 7E D6 80 39 08 ES ES5 ES ES ES E5 00 09 00 :26 
3070 38 00 00 01 00 00 09 00 3C FO 00 03 00 00 09 00 :7A 
3080 40 00 00 01 01 00 ES ES ES E5 ES E5 ES ES ES ES :34 
3090 ES E5 E5 ES ES E5 E5 ES E5 E5 E5 ES E5 E5 E5 ES :50 
30A0 ES ES ES ES ES ES ES ES ES E5 E5 ES5 ES ES ES ES :50 
30B0 ES ES ES ES E5 E5 E5 E5 ES E5 E5 E5 ES ES E5 ES :S50 
30CO ES ES ES ES ES E5 ES ES ES E5 ES E5 ES ES ES ES :S50 
30D0 ES ES ES E5 E5 E5 E5 ES E5 E5 E5 E5 E5 ES ES ES :50 
30E0 ES ES ES ES E5 E5 E5 E5 ES E5 E5 ES E5 ES ES ES :50 
30F0 E5 ES ES ES E5 E5 E5 E5 E5 E5 E5 E5 E5 ES ES ES :50 


注 ) 3100 一 37FF ま で は 00 と し て くだ さい . 


Add 。 +0 +1 +2 +3 +4 +5+6 + ア 7 +8 +9 +A +B +C +D +E +F Sum 
3800 20 2B 54 68 62 73 20 69 73 20 49 50 4C 20 70 72 :E6 
3810 6F 6?7 72 61 6D 20 cF 66 20 55 52 41 44 4F 53 20 :19 
3820 49 2F 4F 20 56 65 72 73 <② 6F 6E 2E 00 1A 50 10 :75 
3830 CE 01 00 86 FD 1F 8B 8E 01 A7 C6 03 8D 19 B6 4C :A3 
3840 FO 81 53 26 52 8E 01 AF C6 10 8D OB 4F 1F 8B 8E :eF 
3850 4D 00 43 6eE 9F FB FE 34 04 8D 1B EC 02 C3 01 00 :28 
3860 ED 02 6C 05 A6 05 81 11 25 06 86 01 A7 05 6C 06 zeD 
3870 35 04 SA 26 E2 39 C6 05 34 04 BD FE 08 35 04 4D :20 
3880 27 1C 81 0A 27 11 34 14 8E 01 9F BD FE 02 35 14 :82 
3890 81 0A 27 03 SA 26 E1 4F 1F 8B 6E 9F FB FE 39 08 56 
38A0 39 08 ES ES ES ES 00 0A 00 4CFO 00 03 00 00 0A :28 
38B0 00 50 00 00 01 01 00 01 00 ES E5 ES ES ES ES ES 96 
38C0 E5 E5 E5 E5 ES5 E5 E5 E5 E5 ES ES E5 ES5E5E5E5S 50 
38D0 ES ES ES E5 E5 ES E5 ES5 ES E5 ES ES E5 ES ES E5 :S0 
38E0 ES E5 ES E5 E5 ES E5 E5 ES E5 ES ES E5 ES ES E5 :50 


注 ) 3900 二 3CEF ま で は 00 と し て くだ さい . 


Add  +0 +1 +2 +3 +4 +5+6 + ア +8 +9 +A +B +C +D +E +F Sum 
3CF0 53 00 00 00 ES E5 E5 ES ES E5 E5 ES ES ES ES ES :0F 
3D00 34 40 CE 80 00 10 8E 7C 00 7F FD OF 6F CO 31 3F 06 
3D10 26FA SE 50 00 CE B8 00 10 8E 10 00 A6 84 6F 80 :4B 
3D20 A7 CO 31 3F 26 F6 86 39 B7 DO 00 7DFD OF BE FB :7B 
3D30 FA A6 84 7F FD OF A7 80 7D FD OF 8C FC 00 26 F1 :FE 
3D40 86 19 B7 03 0D 4A B7 03 OF 86 50 97 C3 BD C8 BC :EA 
3DS0 8E 4E 8A BD 2B DB BD DB 49 35 40 31 C4 8E 4E 2E :EE 
3D60 C6 5D BD 85 27 33 41 DF 33 10 BF 01 FA 31 A8 1C :41 
3D70 10 BF.01 FF 31 A8 21 10 BF 01 FC 31 A8 10 10 BF :4D 
3D80 02 01 86 7E 7F FD OF FE B8 09 7DFD OF BE 02 2D :97 
3D920 C6 0OC A7 80 EF 81 33 42 5A 26 F7 B7 02 6F FF 02 7E 
3DA0 70 33 42 B7 02 69FF 02 6A 33 42 C6 80 F7 01 EB :10 
3DBO0 8E 7F FF BBF 05 2D ?F 45 30 892 FE D4 9F 3F 1F 14 ED 
3DCO 8E 4E CD BD 86 CF BD 8F 392 8E 87 58 9F D9 03 47 :eF 
3DDO 03 48 86 01 B7 05 ES5 BD 9B 50 7F FD OF BD B8 00 :1B 














Add  +0 +1 +2 +3 +4 +5+6+ ア 7+8+49+A +B +C +D +E +F Sum 
3EF0 05 53 41 5S6 45 22 06 4C 4C 49 53 54 0D 09 52 55 :A1 
3F00 4E 20 20 22 31 3A 0D 05 4C 4F 41 44 0D 09 4C 4F :FE 
3F10 41 44 20 22 31 3A OD 00 50 72 6F 67 72 61 6D 65 7C 
3F20 64 20 62 79 20 54 6F 6D 2E 57 e1 74 61 6eE 61 62 :9B 
3F30 65 00 42 6F 6F 74 20 6C eF 61 64 65 72 20 65 6eE 83 
3F40 64 2E 00 ES E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ES E5 33 
3FS50 ES E5 ES ES ES ES E5 E5 ES E5 E5 ES ES ES ES E5 :S0 
3F60 E5 ES ES E5 ES E5 E5 E5 E5 ES ES E5 ES ES E5 ES 50 
3F70 ES ES ES ES E5 E5 ES ES ES ES E5 E5 E5 ES ES ES :50 
3F80 E5 ES ES E5 E5 E5 E5 E5 ES E5 E5 E5 E5 ES ES E5 50 
3F20 E5 ES ES ES E5 ES E5 E5 ES ES ES ES E5 ES ES E5 :50 
3FA0 E5 E5 ES E5 E5 E5 E5 ES ES E5 ES ES E5 E5 ES E5 :S0 
3FBO ES ES ES ES ES E5 E5 ES ES ES ES ES E5 E5 ES ES :S0 
3FCO ES E5 ES ES ES ES E5 E5 ES E5 ES E5 ES E5 E5 ES i50 
3FDO ES ES ES ES ES ES E5 ES ES ES5 E5 E5 ES ES ES ES :50 
3FE0 ES ES E5 E5 ES E5 E5 ES E5 E5 E5 E5 E5 ES5 ES ES :50 
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リス ト 1 SYSGEN プ ログ ラム ダン プ ・ リ スト 
Add 。 +0 +1 +2 +3 +4 +5 +6 + ア +8 +19 +A +B +C +D +E +F Sum Add 。 +0 +1 +2 +3+4 +5+6+ ア +8+19 +A +B +C +D +E +F Sum 
4300 C6 05 10 8E 8D D1 7E BA 38 BB 11 BA FB BB 1B BB :42 4800 35 04 6F 85 BD BA 97 6F 84 39 FF B8 OE C4 OF BD BC 
4310 1E 8E BB 40 86 08 A7 84 7E FE 02 86 0A 8C 86 09 :892 4810 BA 9D 81 OD 26 02 6F 06 81 20 25 02 6C 06 34 02 iF2 
4320 8E BB 40 A7 84 B6 BB 48 6eF 06 81 10 25 04 6C 06 :OE 4820 EC 0OD C3 00 01 ED 0OD 10 83 01 00 27 OF 30 8B 35 i71 
4330 80 10 4C Aa7 05 86 0A A1 84 10 27 42 CB 7E FE 05 :02 4830 02 A7 OE 10 FE B8 OE 35 76 7E FC 1A 35 02 A7 89 531 
4340 E5 E5 E5 E5 00 01 00 00 00 ES BD B9 FB 26 01 39 :4B 4840 01 OE E6 01 F7 BB 47 8D 12 33 OF FF BB 42 C6 03 :95 
4350 C6 02 7E BB 02 10 8E 9%9 BC BD FC 20 8D EC F1 B8 :F1 4850 F7 BB 49 BD BA C2 BD BE C6 20 D8 E6 03 54 54 CB iC 
4360 0B 2F 05 C6 3C 7E BB 02 F7 BB 47 BD BA 692 C6 OF :2A 4860 02 F7 BB 44 E6 03 C4 03 58 58 58 EB 04 F7 BB 48 :9292 
4370 BD BA 9D 27 21 A6 01 B1 BB 47 26 1A 6F 84 34 04 :21 4870 39 FF B8 OE C4 OF BD BA 9D E6 OB 27 12 A6 0OC 6F :30 
4380 CE 02 B4 C6 12 A6 CO 2A 08 84 OF A1 E4 26 02 6F :A3 4880 0B 7D B8 2C 26 EA 10 FE B8 OE 35 74 7E FC 1A EC :79 
4390 5F 5A 26 F1 35 04 5A 2A D7BDBAB1 6eF 84 8E 90 :2D 4890 0D 26 04 03 CO 20 EA 83 00 01 ED 0D 27 09 E6 05 :9D 
43A0 OE 6F 01 33 02 30 01 BF BB 42 C6 01 F7 BB 44 8D :EA 48A0 6C 05 3A A6 OF 20 DA E6 05 4F C3 00 OF A6 8B 34 :CB 
43BO 29 F7 BB 48 BD BA C2 86 FF A7 84 34 10 30 05 A6 2B 48B0 02 6F 05 A6 01 B7 BB 47 8D 04 35 02 20 C3 A6 04 :2B 
43CO 80 81 FE 26 05 4C A7 1F 20 FS 35 10 C6 03 F7 BB :11 48C0 4C 34 02 81 08 25 01 4F A7 04 E6 03 33 84 BD BA i42 
43D0 48 BD BA C2 5C C1 20 25F5S 39 86 02 B7 BB 49 7F iD3 48D0 B1 3A E6 06 30 C4 C1 CO 24 0A 35 02 80 08 26 12 71 
43EO BB 48 BD BA C2 86 03 B7 BB 49 C6 FF A6 CO 81 FE :2A 48E0 E7 03 20 DD C4 3F C1 08 10 24 FC 3C EO0 E0 25 2B :2F 
43F0 27 04 86 FF A7 SF 5A 26 F3 39 BD BB 4A BD BC F4 :21 48F0 1F 98 34 02 86 02 B7 BB 49 BD CO SB 33 OF FF BB :04 
Sumi 73 7A ED 7C CB DO 35 2D 73 4D 32 95 6D 298 4D 31 SD Sum: 99 34 9A 93 BS FB 6F 42 39 BA 5B 11 2C 18 8E DD :62 
Add 。+O +1 Add 。 +0 +1 +2 +3 +4 +5 +6+ ア 7 +8+49 +A +B +C +D +E +F Sum 
4400 8D SD 4900 42 BD BA C2 8D 10 A6 E0 26 11 6D C9 00 FF 26 0C :3C 
4410 6F 84 4910 33 5F 8D 10 26 F4 CC 01 00 ED OD 39 A6 C2 00 FF :B7 
4420 06 86 4920 81 1A 26 F2 EC 0OD 83 00 01 ED OD 39 FF B8 OE C4 EC 
4430 00 FF 4930 OF BD BA 9D A6 06 SF 1F 01 86 OE 10 8E DO ES 7E :B3 
4440 BD BA 4940 BA 38 96 17 81 08 4A 4A 4A 2F 04 24 02 1A 02 39 5:B4 
4450 SA 26 4950 8E 04 3D C6 2C D7 11 8D E9 27 02 C6 20 8D 6F 81 :AB 
4460 CS B2 4960 20 27 FA 81 22 26 0A C1 2C 26 06 1F 89 D7 11 20 iDD 
4470 F7 BB 4970 22 C1 22 27 11 81 0D 26 0D 8C 04 3D 27 44 A6 1F :FB 
4480 C4 A6 4980 81 0A 26 3E 86 0D 4D 27 17 91 11 27 1D 34 04 A1 :CC 
4490 80 A1 4990 EO 27 17 A7 80 8C 05 3C 26 06 8D 3B 26 06 20 1E :70 
44A0 CS B3 49A0 8D 35 27 CD 6F 84 8E 04 3C 39 81 22 2?7 04 81 20 :1F 
44BO CB 5C 49BO 26 F2 8D 23 26 EE 81 20 27 F8 81 2C 27 E6 81 0D :E4 
44CO CS B5 49CO 26 08 8D 13 26 DE 81 0A 27 DA 8D 18 20 D6 8D 07 5?8D 
44D0 OF BD 49D0 27 09 C6 36 7E BB 02 8D 1A 0OD CO 39 BE 02 B4 D6 :SE 
44E0 A1 02 49E0 BF E6 85 39 34 10 8DF4 C4 OF BD BA 9D Aa7 0C 63 25 
44F0 2A DF 49F0 OB 35 90 34 74 OF CO0.8D E3 10 2AF9 03 73 B8 2C 44 
Sumi 48 5C Sum: BA 9B 6F 71 0OC 60 F?7 5D 1C 47 79 45 14 28 6C 9E :S5C 
Add 。 +0 +1 +2 +3 +4 +5+6 + ア +8 +19 +A +1B +C +D +E +F Sum Add 。 +0 +1 +2 +3 +4 +5+6+7 +8 49 +A +B +C+D+E +F Sum 
4500 10 22 FE SF B7 BB 47 BD BA B1 26 B6 8E 88 00 BF :21 4A00 BD CO 74 7F B8 2C 35F4 10 8E 99 BF BD FC 20 F1 :3D 
4510 BB 42 CC 00 02 B7 BB 44 F7 BB 49 F7 BB 48 BD BA :ED 4A10 B8 OB 10 22F9 4D F7 BB 47 BD BD 07 BD BA B1 30 :0D 
4520 C2 Be 88 00 81 53 27 05 C6 47 7E BB 02 7C BB 44 iC3 4A20 06 6F E2 C6 98 A6 80 43 26 02 6C E4 5A 26 F6 35 :41 
4530 7F BB 48 BD BA C2 BD BA B1 33 01 8E 88 00 C6 2D :920 4A30 04 10 8E 97 4C 7E BA 38 37 02 FF B8 OE 81 10 27 AB 
4540 7E B9 3B 9E D9 34 10 8D SE 10 2B FD B3 B1 B8 0B・:7? 4A40 20 86 10 8D 40 SF 6D 0D 26 10 A6 OB AA OE 26 0A 2B 
4550 10 22 FE OF B7 BB 47 8D 39 B1 B8 OB 10 22 FE 03 :65 4A50 CCFF FF 10 8E 97 4D7EBA38 108E 27 4C7E BA :75 
4560 B1 BB 4?7 10 26FD 99 BD BC SF 7D C5 B2 10 26 00 5?81 4A60 38 8D 22 A6 01 B7 BB 47 E6 02 8D 36 4A C4 3F 5C 9B 
4570 DC 35 10 9F D9 8D 30 BD BC 5F BD BC C3 8D 13 8E 5:98 4A70 C1 3E 26 01 SF 34 04 6F E2 C6 08 3D E3 E1 10 8E :7B 
4580 02 DE FE C5 BO C6 08 BD B9 3B C6 03 F7 BB 49 7E :14 4A80 97 4D 7E BA 38 34 02 BE 02 B4 E6 85 10 27 FA 38 iD2 
4590 BA C2 BD B9 FB 81 41 10 26 FD BS BD B9 F5 81 53 iD6 4A20 10 2A F8 6C C4 OF BD BA 9D A6 84 A1 EO 10 26 FB :61 
45A0 10 26 FD AC BD B9 F5 10 8E CC 37 BD FC 20 7D 02 :43 4AA0 59 39 BD BA B1 33 06 4F 4C 30 C4 3A E6 84 C1 CO iA7 
45BO DD 10 27 00 0B B6 02 E6 88 80 39 7D 02 DD 26 05 5:85 4AB0 25 F6 39 BD BC F4 BD BA 27 CC 01 02 B7 BB 44 F7 :DB 
45C0O C6 37 7E BB 02 7F C5 AF 96BF 81 11 27 12 86 OF :E0 4ACO BB 49 C6 03F7 BB 48 BE 88 00 BF BB 42 BD BA C2 iD2 
45D0 B7 C5 AF BD BA 97 27 08 4A 26 F5 C6 42 7E BB 02 10 4ADO 34 10 10 8E D6 78 BD FC 20 1C BF 35 10 A6 84 27 :7A 
45E0 34 04 BD BC F4 BD BC 5F 35 04 C1 49 27 16 C1 4F i0D 4AE0 2B 43 27 38 34 10 8E C3 D3 BD BA 22 AE E4 6F 08 iD7 
4SF0 27 4B C1 41 27 78 C1 52 27 05 C6 33 7E BB 02 C6 :4C 4AF0 BD B8 87 8E C3 DC BD B8 87 AE E4 BD C3 85 E6 OE :BO 
Sum: A8 C1 B4 1? CD 0O1 AF 7F 68 D7 F3 CC C7 CA 9E F4 :S1 Sumi 60 924 3B 36 FO 07 B1 F1 70 3C 57 9F AO0 9E 82 14 :74 
Add 。 +0 +1 +2 +3 +4 +5+6+ ア +8 19 +A +B +C +TD +E +F Sum 
4600 4A 7E BB 02 86 10 B7 02 DA BD BC C3 BD BC CD BE :EE 
4610 CS BO 6D 0D 26 E4 EC 0B FD 02 DB BD BF 19 63 04 iC6 
4620 BD CO BE BD BA B1 6C 84 BD BA 97 B6 02 DA AZ 84 :1E 
4630 BA CS AF 8A 80 BE 02 B4 D6 BF A7 85 39 86 20 B7 :03 
4640 02 DA 7D CS B2 27 1F 96 BF 81 11 27 05 C6 40 7E :AD 
4650 BB 02 96 47 4C 26 F6 BD BC 05 B6 C5 B2 B7 CS B7 :E0 
4660 BE C5 BO BF C5 BS BDBF 40BDBF 19 20 BS 86 20 :38 
4670 B7 02 DA BD BC C3 86 FF BD BC CD 7D C5 B4 10 26 iC6 
4680 FF 78 BD BF 19 F6 C5 B3 BD BA B1 30 06 34 10 3A i56 
4690 1F 98 E6 84 AE E4 C1 CO 25 FS 32 62 BD BA 97 C4 !B4 
46A0 3F ED 03 86 02 B7 BB 49 BD CO SB 33 OF FF BB 42 :88 
46BO BD BA C2 CC 01 00 ED 0D BD C1 0A 10 83 01 00 26 i42 
46CO 02 8D 03 7E BE 23 eF 0OD 6F OE A6 04 4C 81 08 26 :8F 
46DO 01 4F 31 84 A7 04 E6 03 BD BA B1 3A 33 06 6C C4 i64 
46E0 4D 26 06 8D 19 Aa7 C4 Aa7 23 7D BE FD 10 26 00 03 :C5 
46FO 7E BC 2E BD BA B1 6D 01 26 02 6C 01 39 00 BD BA :43 
Sum: A0 CB 02 BF 6? 38 1D D7 B3 AEF1 4E 70 B6 25 85 2F 
Add 。 +0 +1 +2 +3 +4 +5 +6 + ア +8 +19+A +B +C +D +E +F Sum 
4700 B1 30 06 CC 00 FF E1 80 27 0A 4C 81 98 25 F7 C6 :8B 
4710 43 7E BB 02 C6 CO EZ 82 32 BD BA 97 10 8E 01 OF :62 
4720 4F A7 80 31 3F 26 FA BD BA 97 B6 BB 47 A7 01 B6 :2A 
4730 C5 B3 A7 02 A7 03 CC 01 00 ED 07 33 OF EF 09 39 :FF 
4740 C6 41 B6 CS B7 10 27 FB B9 B7 BB 48 C6 02 F7 BB :58 
4750 49 BD BA C2 BE CS BS 33 84 C6 20 4F AZ7 80 5A 26 :4D 
4760 FB SE 02 DE C6 08 BD B9 3B 7F BE FD FC 02 DB ED :E8 
4770 43 27 06 10 83 02 00 26 09 D6 BF C1 11 26 03 FZ7 :BB 
4?80 BE FD BD BE FE B7 CS B3 A7 46 C6 03 F7 BB 49 BD iD1 
4790 BA C2 34 70 BD BA B1 6C 01 A6 01 B1 05 E5 25 03 1F 
47A0 BD BC 2E 35 FO 34 04 1F 82 C4 OF F7 CS AF BD BA !61 
47BO 97 E6 01 F7 BB 47 BD BA B1 6D 01 27 03 BD BC 2E iDE 
47C0 BD BA 97 A6 84 81 20 26 2F EC 0OD 10 83 01 00 27 :E2 
47D0 17 33 8B 33 4F 86 1A 21 4F AZ7 CO EC 0OD C3 00 01 :8B 
47E0 ED 0D 10 83 01 00 26 FO BD CO SB 33 OF FF BB 42 :BA 
47F0 C6 03 F7 BB 49 BD BA C2 BD BA B1 6A 84 BE 02 B4 :87 
Sum: A8 19 A9 EZ ED 7?7 78 BE 75 47 CB C6 SF 80 DS 4F :3B 
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リス ト 1 SYSGEN プ ログ ラム ダン プ ・ リ スト 





4D30 72 69 6E 67 20 4E 6F 74 20 46 69 65 6C 64 65 64 iCE 4E30 ES ES E5 ES E5 ES ES ES ES: E5. ES ES:E5. E5: ES ES5' s50 
4D40 00 42 61 64 20 52 65 63 eF 72 64 20 4E 75 6D 62 :38 4E40 ES ES E5 E5 E5 E5 E5 ES ES ES E5 ES ES ES E5 E5 :50 
4D50 65 72 00 42 61 64 20 46 6②9 6C 65 20 53 74 72 75 4C 4ES0 ES ES ES E5  E5 ES ES :E5 E5:E5:ESIES::E5.、E5S_ ES.E5: 4S0 
4D60 63 74 7572 6500 447269766520 4E6F74 20 :8E 4E60 (ES.ES.ES' E5: ES ES:E5】 EES. ES:ESES: ES ES ES.ES5、350 
4D70 52 65 61 64 79 00 44 6@9 73 6B 20 57 72 62 74 65 iAB 4EY0 ES5 ES ES::E5'E5..E5 。E5。ES ES ES'ES! ES ES:ES,/ES E5- 50 
4D80 20 50 726F74 65<63746564 00 44 49 53 4B 20 :15 | 4E80 ES E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5E5 :50 
4D90 42 41 53 49 43 20 46 65 61 74 75 72 65 20 28 52 :E8 4E20 ES ES 'E5 ES ES ES:.E5 ES ES E5:ES5 :E5。E5ES※ES ES 50 
4DA0 61 6E 64 6F 6D 20 46 69 eC 65 29 00 00 00 00 00 :D8 4EA0 ES 、E5'、E5' ES ES .ES ES :E5 ES ES:IESi:ES' ESuES5。ES:E5 50 
4DBO 00 00 00 ES E5 ES ES E5 C6 3F 20 02 C6 5D 34 06 :FD 42EBO ES ES ES E5 ES ES ES ES ES ES ES: ES ES。ES ES5.ES. :50 
4DC0 1A 50 7F FD OF F7 B8 10 32 61 E6 EO CO 3F 54 BD :1D 4ECO ES E5 E5 ES ES ES ES E5 ES ES ES ES ES ES E5 ES :50 
4DDO B8 D4 7D FD OF 1C AF 39 10 EF 8C 19 10 FE B8 OE :21 4EDO:ES ES'E5 ES5 .EB.E5, EE5 ES: ES' ES ES):ES“E5'ES:E5x350 
4DE0 7D FD OF 1C AF AD A4 1A 50 34 01 7F FD OF 35 01 :05 AEE0 E5 ES.ES ES ES ES5.E5:ES.E5.E5:E5' ES5 .E5 ES ES'E5: 50 
4DF0 10 EE 8C 01.39 EE 8C 8D C7 8D C5 8D C3 8D C1 8D :OF 4EF0 E5 ES ES ES5 ES ES ES ES ES ES. ES ES ES E5 ES E5 50 
Sum: CD 36 A4 56 CE 1E 36 4C 70 38 A3 26 27 A5 48 91 :81 Sumi F4 AO FO A0 FO A0 ECF8 22F8 20 F8 1E F8 1CF8 :F4 





四 王 スト 2 スー パパ ー モ ニタ ,。 ロー ダー プロ グラ ム ダン プ ・ リ ス ト EE 








Add 。 +0 +1 +2 +3 +4 +5 +6 + ア 7 +8 +9 +A +B +C +D +E +F Sum Sumi D6 EA 86 C6 E1 3F 58 75 22 D3 C6 CC FD 00 48 06 :CB 
5000 1A 50 7F FD OF 8E 50 20 CE DO 00 10 8E 1C 00 A6 :F1 
5010 84 6F 80 A7 CO 31 3F 26 F6 7D FD OF 39 00 00 00 :28 
5020 7E D3 C1 7E D3 FD DS 52 E2 FB DS FF DZ 24 D2 F4 :77 


5030 D6 B5 D6 43 DO 3A DS 52 DS 52 DS 52 E3 922 D7 49 :B8 Add 。 +0 +1 +2 +3 +4 +5+6 + ア +8 419 +A +B +C +D +E +F Sum 
5040 D5 52 DS 52 DO A1 DO 8A E2 2B E1 00 DS 52 DS 52 :55 S400 C4 6F 43 FC B8 OE ED 4A 10 AF 4C 8E D3 46 BD B8 :96 
5050 D5 52 E2 52 D8 91 D5 52 D5 52 96 CS 8E DO CA 81 :14 5410 23 7F CF 14 CE FF FO BD EA 82 7E DS 1D 30 E4 10 :FF 
5060 28 27 20 A6 84 27 34 BD B8 23 C6 29 8D 28 34 10 :74 5420 CE B7 FO CE CF 06 C6 0A 8D 1D EC 81 83 00 01 ED :70 
5070 8E DO 85 E7 01 BD B8 23 35 10 BD B8 23 8D 17 8D :71 5430 42 AF C4 BF B8 OE 1F 03 BD EA 82 8E D4 2F BD B8 :8B 
5080 1B 20 EO A6 84 27 14 81 45 27 05 BD B8 23 8D 0OC :A3 5440 23 BD D8 2D 7E DS 1D A6 80 A7 CO 5A 26 F9 39 53 :5?7 
5090 8D 04 8D 02 20 ED SA A6 80 26 FB 39 86 0D 8D 02 :29 5450 74 6eF 70 20 61 74 20 62 72 65 61 6B 20 70 6F 69 iD5 
S0A0 86 0A 7E B8 1D 13 00 20 00 00 7F 05 AC 7F 05 A9 :73 5460 6E 74 2E 2E 2E 0OD 0A 00 7D FD OF A6 CO 7F FD OF :FD 
50B0 CE CF 06 6F 43 DC AF ED 4A CC 8F E1 ED 4C 7E D6 :E0 5470 39 E5 ES E5 E5 ES ES E5 7F FD OF 7E DO 03 7DFD :D2 
50C0 56 8E DO AF 73 CF 14 26 03 8E DO BC 7E B8 23 50 :A5 5480 OF 3B 3F 34 60 73 05 A9 26 08 73 05 A9 8E D5 0D :FD 
50D0 72 69 6E 74 65 72 20 4F 4E OD 0OA 00 50 72 69 6E :01 5490 20 1A 86 05 BD B8 1A 10 8E D9 3D BD B8 29 10 8E :44 
50E0 74 65 72 20 4F 46 46 0D 0A 00 42 20 7B 3C 61 64 :3B 54A0 DA F6 BD B8 29 8E DS 15 6F 04 6F 05 7F 03 13 9D :FF 
50F0 64 72 65 73 73 3E 2C 5B 53 2C 52 5D 7D 00 62 72 65 S4BO DE FC 03 12 10 26 FB F2 B6 04 3D 27 0C 81 01 10 :CE 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 54C0 27 FB E7 7F 05 A9 7E DS 21 EC 04 83 00 04 22 0E :51 
Sum: EE AD F8 1B 3D D4 8D B7 E3 2A 1D 29 31 7A 86 74 :FB 54D0 26 07 B6 05 A9 27 07 20 B4 4F SF B7 05 A9 C3 04 :eD 


Add 10 +1 +2 13 14 15 16 ユイ 7 18 19 1A 4B 4C 4D TE +F Sum Sum: C9 7A 4B 08 27 5D B3 BF 59 35 08 4C E0 3E C9 42 97 
5100 65 61 6B 20 70 6F 62 6E 74 20 64 69 73 70 6C 61 :18 
5110 79 2C 73 6574 20 6F722072657365742E0OO:63 
5120 43 20 3C 61 64 64 72 65 73 733E006361 6CeCi5F 


5130 20 73 75 62726F75746926ES652EO00 44 20 7B 7D Add 。 +0 +1 +2 +3 +4 +5 +6 + ア +8 19 +A +B +C +D +E +F Sum 
5140 7B 3C 73 74 61 72 74 3E 7D 7B 2C 3C 65 6E 64 3E :F8 S500 62 11 83 04 3C 23 06 A6 C2 81 20 27 F4 B6 05 A9 :E7 
5150 7D 7D 00 64 75 eeD70O206D65SeDeF7279 2E 00O :9? 5510 27 0A B6 04 3D 81 24 27 OF 7F 05 A9 6F 41 86 0D :73 
5160 45 20 7B 3C 61 64 64 72 65 73 73 3E 7D 00 65 64 :86 5520 BD B8 1A 86 0A BD B8 1A 8E 04 3D 35 E0 13 00 04 :A9 
5S170 69 74 20 ceD 65 6D 6F 72 79 2E 00 46 20 3C 73 74 :4D 5530 3D 00 00 01 04 12 00 04 3D 00 00 01 04 10 FF CF 78 
5180 61 72 74 3E 2C 3C 65 6E 64 3E 2C 3C 63 6F 6E 73 :7D 5540 17 10 FE CF 17 7F 05 AaC 7D05 A2 26 06 8E DS 5A :4F 
5190 74 2E 3E 00 66 69 6CecC206D6SeDeF72792E zeE 5550 BD B8 23 BD D4 63 A6 80 2?7 E7 81 24 10 27 01 EA :87 
51A0 00 47 20 7B 3C 61 6 る 4 64 72 65 73 73 3E 7D 00 67 :26 S560 84 DF 80 41 25 0OC 81 19 22 08 CE DO 06 48 AD D6 :88 
51BO 6F 20 75 73 6572207072ceFe77261 6D 2E 00 :94 5570 20 CF 8E DS SE BD B8 23 20 C7 0D 0A 3E 00 3F 3F :02 
51CO 48 00 68 65 6C 70 2E 00 4C 20 7B 7B 3C 73 74 61 :05 5580 3F 20 63 6F 6DeDe1 6E6420657272eF72 2E :B6 
51D0 72 74 3E 7D 7B 2C3C6<5eEe<43E7D7D00O64 69 iCO 5590 07 0D 0A 00 3F 3F 20 70 61 72 61 6D 65 74 65 72 7D 
51E0 73 61 73 73 65eDe2cCe65 2E 00 4D 20 3C 73 74 :7D 55A0 20 65 72 72 6F 72 2E 07 0D 0A 00 8E DS 74 BD B8 :E2 
51F0 61 72 74 3E 2C 3C 65 6E 64 3E 2C 3C 74 6F 70 3E :5B 55B0 23 20 8E 6F E2 6F E2 8D 25 C1 2C 27 1E 5D 27 1B :F6 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 55C0 BD D5 C5 25 E6 68 61 6@9 E4 68 61 69 E4 68 61 69 iCO 
Sum: B2 BB 71 88 01 CF FC E8 23 63 C8 48 6D 95 60 E2 :FB 55D0 E4 68 61 69 E4 EA 61 E7 61 20 DC 5D 35 86 E6 80 :07 


Add 10 +1 12 13 14 15 16 ユア ト 8 12 4A 4B +C 1D 1E +F Sum Sum: CS 18 7D 2E FF 7D 4F FA CE 8A A4 74 9E A0 7C 3B :B2 
5200 00 6D 6F 76 65 20 6D 65 6D 6F 72 79 20 62 6C 6F iCD 
5210 63 6B 2E 00 50 00 70 726926E746572206FeE:24D 


5220 20 6F 66 66 20 74 6F 67 67 6GC 65 2E 00 51 00 72 :EE ARD HL 908. は 5D32 SB 97 BSHHPEHD E ば PS 

5230 65 74 75 72 GE 20 74 6F 20 62 61 73 69 63 2E 00 :B1 
6 DC 30 1F C1 2C 27 01 5D 39 8D F4 27 9D 7E D5 !FB 

5240 52 20 3C 64 72 76 3E 2C 3C 74 72 6B 73 65 63 3E :6A 
1 610 93 BD F7 10 27FF 94 39 8DFO 10 26FF 8D 32 8D i1F 

5250 2C 3C 73 74 61 72 74 3E 2C3C656E643E0072:23 
620 F7 FD CF 19 BD De 6B CC D6 28 FD DO 04 8E CF 06 iD8 

5260 65 61 64 20 66 72 6F 6D 20 64 <? 73 6B 2E 00 53 :4A 
< 0A 33 52 32 C4 C6 0a BD D4 27 FC CF 19 ED C1 :8D 

5270 20 3C 73 74 61 72 74 3E 2C 3C 65eE643E2C3C:OD 
* CC FC 7A ED C4 7E FC 76 30 E4 10 CE B7FO CECF :19 

5280 63 6F 6E 73 74 2E 3E 7B 2C 3C 63 6F 6E 73 74 2E :CB 
! 650 06 C6 0A BD D4 27 30 02 AF C4 CC D3 FD FD DO 04 :A0 

5290 3E 2C 2E 2E 7D 00 73 65 61 72 63 68 20 63 F 6E :19 
1 660 7E D5 1D BD D5 EO 5D 2?7 08 BD D5FB CE CF 06 ED 88 

52A0 73 74 61 6E 74 2E 00 57 20 3C 64 72 76 3E 2C 3C :FD 
1 6 1 A CF 06 EE 0A 33 54 32 C4 C6 :FD 

52B0 74 72 6B 73 65 63 3E 2C 3C 73 74 61 72 74 3E 2C :CA 
27 EC 02 ED C4 7E FC 76 SE De 82 BD B8 iAC 

52C0 3C 65 6E 64 3E00 7?7726274652074SF2064:63 : 

1 DF 81 52 10 26 FE A5 BD B8 1A 7E iD2 

52D0 69 73 6B 2E 00 58 20 7B 5B 43 43 2C 41 2C 42 2C :50 
52E0 44 50 2C 42 58 2C 49 59 2C 55 53 2C 53 50 2C 50 :4E 0.7C 41 72 65 20.72 6F 29 20 73 75「72 65 20 2B':08 
56B0 59 2F 61 GE 79 29 20 3F 20 00 BD D5 BE C1 2E 26 iDD 





Add 10 +1 2 13 +14 15 16 ユイ +8 19 1A 4B 1C 4D TE +F Sum Sum: 6C F3 5A 4D 54 FOFB 40BD5506eFB3FD232E:OD 
5300 70 6C 61 79 20 6GF 72 20 63 68 61 eE 67 65 2E 00 :6B 
5310 3C 63 6F 6E 73 74 2E 3E 3A 28 68 6578 2D 64 65 ieC 
5320 63 9 6D 61 6C 29 6F 72 28 22 2E 22 2B 63 68 61 :01 


5330 72 61 63 74 65 72 2900 20 00 3C 74 72 6B 73 65 si2F Add 。 +0 +1 +2 +3 +4 +5 +6 + ア イア +8 +9 +A +B +C +D +E +F Sum 
5340 63 3E 3A 28 3C 74 72 6B 3E 2C 3C 73 65 63 3E 29 :D8 5700 35 06 7E FC 60 34 06 CC AZ7 80 FD FC 63 35 06 8C ie5 
5350 6F 72 28 22 23 22 2B 3C 63 6eC 75 73 74 65 72 3E :17 5710 80 00 10 25 25 6A 7D CF 42 27 02 BD E0 A3 CC 01 :OF 
5360 29 00 20 00 00 00 2D2D205552 41 44 4F 53 20 :B1 5720 13 BD DB 93 8E D3 AS BD B8 23 7E D5 21 8D 02 1F FE 
5370 73 75 70 6572206DcF6E <?2746F72 20 49 2F :EF 5730 28 E6 80 8D 0D 5S8 58 58 58 34 04 E6 80 8D 03 EA :10 
5380 4F 20 76 65 72 73 69 6cF 6E 20 2D 2D 20 20 2D 2D :89 5740 EO 392 BD D5 CS 10 25FDF8 39 8D E1 1F 03 A6 80 :89 
5320 20 43 6F 70 7972 69 67 68 74 20 28 43 29 31 39 :F ァ 5750 81 3A 10 26 FD EB 8D D2 1E 13 1F 98 8D AZ7 1E 13 :8C 
53A0 38 33 20 62 7920 44 2E 4F 2E53 2E 20 20 2D 2D :920 5760 A6 80 81 20 27 FO 7E DS 21 BD DS F1 FD CF 1F BD :7D 
53B0 0D 0A 00 20 42 79 20 54 6F <cD 2E 57 61 74 61 6E GeB 5770 DS F1 10 B3 CF 1F 10 25 FE 31 FD CF 21 BD DS F8 :52 
53C0 61 62 65 20 00 OD 0A 49 eC eC 65 6Z7 61 6eC 20 77 :BO 5780 1F 01 FE CF 1F 10 B3 CF 1F 22 0D BD D6 D8 BD D6 :EA 
53D0 72 ce9 74 65 20 61 64 64 72 65 73 73 2E 07 0D 0A :06 5790 E5 11 B3 CF 21 23 F4 39 F3 CF 21 B3 CF 1F 1F 01 :8D 


S7A0 FE CF 21 BD D6 D8 BD D6 ES 30 1E 33 SE 11 B3 CF :43 
S7B0 1F 24 FO 392 CC FF FF FD CF 25 B6 CF 14 B7 05 AC :28 
57C0 BD DS EO 27 12 BD DS 23 34 06 27 06 BD D5 F8 FD :BE 
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リス ト 2 スー パー モニ タ , ロー ダー プロ グラ ム ダン プ ・ リ スト 
S7DO CF 25 35 06 FD CF 23 FE CF 23 11 B3 CF 25 22 D3 :BB SCDO 00 00 00 00 00 34 06 8E DC B1 BD D8 30 8E DC AE :32 
S7E0 8E CB 00 86 24 A7 80 1F 30 8D SC 86 3A AaA7 80 D6 :1F SCE0 Be CF 29 84 OF C6 03 8B 02 3D 1F 928 F6 CF 29 54 :CD 
S7F0 C3 C4 60 54 54 34 44 BD De D8 8D 54 86 20 AZ 80 :20 SCF0 54 54 54 SC 34 06 ED 01 BD B8 20 86 12 Aa7 02 F6 :4C 
Sumi 3A 1B 7E AA 41 44 DF C8 FD OC 29 B2 11 A8 64 56 :00 Sumi CO DC 23 2D 6②9 00 93 A2 9C 3B B9 A3 D8 A0 64 26 :BF 
Add 。 +0 +1 +2 +3 +4 +5+6 + ア +8 +19 +A +B +C +D +E +F Sum Add 。 +0 +1 +2 +3 +4 +5 +6 + ア +8 +9 +A +B +C +D +E +F 
5800 11 B3 CF 25 22 03 5A 26 EE 35 24 C1 08 27 22 33 :E9 SD00 CF 29 C4 OF CE CF 51 33 C5 A6 62 AB C4 AO 63 A7 
5810 A4 86 3B AZ7 80 BD D6 D8 81 7F 27 04 81 20 24 02 :E9 SD10 C4 30 03 BD D8 30 8E DC AE BD B8 20 86 37 E6 61 
5820 86 2E A7 80 11 B3 CF 25 22 03 SA 26 E8 86 3B AZ :88 50D20 ED 01 CE CF 61 SA 33 C5 A6 62 AB C4 AO 63 A7 C4 
5830 80 CC 0D 0A ED 81 6F 84 FF CF 23 8E CB 00 BD B8 :83 5D30 30 03 BD D8 30 8E DC AE BD B8 20 86 12 Aa7 02 B6 
5840 23 BD D8 56 27 91 39 8D 07 1E 89 8D 03 1E 89 39 :AA 5D40 CF 2C AB 62 AO 63 B7 CF 2C 30 03 BD D8 30 8E DC 
5850 34 02 44 44 44 44 8D 06 A6 E4 8D 02 35 82 84 OF :3C SD50 AE BD B8 20 35 06 B6 CF 292 84 OF 8B 3B BD DB 23 
5860 81 0A 25 02 8B 07 8B 30 A7 80 6F 84 39 34 10 8E :24 SD60 A6 E4 81 7F 27 04 81 20 24 02 86 2E BD B8 1A 35 
5870 D8 70 9D DE 35 20 8DFS B6 CF 16 27 12 B6 CF 15 :78 SD70 86 7F CF 2A 7E DB DF 7F CF 2A 7E DA D?7 7D CF 2A 
5880 81 1B 27 OB 81 20 10 26 00 05 BD B8 17 81 20 39 :10 SD80 26 F5 7E DB F6 8E DD 71 BD B8 23 BD B8 1?7 7E DA 
5890 15 00 CF 15 00 00 34 06 34 02 C6 08 4F 68 E4 892 SB SD20 1E 0C 3C 74 65eE206Be5793E 20 20 3C 63 ceF 
58A0 30 A7 80 5A 26 F6 35 02 aA7 84 35 86 86 20 A7 80 :B ァ 7 SDA0 6E 74 72 6F 6C 20 6B 65 79 3E 0D 0A 20 41 20 42 
58B0 39 BD DS EO 10 26 00 8A SD 10 26 FC EE B6 CF 14 :81 SDB0 20 43 20 44 20 20 48 4F 4D 45 20 28 SE 4B 29 3A 
S8C0 B7 05 AC 8E D8 ED BD B8 23 8E CB 00 CE CF 06 A6 :F5 SDCO 20 63 75 7273eF7220686eFeDe5206F72 20 
5S8D0 C4 BD D8 30 8D D6 A6 CO 8D BC 8D DO C6 03 A6 CO :2?7 SDDO 62 6F 74 74 6F 6D 0OD 0A 20 37 20 38 20 39 20 45 
58E0 BD D8 30 8D C7 5A 26 F6 EC 5D BD D8 27 8D BD C6 :A4 SDE0 20 20 44 55 50 20 20 28 SE 51 29 3A 20 68 65 78 
5S8F0 05 34 04 EC C1 BD D8 27 8D B2 6a E4 26 F5 32 61 iE1 SDF0 20 6D 6F 64 65 20 3C 2D 2D 3E 20 63 68 72 20 6D 
Sumi A7 B2 9F 61 6F 76 26 AC FB CB CO 81 7A 6A 3F 62 iA3 Sum: ED CO ED 3F 2F 87 46 CE 19 46 SF AE C1 64 85 SF :18 
Add +0 +1 +2 +13 +4 +5 +6 + ア 7 +8 +9 +A +B +C +D +E +F Sum Add 。 +0 +1 +2 +3 +4 +5+6 + ア 7 +8 49 +A +B +C +TD +E +F Sum 
5900 CC 0D 0A ED 81 6F 84 8E CB 00 7E B8 23 43 43 20 :9C SE00 6F 64 65 0D 0A 20 34 20 35 20 36 20 46 20 20 54 :48 
5210 2E 46 48 49 4E 5A 56 43 20 41 2E 20 42 2E 20 44 :C9 SE10 41 42 20 20 28 5E 49 29 3A 20 6D 6F 76 65 20 38 :24 
5920 50 20 44 2E 2E 2E 20 49 58 2E 2E 20 49 59 2E 2E :79 5E20 20 62 79 74 65 73 20 74 61 62 0D 0A 20 31 20 32 :58 
5930 20 5S 53 2E 2E 20 53 50 2E 2E 20 50 43 2E 2E 0D :SF SE30 20 33 20 20 20 20 49 4E 53 20 20 28 SE 52 29 3A :38 
5940 0A 00 10 BE D9 C6 33 84 34 20 A6 CO 84 DF A1 a4 :60 5E40 20 73 63 72 6F 6C 6C 20 62'61 63 6B 20 70 61 67 !B8 
5950 26 0C 31 21 4D 26F3 35 20 CE CF 06 20 10 A6 a0 :58 SE50 65 0D 0A 20 20 30 20 20 2E 20 20 20 20 44 45 4C :AF 
5260 26 FC 32 62 31 21 A6 A4 43 26 DB 7E DS 8B 8E CB :CD SE60 20 20 20 20 20 20 3A 20 73 6372c6F eC eC 20 66 :2F 
5970 00 A6 A0 27 04 A7 80 20 F8 86 3a A7 80 E6 aA0 C1 :DE 5E70 6F 72 77 e1 72 64 20 70 61 67 65 0D 0A 20 20 20 :C3 
5980 04 24 31 A6 CS BD D8 30 CC 3D 00 ED 81 8E CB 00 :59 SE80 20 20 20 20 20 20 20 43 52 20 20 20 28 5E 4D 29 :D1 
5290 34 20 BD BB 23 35 20 BD D4 63 A6 84 27 DO 81 2E :05 SE20 3A 20 6D 6cF 76 65 20 74 cF 70 20 6F 66 20 6E 65 ieC 
52A0 27 41 BD DS F8 4D 10 26 FC 01 A6 3F 26 02 CA 80 :C9 SEA0 78 74 20 eC 6<9 6E 65 0OD 0A 20 3C 63 75 72 73 eF :53 
59B0 E7 C6 20 BA 34 20 31 CS EC A4 BD D8 27 CC 3D 00 :26 SEBO 72 20 6B 65 79 20 61 6E 64 20 cF 74 68 65 72 3E :AE 
52C0 ED 81 8E CB 00 34 20 BD B8 23 35 20 BD D4 63 A6 :A2 5EC0 0D 0A 53 48 49 46 54 20 2B 20 75 70 20 20 20 20 65 
52D0 84 27 09 81 2E 27 0C BD DS F8 ED Aa4 35 20 Ae A4 :50 SEDO 20 28 5E 59 29 3A 20 6D 6F 76 65 20 62 61 63 6B :EA 
S2ED 43 26 8B 7E D5 21 43 43 00 00 41 00 01 42 00 02 :74 SEE0 20 24 31 30 30 20 62 79 74 65 73 0D 0A 53 48 49 17 


Add 

SC00 
5C10 
5C20 
5C30 
SC40 
5C50. 
5C60 
SC70 
5C80 
5C920 
SCA0 
SCB0 
SCC0 





+0 
CF 


20 
CF 
29 
8B 
1E 
20 
CF 


CF 
CF 
35 


+1 
29 
73 
E? 
ダク 
FC 
10 
7F 
BA 
27 
4A 
2B 
2A 
02 


+2 
8B 
CF 
B6 
8B 
CF 


CF 
34 
4C 


27 
84 
SE 


+3 
01 
2A 
CF 
10 
2? 


2A 
14 
SF 
CF 
04 
01 
DC 


+4 


27 
29 
B7 
C3 
29 
Be 
BE 


27 
8B 
AB 
AE 


+5 
CF 
F3 
80 
CF 
00 
FC 
CF 
CF 
CF 
7E 
3B 
E0 
ED 


+6 
29 
B6 
10 
29 
10 
CF 
29 
ググ 泊 
27 
DA 
20 
34 
01 


+ ア 
25 
CF 
B ァ 7 
24 
FD 
27 
84 
F6 
7E 
1E 
OE 
02 
6F 


+8 
30 
29 
CF 
F3 
CF 
83 
F8 
CF 
DA 
34 
C6 
F6 
03 


+9 
E 
80 
29 
B6 
27 
00 
8B 
29 
1E 
30 
03 
CF 
BD 


+ 合 
DA 
01 
25 
CF 
YE 
10 
08 
3A 
FC 
B6 
SB 
29 
BS 


+B 
D?z 
B? 
21 
29 
DA 
FD 
B? 
33 
CF 
CF 
02 
54 
20 


+C 
7D 
CF 
7E 
80 
1E 
CF 
CF 
84 
27 
29 
3D 
54 
35 


+D 
CF 
29 
DA 
10 
Be 
27 
29 
35 
C3 
84 
34 
54 
BO 


+E 
2B 
25 
D? 
B? 
CF 
7E 
25 
24 
00 
OF 
04 
54 
12 


+F 
26 
2D 
B6 
6F 
29 
DA 
C9 
FC 
FF 
7D 
B6 
SC 
00 


Sum 
:54 
:BB 
1F 
:1D 
:05 
1A 
:FO 
7A 
BE 
:34 
1 2A 
:D2 
:3B 


Add 

6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
61A0 
61B0 








61C0 


+0 
00 
1F 
BD 
7A 
Ee 
BD 
4A 
10 
BF 
25 
85 
01 
BD 


+1 


39 
DS 
FD 
80 
DS 


26 
BD 
EF 
27 
BD 
B8 


+2 


2A 
F1 
CF 
A6 
E0 
C4 
F4 
De 
39 
F4 
D8 
23 


+3 
E0 
41 
FD 
2F 
80 
10 
A6 
37 
D8 
34 


27 
35 


+4 
F2 
2F 
CF 
CE 
27 
2? 
C4 
6C 
A1 
40 
40 
CC 
50 


+5 
C6 
42 
2D 
CF 
29 
F4 
E? 
C4 
01 
Ce 
20 
20 
7D 


+6 
06 


BD 
31 
81 
54 
Ce 
A 
2? 
01 
E1 
20 
03 


+ ア 
A1 
43 
DS 
6F 
2C 
BD 
81 
C4 
0B 
E1 
EC 
ED 
13 


+8 
81 


is 
C4 
10 
DS 
10 
E? 
33 
84 
E4 
81 
の 


+9 
2? 
44 
10 
BD 


23 
10 


SF 
2? 
34 


BE 


+A 
04 
3D 
B3 
DS 
F4 
2 ァ 7 
24 


11 
0C 
10 
81 
YE 


+B 
5A 
45 
CF 
BE 
SF 
13 
F4 


B3 
SC 
SE 
SF 
DS 


+C 
26 
2C 
2D 
C1 


4D 
3E 
FE 
CF 
BD 
CB 
84 
21 


+D 
F9 
46 
10 
2E 
13 
10 
20 
CF 
2F 
DS 
00 
SE 
BD 


+E 
39 
00 


26 
30 
26 
CA 
2D 


D8 
83 
CB 
DS 


+F 
A6 
00 
F4 
O0E 
1F 
F4 
4D 
1C 
41 
A1 
00 
00 
F1 
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リス ト 2 スー パー モニ タ , ロー ダー プロ グラ ム ダン プ ・ リ スト 

En に 6 69 5 計 84 1 央 時 PE 8 記 9 5B MO 2 :CD 6eE0 A7 80 35 84 34 04 CC 2C 2D ED 81E7 8035048D:D8 
1 1 C1 10 22 :80 86 44 A7 80 7E E6 

61F0 F3 B9 E7 44 8D D7 5D 10 27 F3 BO C1 20 10 22F3 :78 に 0 

APIDPURBHSJ820E4.PZ 2.OE'D お EAA に 23 03! 2 ビ 。 815 Sum: 5C 2F AC C7 8B 19 AA 52 84 D4 9C D1 FD 72 C1 20 :23 
Add 。 +0 +1 +2 +3 +4 +5 +6 + ア 7 +8 +9 +A +B +C +D 4E 
Add 。+0 +1 +2 +3 +4 +5 +6+7 +8 19+A +B +C +D TE +F Sum 6700 34 02 84 1F 85 10 27 04 84 OF 80 10 Ce 2B 4D 
6200 AA 20 1A 30 01 8D Ce CB 08 C1 9F 10 22F3 9C34 :90 6710 03 C6 2D 40 E7 80 BD E7 14 35 04 7E Ee 70 BD 
6210 04 54 54 E7 44 35 04 C4 03 58 58 58 5C 6F 46 C1 :B1 6720 1F 34 04 Ce 2B 4D 2A 03 Ce 2D 40 E7 80 35 04 
6220 11 25 04 6C 46 CO 10 E7 45 BD DS F1 FDCF 4D BD :41 6730 03 7E E6 83 34 02 86 24 A7 80 35 02 7E D8 30 
6230 D5 F8 10 B3 CF 4D 10 25 F3 71 10 83 80 00 10 24 :8C 6740 E4 1F 34 04 1F 89 BD E2 1F 1E 82 34 04 C6 2B 
6240 F3 69 FD CF 4F CC CB 00 ED 42 39 BD E1 B6 86 0A :5A 6750 2A 0A E6 E4 50 E7 E4 82 00 40 Ce 2D E7 80 8D 
6250 A7 C4 BD E2 7B BE CB 00 FE CF 4DFCCF 4F B3CF :94 6760 35 02 8D D8 35 04 7E E6 83 C5 10 10 27 00 2D 
6260 4D 4D 27 02 5F BD D4 27 FF CF 4D 20 ES 5C BD D4 :EE 6770 E4 1F 8D CO BD E4 1F BD E7 1C 86 5D A7 80 39 
6270 27 39 BD E1 B6 86 09 A7 C4 BD De 6B CE CB 00 BE :03 6780 04 BD E5 CF 20 05 34 04 BD ES B6 33 84 BE E7 
6280 CF 4D FC CF 4F B3 CF 4D 4D 27 0OC 5F BD D4 27 BF :5B 6790 C6 04 BD D4 27 30 C4 35 04 7E E6 85 8E CB 16 
6290 CF 4D BD E2 7B 20 E5 SC BD D4 27 86 10 F6 CF 47 :F1 67A0 3F 3F ED 81 A7 80 86 01 BZCF 77 39 2C50 43 
62A0 C1 28 24 59 Ce 05 34 0C 8E CF 43 1A 50 86FD 1F :1D 67BO 43 C3 C1 C2 44 DO D8 D9 DS 50 C3 00 43 C3 C1 
62B0 8B A6 84 81 0A 27 05 BD FE 05 20 03 BD FE 08 35 :47 67C0O 44 DO D8 D9 D3 50 C3 00 02 42 53 D2 00 OF 4E 
62C0O 0C 4D 27 20 81 0A 27 35 81 0B 27 31 5A 27 2E 34 :4E 67DO DO 00 OF 53 59 4E C3 00 00 00 01 4C 42 52 C1 
62D0 0C 86 FD 1F 8B 8E CF 43 BDFE 02 35 0C 81 0A 26 :88 67E0 01 4C 42 53 D2 00 00 0F 44 41 C1 00 82 4F 52 








Add 

6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
66A0 
66B0 
66CO 
66D0 


35 


+0 
10 
1F 
44 
08 
80 


44 
E6 
E? 
34 
81 
10 
80 
2D 


+1 
27 
89 
44 
27 
A6 


50 
A5 
7C 
04 
35 
26 
A7 
A7 


+2 
00 
84 
44 
02 
C0 


3F 
E6 
ES 
59 
84 
00 
80 
80 


+3 
FC 
OF 
8D 
86 
81 
20 
3F 
C4 
D ヶ 2 
59 


E8 
20 
34 


+6 
27 
E6 
2C 
OF 


3F 
3F 


EZ 
C4 
10 
86 
10 
59 


+9 
02 
De 
A6 
24 
39 
3F 
3F 
De 
7C 
E6 
86 
80 


C4 


+ 谷 
86 
BD 
E4 
48 
44 
41 
3F 
E? 
E? 
6C 
5D 
39 
D1 
03 


+B +C 
5B AZ 
E4 1F 
1F 82 
33 Ce6 
20 58 
20 42 
3F E6 
7C E6 
49 58 
E6 C5 
A7 80 
8D D3 
86 2C 
CE E6 


+D 


34 
E8 
A6 
20 
20 
SE 
FE 
59 ヶ 
8e 
392 
86 
AZ 
6C 


+E 


02 
E0 
C0 
59 
43 
E6 
EE の 
55 
2C 
CS 
2B 
80 
A6 


+F 
41 
02 
A6 


+F 
02 
44 
C4 
AZ 
20 
43 
2B 
1F 
53 
ED 
10 
AZ 
86 
C5 


Sum 
:6C 
:01 
:00 
:7D 
:65 
iCO 
iFF 
:60 
:A1 


iCA 
:4E 
:E2 








:42 














』O 





リス ト 3 フォ ー マ ッ ト ・ プ ログ ラノ 、 





1000 CLEAR 300,&H3000 

1010 LOADM "format.M' 

1020 INPUT "FORMAT DISK DRIVE (0,1)":DRV : IF DRV<0 OR DRV>1 GOTO 1020 
1030 POKE &H3003,DRV 

1040 PRINT "SET DISK IN DRIVE "』DRV 


1050 PRINT "IF READY THEN PRESS ANY KEY ' : A*=INPUT$(1 ) 

1060 EXEC &H3000 

1070 IF PEEK(&H3002) く >0 THEN PRINT "DISK 1I/0 ERROR !!!" : BEEP : GOTO 1040 
1080 PRINT "COMPLETE." : PRINT 

1020 END 





Add  +0 +1 +2 +3 +4 +5 +6 + ア +8 + の 9 
3000 20 05 00 00 00 00 00 34 08 86 
3010 7F 30 04 8E 31 16 86 08 A7 84 
3020 FE 02 26 16 0OD 18 2B 12 8D 3C 
3030 27 27 0A 7C 30 04 8D 07 27 EA 
3040 SA D6 18 54 25 FB 97 18 8D 13 
3050 10 8E 0A 00 31 3F 26 FC D6 18 
3060 7B 31 3F 26 FC 39 7F 30 05 OF 
3070 30 05 0C 1C 7F 30 06 CE 31 06 
3080 20 8D SD CC 00 0OC 8D 58 CC F5 
3090 A0 B6 30 04 A7 AO B6 30 05 A7 
30A0 7C 30 06 A7 A0 86 01 A7 aA0 86 
30BO 8D 2E CC 00 0C 8D 29 CCF5 03 
30C0O CC ES 00 8D 1B 86 F7 A7 AO CC 
30D0 06 C1 10 26 AE CC 4E 00 8D 06 
30E0 A7 AO 5A 26 FB 39 10 8E 31 16 











下 EEEEEEEE リリ スト 4 スタ ー ト ・ ア アップ, フリー エリ ア 拡 張 プロ グラ ノ 、 EE 








スタ ー ト ・ ア ッ プ ・ プ ログ ラム 例 Sample program of auto star セ ( FILE NAME : startup ) 


10 CLEAR ,&HS5000 

20 LOADM "MONITOR' ,,R 
30 CLEAR ,&H8000 

40 EXEC &H8632 


フリ ー エ リア 拡張 プロ グラ ム Sample program of BASIC free area expander 


10 DEF FNA(A )=PEEK(A )*256+PEEK( A+1 ) 

20 NOMTOP=FNA( &H33 ) 

30 IF FNA(NOMTOP-3) く >&HB806 THEN PRINT "Already expanded." :END 
40 EXTOP=NOMTOP-&HSD 

50 POKE &H33,EXTOP\256:POKE &H34,EXTOP MOD 256 
60 POKE EXTOP-1 ,0 

70 POKE &HO1FA,&H80 :POKE &HO1FB,&H1D 

80 POKE &HO1FC,&H80:POKE &HO1FD,&H5A 

20 POKE &H01FF,&H80 :POKE &HO0200 ,&H1D 

100 POKE &H0201 ,&H80 :POKE &H0202,&H77 

110 EXEC &H8632 


6809 デ バッ ガ ” の FM - 7 へ の 移植 

















圏 COMPAC S 


6809 ア バッ ガ は マシ ン 語 入力 、 マ シン 語 グ ケンプ, 逆 ア モン ブル な M コ マン ド の キー 配信 リス ト 変 更 箇所 

ど に 便利 な ユー ティ リィ ティ で す . FM-7 で も その まま 動く の で す 

が , テン ・ キ ー の 配置 が 変わ っ て いる の で 、 M コ マン ド で マシ ン 語 add o+d AA】 

入力 する と き 、 本来 の 便利 な 機能 が 活か され ませ ん . 69n2 。 2 日 9 

FM-7 の テン ・ キ ー に 合わ せ て , A, B, C, D, E, F の 入力 6C7A _ 2E 2a 
を 図 1 の よう に 座 更 し , つい で に , 画面 の 初期 状態 を 80 字 表示 に し 

つ 

まし た . アド レス の イン クリ メン ト / デ クリ メン ト は , そ れ ぞ れ [5PA_ ら に 7 に 。 の 0 2P 

cl. [を | で あり 、 変更 あり ませ ん . その 他 の キー 入力 で , マシ ン 語 ら C ヒ 2 2D 2 つ 昌 
『 終 は 7 だ: ドレス の が $F の あと は , その 

入力 が 終わ り ま す . また , アド レス の 最 下 位 が $ 6CB6 2B opD 

ら 6CBA SC SS3D 

6 ビビ E 1 と 6 


























アド レス まで の 16 バ イト の チェ ッ ク ・ サ ム を 表示 する こと も , 変わ 
りあ り ま せん . 

避 参 考 文献 

1 ) 笠 作 貴 弥 、 "6809 ア バッ ガ ", FM-8 活 用 研究 , 工学 社 
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2 の 





ーー ーー テーマ ーー アー アーーーーーーーーーーーーーーーーーーーーーーーーー テ ー マ 


この プロ グラ ム は , 馬場 二郎 氏 の エディ タ ・ ア セン 
プラ 2.0(I/O "83 年 5 月 号 , FM-7/8 活 用 研究 ) を ALL 
RAM MODE で 使う た め の プ ログ ラム で す . 

FM-8 用 は '83 年 7 月 号 (RANDOM BOX) で 発売 さ 
? れ ま し た が , テキ スト が メイ ン RAM 上 に ある た め , 一 
度 暴走 する と テキ スト が 破壊 され て し まう 恐れ が あり 
ます . そこ で , テキ スト も 裏 RAM で 使え る よう に 自作 し 
ト 人 生 。 


ーー デー テー デ 


ーーーーーー テ ーー テー 


ーー テーーーーー 
ーーーーーーーーーーー ニ ーー マーーーーーー: 


% 





特 。 徴 





⑩6809 で は あたり まそ で す が , 完全 リロ ケー タプ ブル で す . 
@②@ テ キス ト , アモ ンプ ブラ 本 体 共 に 裏 RAM 上 に ある た め , 効 
率 よ く デ バッ グ が 行なえ る . 

@ 長 い プ ログ ラム を 一 度 で アセ ンプ ラ で きま す . 


"入力 ・ 実 行方 法 「 








CLEAR 100, 科 H1C3F と し て BASIC エ リア を 確保 し た 
後 , 科 H1C40 か ら プ ログ ラム を 入力 し ます . 入力 し た ら す ぐ 
に ポー し て ぐだ さい いら 。 

セー ブ 方 法 は , SAVEBM”" フ ァイル 名 ”, 名 H1C40,。 錠 
H1FEFE, &H1C40 で す . 

実行 方 法 は , CLEAR 100, &H1C3F の 後 , LOADM" フ 


ァイル 名 ”,, R で 走り ます . スタ ー ト 番地 は &H1C40 で す . 


な お , メモ リ ・ マ ッ プ は 図 1 の と お り で す . 
@ @ 


コマ ンド 説明 


コマ ンド は 6 つづ 用 意 き れ て いま す . 
11: エ ディ タ ・ ア セン ブラ を メイ ン RAM か ら 裏 RAM へ 転 
送 し ます . 

実行 時 に は メイ ン RAM の &H4000 か ら &5BFF に アセ モン 
プラ 本 体 が な けれ ば な り ま せん . 転送 後 は BASIC エ リア 保 
護 の た め , 自動 的 に テキ スト の 1 行 目 に "ORG $2000" と セ 
ッ ト さ れ ま す . また だ , 転送 は 裏 RAM を すべ て クリ ア し た 後 
で 行なう た め , テキ スト が 裏 RAM に あっ て も クリ ア さ れ 























コマ ンド 一 覧 表 
機 ヨ 

1 アセ ンプ ラ 転 送 
テキ スト 転送 (メイ ン 一 裏 ) 
テキ スト 転送 ( 裏 つ メイ ン ) 
アセ ンプ ラ ヘ へ ジャ ンプ 
BASIC へ 戻る 
コマ ンド 表示 





エロ > の @ ら い 





メモ リ ・ マ ッ プ 














0000 
BASIC エ リア 
1C40 
2000 
オフ ジェ クト ・ エ リア 
7000 OU 
DISK BASIC 
8000 
テキ スト ・ エ リア 
C000 
ラベ ル ・ エ リア 
シス テム ・ ス タッ ク 
E000 
FC00 
/O エ リア オゥ 

















て し まい ます . そこ で 誤操作 防止 の た め に , 一 度 こ の コマ 
ンド を 実行 する と , メイ ン RAM 上 の アセ ンプ ブラ 本 体 の 一 
部 を 変更 し て , 転送 で き な く し て いま す . 

も う 一 度 転送 する 場合 に は , 一 度 BASIC へ 戻り 。 アセ ン 
プラ を ロー ド す る 必要 が あり ます . 





2|]: テキ スト を メ ( ほ ン と RAM か ら 裏 RAM へ 転送 し ます . 











エラ ー チ ェ ッ ク を 行なっ て いな い の で , 必ず メイ ン 
RAM の &H2000 か ら に テキ スト を ロー ド し た 後に 実行 し 
て くだ さい . 
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3|: テ キス ト を 裏 RAM か ら メ イン RAM へ 転送 し ます . 

転送 後 ア ドレ ス が 表示 され る の で , それ に 従っ て セー プ 

て くだ さい . 

・ 工 ディ タ ・ ア セン プラ ( 裏 RAM 上 ) へ ジャ ンプ し ま 
裏 RAM 上 に アセ ン ブ ラ が 転送 され て る 必要 が あり ます . 

・ BASIC へ 戻り ます . 

・ コ マン ド を 表示 し ます . 


使用 上 の 注意 


8 

FM-7 の 場合 は , 自動 的 に ROM モ ー ド と ALL RAM モ ー 
ド の 切り 換え を 行なっ て いま す が , FM-8 の 場合 は 画面 の 
指示 に 従っ て , 本 体 胡 の ディ ッ プ ・ ス イッ チ 9 番 を 切り 換え 
て くだ さい 。 また だ た, オプ ジェ クト の テス ト な ど で 凌 走 し た 
場合 、 リ セッ ト ・ ボ タン を 押し , CLEAR 実行 後 , 本 プロ グ 
ラム を 走ら せる と , 胡 RAM 上 で アセ ンプ ブラ 本 体 , テキ ス 
































@ エエ | | 軌 0 あぁ | ご 











Easyesssssssssssssssaessd 「) スト 1 


ト と も に 無傷 で 残っ て いま す (けっ し て 電源 を 切ら な いこ 
と )。 な が な お) プログラム や ケネス ドド の 避 ー ド で デン 5 ョ オグ 


ジェ クト の テス ト は BASIC へ 戻っ て 行なっ て くだ さい . 





最後 に 





馬場 二郎 氏 の エディ タ ・ ア セン ブラ は と て も よく で きた 
プロ グラ ム な の で , 本 プロ グラ ム を 使っ て , その 能力 を 充 
分 活用 し て いた だ けれ ば 幸い か と 思い ます . な お , 私 は リ 


スト 2 の プロ グラ ム で , 
避 参 考 文献 
1)FM-8 活 用 研究 
2)FM-7/8 活 用 研究 
3) 庄野 温 夫 : 
使う ?, 1/O'83 年 7 月 号 

4)FM-8 機 械 語 教 本 F-BIOS の 使い 方 , (株 ) コマ ス 


ロー ド の て ま を 省 い て いま す . 


コミ ュ ニ ケー ショ ン ・ プ ログ ラノ EE 還 昌和 


























の OO1 OOOQO まま キキ ま まま キキ キキ キキ キキ キキ ネネ キキ キキ ネネ キネ キキ キキ キキ キキ ネギ 
ooo2 oooo まま ネギ キ 
OCGO9 OOQO 』 ネ 氷 エ テ " ィ ヲタ ・ ア セン フラ り 。2。 の ー BASIC キネ 
QGQ 和 dQQQO 』 キキ * ネ 本 
ら Qo5 ー QQOOO まま コミ ニュ ケー ショ ン フッ ロフ ラム 玉 ま 
QCQ ら 6  QQQOO L る 3 ネギ 
QO ウ 7 フー QQOoo ネギま 83/1/15 by N.YOSHIKAMA まま 
Qto 日 Qi まま 本 玉 
ら O09 OOQO キキ まま キキ ボキ ボキ キキ キキ ギ キ キキ キキ キキ キキ キキ キキ キキ ネギ 
QQ1 の oOQQQ H 
Qo11 ooo H 
1 GO H 
Qoo19 1C49 UEB まま 1 は 
1C 員 H 
1Cd HLTi EQU ま $FDQ5 
1C4O H 
1C4O H 
1CH 員 キキ キキ キ キ キキ 末 ま ま 本 ま キキ キキ 本 まま まま キキ キキ キキ キキ ま 
1CHO H 
1CQ 97F START: PSHS_A,B, X,Y,U, DF, CC 
1 ビオ 2 SOSO BEA INIT 
1C ォ 4 は H 
1C4+ H 
1C DATA1: FDB ま 2Qo TEXT セン トウ アト ^" レ ルス (オモ テ ) 
1C46 DATAS:。 FDB  $SFFF TEXT エン アル ドル XidG オ モ う 
1C48 DATAS: FDB ま は OO アセ ン フ " ラ セン トウ アト "ルス (オモ テ ) 
1C は A DATA4: FDB ま SBFF 』 ア セン フラ エッ トド" アビ ルス で モテ 
1C ビ DATAS: FDE ま BQQ jiTEXT セン トウ アト "ルス (ウラ 〉 
1CHE DATA6: FDE ま BFFF jTEXT エッ トド アド TDD ス | て ウラ 2 
1CSQ DATA7: FDE ま CGG j』 ラ へ ^ ル セン トウ アト "ルス (ウラ ) 
1C52 DATAB: FDB ま DFFF ョ ラベル エン ト * アト “ルス (ウラ ) 
1C5+ DATA9: FDB ま EOQ グセ ジフ ドラ セト の (アト PLX( ウ ラッ 
1C56 DATA1QsFDB ま FBFF アセ ッ フ トラ エット” 及 ド ルズ (ウラ 》 
1C58 : DATA11:FCEB まる の 員 邊 F , ま ロラ jURB * ま SQOQ DATA 
1CSB FCB ます フ , まで の まで 
1C5E FCB 32, ま 3O, ま GO 
1C61 SD FCB ま 3Q。 ま OD 
1C693 の の DATA1E:FCB ま QO 
1C64 H 
1C6+ H 
1C6+ B6 評 TNIT:  LDA 拉 箇 の 中 まま まま ま 。 INIT キキ まま まま 
1C66 17QS59 LBSEE COLOER j COLOER 
1C69 B7FDGF STA ま FDGF 
1CEC B6934 LDA 音 $ コ + 
1C6E A79DFFES STA [DATA9,FC1 jFM-7 OR FNM-8 
1CZ7S A19DFFDE CMFA EDATA9, FC] 
1C76 71A BEG INI1 
1C78 3QBDQ7C LEAX FD1,FC 
1C7C 17Q2GA LBSE FERINTE FRINT "DIF ヌイ ッ チ 9 ドン" 
1C7F 3QBDGSBC LEAX FD3, FC FRINT "OFF" 
1CB3 17 の 233 LEBSE FRINTE 
1CB6 863# LDA 拉 も 3 
1CB8. AEBDFFCB LDX DATA93,FC 
1CBC A78+ DIFOFFESTA  ,X jDIF QFF ? 
1CBE A184 CMFPA ,X 
1C9 26FA ENE DIPFOFF 
1C92 INI1: LEAX FDB, FC FRINT コマ ント "イチ ラン 
1C96 LBSR PRINTS 
CoQ59 1C99 MAIN: LEAX PFD7,FC 5 まま まま 。 MAIN キキ まま キキ 
SQ6 1C9D LBSER FEEINTE 
SQ61 1CA MA1I1s LBSEE INFUT 
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エディタ ・ ア セン プラ V2.0 を ALL RAM で 





&O 


リス ト 1 











QC96 
ひ Q97 
G98 
099 
Q1QQ 
の 1 の 1 
Q1QOS 
の 1 め 8 
Q1 の 中 
ら の 1 め 05 
Q1o6 
点 1 の 9 ア 
Q10 昌 
仙 199 
の 11 の 
@111 
の 1 1 
@118 
ら 1 1 中 
@1 1 
@116 
Q11 フ 
ら 1 1 日 
Q ゅ 1 19 
らい 1 2 の 
Q121 
の 122 
の 6123 
の ら 1 24 
ひ 125 
ら 126 
Q@12 フ 7 
12 日 
Q129 
13 の 
Q181 
Q132 
133 
13 中 
ら 1355 
Q136 
Q13Z 
18 日 
ら 139 
の 1 は の 
@1 は 1 
の 142 
@148 
1 叶 吐 
Q1 5 
の 1 は 6 
Q1 4Z 
ひ 14 日 
点 1 引 9 
215 員 
介 151 
の 1 5 記 


1CA3 
1CA7 
1CA9 
1CAB 
1CAD 
1CAF 
1CB 
1CE5 
1CB7 
1CE9 
1CBC 
1CEE 
1CC1 
1CCS 
1CC5 
1CCZ 
1CCZ 
1CCA 
1CCC 
1CCF 
1CD3 
1CD5 
1CD7 
1CDA 
1CDC 
1CDE 
1CE 
1CE3 
1CE5 
1CE7 
1CE9 
1CEC 
1CEE 
1CFO 
1CF 
1CF5 
1CF 7 
1CF9 
1CFB 
1CFE 
1DQQ 
1DO2 
1Do5 
1DQ7 
1DQ9 
1DGC 
1DGE 
1DGE 
1DE 
1D12 
1D16 
1D18 
1D1C 
1D1F 
1D23 
1D26 
1D28 
1D2C 
1D39 
1D33 
1D37 
1D3B 
1D49 
1D43 
1D47 
1D4B 
1D4D 
1D51 
1D53 
1D57 
1DSB 
1DSF 
1D61 
1D63 
1D65 
1D66 
1D68 
1D6B 
1D6C 
1D6C 
1D6C 
1D7 ひ 
1D74+ 
1D77 
1D7B 
1DZF 
1DB4 
1D87 
1DBA 
1DBB 
1DBB 


A7BDFF BC 
1831 
25F 5 
8148 
22F 1 
17 め 1F5 
1 702 マ キ 
1 
26QA 
17 員 1EBE 
865 
1791E6 
SQDD 
B1oD 
SeEB 


17Q1DD 
B6A 
17Q1D8 
A6BDFF 9 
8131 
26 の 5 
17QQG キ 
2oBD 
B132 
26Q5 
17QGQB9 
つり = と 3 
8133 
2605 
17QQ9F 
SQAE 
811 
2605 
1701Q2 
る SQAZ 
14 る 2 
AWC】 
16Q12F 
148 
26Q5 
17158 
2092 
B67 
17Q19RE 
SoBB 


EC9DFF36 
1QB3347F 
2710 
3QBDQ1F9 
17 ぬ 19A 
3QBDO1FE 
17Q193 

2 の 9 
AEBDFF 2 の 
EEBDFF 26 
17 ら 145 
AEBDFF 11 
EEBDFF19 
1oAEBDFFQA 
17612A 
AEBDFFGD 
ECBDFF の 1 
EDG9 
ECBDFEFF 
EDGZ 
ED3DFEF 1 
So8BDFEFD 
EEBDFEED 
C6B 
A6 ヨ の 
A7CO 

5A 

26F9 
17QQoFA 
393 


AEBDF EDC 
EEBDFEDE 

1 フウ 1 の 1 
AEBDFEC9 
EEBDFECD 
1QAEBDFECS 
17QQoE6 
17QQDB 

39 


MATSs 


MA13: 


MA1: 


MASi 


MA4H: 


NAS 


MA6: 


H 
TENSOU: 


TENSO1 : 


TENSUSi 


TENS03: 


H 
TEXT1s 


STA 
CMFA 
ECS 
CMFA 
BHTI 
LBSE' 
LBSER 
CMFA 
BNE 
LESFE 
LDA 
LESE' 
BEA 
CMFA 
BNE 


LBSER 
LDA 
LBSER 
LDA 
CMFA 
BNE 
LBSFE 
EEA 
CMFA 
ENE 
LBSR 
BRA 
CMPA 
ENE 
LBSR 
ERA 
CMFA 
ENE 
LBSE 
ERA 
CMFA 
ENE 
LBRA 
CMFA 
ENE 
LEBSER 
BRA 
LDA 
LBSR 
BRA 


LDD 
CMFD 
BEG 
LEAX 
LBSR 
LEAX 
LESER 
BRA 
LDX 
LDU 
LBSFR ・ 
LDX 
LDU 
LDY 
LBSR 
LDX 
LDD 
STD 
LDD 
STD 
STD 
LEAX 
LDU 
LDBE 
LDA 
STA 
DECBE 
BNE 
LBSE 
RTS 


LDX 
LDU 
LBSFE 
LDX 
LDU 
LDY 
LBSE 
LBSER 
FET5 


DATA12, FC 
韻 ま き 1 
MAI1 
(に | 
MAI1 
FRIINT1 
INFUT 
# ま QB 
MA13 
FEIINT1 
# 各 
FETINT1 
HAI1 

# ま QD 
MAIS 


FEINT1 
韻 ま の A 
FRINT1 
DATA12S, FC 
井 $91 
MA1 
TENS ロ U 
MAIN 
た が 4 
MAS 
TEXT1 
MAIN 
だ 】 
MA3 
TEXTS 
MAIN 
井 叶 1 
MA 
ASSEN 
MAIN 
韻 叶 2 
MA5 
BASIC 
福 も 日 
MA6 
HELF' 
IMAIN 
0 ア 4 
FRINT1 
MAIN 


[DATA3, FC1 
せま 3 引 7F 
TENS ロ 1 
FD4, FC 
FRINTS 
FD6,FC 
FRINT2 
TENS03 
DATA5, FC 
DATA1O, PC 
CLEAR 
DATA3, FC 
DATA9, FC 
DATA4, PC 
FTENSU 
DATA9, FC 
DATA5, FC 
9, X 
DATA7, FC 
アッ 
EDATA3, FC] 
DATA11,FC 
DATA5, FC 
OB 

ァ X キ 

ヵ U+ 


TENS02 
FP1 


DATA5, PC 
DATAB, FC 
CLEAR 
DATA1 , FC 
DATA5, FC 
DATA2, PC 
FTENSU 
FF1 


"1 リ 9 THEN MAI1 


AH" THEN MA11 


j 人 A=BS THEN MAI1 


jASSCR THEN MAIS 


j "1! THEN GOS. TENSO0U 


jA= ニ "ZI! THEN GUS.。 TEXT1 
日 CRAM -: RON) 


)A="G" THEN GUS.。 TEXTS 
H CRDM -> RAM) 


jA="A" THEN GUS. ASSEN 
日 (アセ ッ ンプ パラ) 


THEN BASIC 





="H" THEN HELF 
H (コマ ッ ント" イチ ラン ) 


まま まま 。 1 (アセ ッ フ " ラ テ ソ ウ ) まま 
# エ ラー チェ ッ ク 


jFRINT リ メイ ンド RAM ニニ ASSMBLER" 
jFRINT "フッ ログ "ラム カ ) アリ マセ ッ リ 
jj ウラ RAM CLEAR 


』 フ 5 ロフ "ラム テン ソウ 


TEXT・ エ リア セン トウ アト トル ス 

日 ト 2 

す 

5 ラベ ~ ル ・ エ リア セン トウ アァ トト ルス SET 


5jURG $1QQOQ ヲ セッ ト 


FRTNT "テッ ソ ツウ シュ ウリ ョ ウー 11 


キキ TEXT テ ン ソ ウ 1 (オモ テ ョ トウ ラ ) まま 
ウラ TEXT & ラベ バル リョ ウイ キ CLEAE 


iTEXT テッ ソウ 


5sFRINT "テン ソウ ーシュ ウリ ョ ウー 1! 7 
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1DBE AEBDFEBED TEXT<: LDX DATA5, FC キキ キキ TEXT テ ッ ソ ウス (ウラ = オモ テ ) キキ 
1DBF EEBDFEE1 LDU DATA1,FC 

1D93 1QAEBDFEB6 LDY DATA6, FC TEXT テッ ツウ 
1D98 17oo LESE FTENSU 

1D9B 33BDo45 LEAU FD11,FC 

1D9F ECBDFEA1 LDD DATA1,FC 

1DA3 BDzE ESE TEX 

1DA5 AEBDFEA3 LDX DATA5, FC 

1DA9 1F1 TFE X,D 

1DAE TEXT3: LDU 

1DAD ADDD 

1DE : CMFU 村 Qt 

1DE 6F5 ENE TEXTS 

1DB6 ASBDFE93 SUBD DATA5, FC 

1DEA ESBDFEB6 ADDD DATA1,FC 

1DBE 338Dc LEAU FD1S,FC 

1DCS ES TEX 

1DC+ LEAX FD9, PC 

1DCB LBSR FRINTS 

1DCB LEAX PD1Q,FC 

1DCF LBSF FRINTS 

1DDz RTS 

1DDS H 

1DD3 1Fo1 TEX: 。 TFR D,X 

1DD5 BDD BSR TE1 

1DD7 1F1o TFR X,D 

1DD9 BDD BSR TES 

1DDE 1F98 TFR  B,A 

1DDD 8BD5 ESR TE1 

1DDF 1F98 TFR  B,A 

1DE1 BD5 BSR TEz 

1DE3 3 RTS 

1DE+ H 

1DE+ TE1:  LSRA 

1DE5 LSRA 

1DE6 LSRA 

1DE7 LSRA 

1DEB TES: 。 ANDA $QF 

1DEA CMFA #$① 

1DEC BHI TES 

1DEE ADDA 持 $3O 

1DFG : BRA TE4 

1DFS TE3: ADDA #$37 

1DF は TE4: 。 BTA ,U+ 

1DF6 RTS 

1DF7 H 

1DF7 H 

1DF7 EC9DFE59 ASSEM: LDD [DATA9,FC1 まま まま 計 アセ ッ フ トラ へ JUMF まま キネ 
1DFB 1QB3347F CMPD #$347F 

1DFF =71 BEQ ASBE1 エラ ー チェ ッ ク 
1EQ1 SQBD116 LEAX PFD5,FC 

1EQ5 17QE1 LEBSE FRINT テ 

1EQB SoBD115 LEAX FD6,FC FRTNT" ウ ラ RAM ニ ASSEMBLER" 
1EC LEBSR FRINTS j FRINT" フ * ロ 2* ラム カ 、 アリ マセ ッ " 
1EQF : ERA ABSE= 

1E11 ASSE1: LDA 本 $Q フ j COLOR 7 
1E13 17QQAC LEBSFR COLOR 

1E16 1F4Q TFR  S,D アセ ッ プ パラ へ JUMP 
1E1 1QEEBDFE35 LDS DATAB, FC 

1E1D 346 FSHS A,E 

1E1F AD9DFE31 JSR [DATA9,FC] 

1E23 85Q6 FULS A,B 

1E25 1FO4 TFR D,8 

1ES7 B694 LDA は 

1E29 17QQ96 LBSR COLOE 

1E2C 39 ASSE=: RTS 

1E2D H 

1EzD 

1E2D B6Q7 BASIC: LDA 半 $OQ フ キキ まま BASIC へ モト " ル キキ まま キ まま 
1E2F 17QQ9o LBSR COLOE COLOR 7 
1E32 BEFDoF LDA FDGF 

1E35 B63+ LDA 持 $3 

1E37 A79DFE19 STA [DATA9,FC1 jFM-7 OR FM- 昌 
1ESE A19DFE15 CMFA [DATA9, FC1 

1ES3F =61A BNE BABSI2 

1E41 SQBDQQBS LEAX FD1,FC 

1E5 17GQ71 LBSR PRINTS jFRINT"DIF スイ ッ チ 9 ルン" 
1E4 SQBDQQBE LEAX PD2,PC FRINT"DN" 
1E4C 17oo6A LBSR FRINT= 

1E4F B634 LDA  # ま 3 

1E51 AEBDFDFF LDX DATA9, FC 

1E55 A7B+ BASI1: STA ,X jDIP ON ? 
1E57 A184 CMPA ,X 

1E59 27FA EEQ BASI1 

1E5B 35FF BAST2: FULS A,B, X,Y,U, DF, CC,F ビ 

1E5D j 

1ESD H 

1E5D 3oBDoOEE HELP: LEAX PDB,FC ) 本 コマ ント " イチ ラン FRINT キネ キキ ま キ 
1E61 17QQ55 LBSR PRINT2 

1E64 39 RTS 

1E65 








』O 


リス ト 1 
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Q2BQ 
Se 日 1 
OZ2B 
ゆこ だ 】 
らい 日 中 
QB5 
Q2B6 
Q2B フ 7 
ら 2 晶 
ひ 289 
Q29 
Q291 
Q292 
Q293 
Q29 叶 
OZ295 
Q296 
いひ 297 
Q298 
ら 299 
GQQ 
いひ 1 
QGOS 
ひら 309 
ひ G の 中 
ら 305 
Go6 
Q30 フ 
ら CS 
QSQ9 
31 の 
631 1 
Q312 
Q8198 
員 91 
Q9815 
ら 916 
QG1 フ 7 
91 昌 
Q319 
い 32 の 
QG21 
92 
LCJC が +C】 
CT 
QGS5 
MAC が 2 
QG マ フ 
LAC が に 】 
QG29 
ACTC1) 
@G31 
は CTC が 
Q3383 


いら 中 


1E65 
1E65 
1E65 
1E65 
1E69 
1E6C 
1E6D 
1E6D 
1E6D 
1E6F 
1E71 
1E73 
1E75 
1E77 
1E78 
1E78 
1E78 
1E79 
1E7A 
1E7C 
1E7E 
1EB 
1EB2 
1E ヨ 3 
1EB3 
1EBS 
1EB5 
1EB8 
1E8A 
1EBC 
1EBE 
1E91 
1E9 
1E96 
1E99 
1E93B 
1E9D 
1E9F 
1EA1 
1EA1 
1EA1 
1EA4 
1EA6 
1EAZ7 
1EA7 
1EA7 
1EA9 
1EAB 
1EAE 
1EBO 
1EB3 
1EB6 
1EBB 
1EB9 
1EB9 
1EE9 
1EBB 


1EBD 
1EBF 
1EC1 
1EC2 
1EC2 
1EC2 
1EC キ 
1EC6 
1EC9 
1ECB 
1ECE 
1EDO 
1ED3 
1ED6 
1ED 
1ED9 
1ED9 
1ED9 
1EDB 
1EDD 
1EE 
1EE2 
1EE5 
1EE フ 7 
1EE9 
1EEC 
1EEE 
1EF 1 
1EF3 
1EF5 
1EF7 
1EF8 
1EF8 
1EF8 


GoBDQ16 
17QQo4D 
39 


ECB1 
EDC1 
に と が ユリ 
ACE 1 
2SF6 


に 
ご 


4F 
5F 

EDB1 
3440 
ACE1 
25F8 


a 
ご 


に だ 1 り ア ンコ 
BeFDQ5 
ご BF BE 
1A5 
B68o 
B7FDQ5 
E6FD5 
2AFB 
B6F CB 
7 中 
BD 叶 
2CE6 
3582 


7FF DS5 
1CAF 
39 


BDDA 
C6Q3 
F7FCBZ 
C6O1 
F7FC83 
BZ7FCB4 
BDE9 
39 


A68O 
2704 
BDEB 
2oF ヨ 
39 


BDBF 
C6Q3 
F7F CB 
C6Q2 
F7FC ヨ 3 
C611 
F7F CB 
BZ7FC85 
8BDC9 
39 


8DA8 
629 
B7F CB 
B6083 
B7FC ヨ 3 
8DBA 
BD9A 
Be6FC ヨ 8 
C68 
F7FCB 
BDAE 
81QQ 
7E ミ 
39 


H 

まま まま まま 

H 

FP1s LEAX 
LBSE 
FTS 


H 

す 

FTENSU: LDD 
STD 
FSHS 
CMPX 
ECS 
FTS 


す 

CLEAR: CLRA 
CLRBE 

CLEA1: STD 
FSHS 
CMFX 
BCS 
RT5 


H 
SUEHLT:FSHS 
SUBHL 1 :LDA 
BNI 
ECC 
LDA 
BTA 
SUEHLSiLDA 
BFL 
LDA 
BEG 
BSE 
BRA 
SUBHLS:iFULS 


す 

HLTCLR': CLR 
ANDC 
RTS 


す 

FRINT1: BSR 
LDBE 
STB 
LDB 
STB 
STA 
BSR 
RTS 


ロー 


RINT2:LDA 
BEG 
BSR 
BRA 
FRIN2: RTS 


す 

COLUR: BSR 
LDBE 
STB 
LDB 
STB 
LDB 
STB 
STA 
BSR 
RTS 


INFUT: BSKR 
LDA 
STA 
LDA 
STA 
BSK 
BSR 
LDA 
LDB 
STB 
ESER 
CMFA 
BEG 
RTS 


サフ ルー チン 


FD9, FC 
FRINTS 


ァ メキ 

ァ U+ キ 

W 

5+ キ 
FTENSU 


ょ メキ 


7 B++ 
CLEA1 


合 

HLT 
SUBHL 1 
提 ま 5 避 

韻 各 日 ウ 
HLT 
HLT 
SUBHL 
ま FCBS 
SUBHLS 
HLTCLE 
SUBHL 1 
MA, FC 


HLT 
拉 村 AF 


SUBHLT 
に 10 で 】 

まま FCB2 
井 ま の 1 

まま FCBS 
まま FCB キ 
HLTCLKR 


ァ ス オ 

FRIN2 
FRINT1 
PRINT2 


SUBHLT 
トル WC】 

ま FCB2 
韻 向 2 

ま F CBS 
韻 $11 

ま F CB 

まま FCB5 
HLTCLER 


SUBHLT 
韻 ま 9 

も F CB 
で 】 
まま FCBS 
HLTCLE 
SUEHLT 
まま FC ヨ S 
間 ま 日 〇 
まま FCB 
HLTCLE 
井 和 CO 
INFUT 


本 キキ まま キキ キキ キキ キキ 


FRTNT "テッ ソウ ーシュ ウリ ョ ウリ SUB 


テッ ツウ BUB 


j CLEAR BUE 


jSUECFU HLT SUBE 


jSUECFU HLT CLEAR SUE 


1 モジ "FERINT SUB 


j ョ ルン ゾ "2 FRINT SUB 


jEOLOR SUE 


1 モジ” INFUT SUB 
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1EFB ) ま キ まま FEINT DATA エリ ア まま キネ キキ 
1EF H 
1EFB O7GDQA FD1: FCB  * ま 07,$QD, ま GA 
1EFE 44495C2O FCC  /DIP / 
1EFF BDB2AFC1 FCC  / ス イッ チ / 
1FO3 2Q39CADE FCC / 9*/ 
1FO7 DDzo FBG. ,/ 用 7 
1Fo9 FCB  *O 
1FQA 4FHE FD2: 。 FCC / ロ N/ 
1FGC @DQAO FCB  *OD, ま AO 
1FGF 4F4646 FD3: FCC / ロ FF/ 
1F12 oDoAG FCB  * ま QD, ま QA,$OGO 
1F15 7 FD4: FCB *0 フ 
1F16 DzBz2DD2Q FCC ノ メ イ ン / 
1F1A oo FCB  *Qo 
1F1B @ フ 7 FD5: FCB *@ フ 
1F1C 2oBSD72 FCC /9 ラ / 
1Fso oo FCB  $QG 
1F21 52d14D2O FD6: 。 FCC /RAM / 
1F25 C62Q4153 FCC  / ニ = AS/ 
1F29 53454D42 FCC  /BEMB/ 
1F2D 4C45522Q FCC _ /LER / 
1F31 CCDFDBEB FCC  / フ * ロ 2/ 
1F35 DED7D12Q FCC の" う 4./ 
1F39 B6DEzOE1 FCCE / が アノ 
1F3D DBCFBEDD FCC 。/ リ マセ ッ ノ 
1F41 oDoAQ FCB  *OD」 QA, GO 
1F4 は QDQA FD7: FCB  *QD,$QA 
1F46 BACFDDC ォ FCC  / コ マッ ト / 
1F4A DE2OSF2G FEBG "る メ 
1F4E oo FCB  $Qo 
1F4F QA FDB: 。 FCB *%oA 
1F5O 31203A2O FEC _。 Z1 』 / 
1F54 CCDFDEB FCC  / フ * ロ 2/ 
1F5B DED7D12o FCC バラ 4 / 
1F5C CSDDBFB3 FCC 。 / テ ッ ソ ウノ 
1F6O QDGA FCB  *QD, ま QA 
1F62 32203A2Q FCC 。 /2 』: / 
1F66 B5D3C32o FCC  / オ モテ / 
1F6A B3E5zQB3 FCC _ /= 2/ 
1FEE D7zo2QCS FCEE  / ラ テ ァ / 
1F72 BZBDC42O FCC  / キ メト / 
1F76 C3DDEFBS FCC 。/ テ ッ ソ ウ / 
1F7A GDA FCB  *QD, ま QA 
R 1F7C 332O3A2Q FCC 73 』 / 
Q3BG 1FBQ BSD722o FCC  /2 ラ / 
1F ヨ 4 B3E5zoB5 FEC _/ー ォ / 
1F8 ヨ D3C3zoCS FCC  / モ テ テ / 
1FBC B7BDC42O FCC  / キ メト / 
1F9Q C3DDBFBS FCC 。/ テ ッ ソ ウノ 
1F94 GDoA FCB  *QD, ま QA 
1F96 41203A2Q FOBC ZAi ア 
1F9A B1BEDDCC FCC  / ア セッ フ / 
1F9E DED7zCD FCC バラ A ノ / 
3B9 1FA2 SOBSC2D9 FCC  / ウツ ウル / 
39Q 1FA6 QDoA FCB  *QD,$QA 
391 1FAB 422O3A2O FEE  /B : / 
Q392 。 1FAC 42415349 FCC  /BASI/ 
393 1FBO 432oCD2O FCE /CA/ 
Q394 1FB+ D3C4DED9 FCC  / モ ドル ノ 
395 1FBB oDoA FCB  *QOD, ま QA 
o396 1FBA 482O3A2O FCC _ /H : / 
397 1FBE BACFDDC4 FCC ソコ マッ ト / 
539 1FC2 DE2QB2C1 FCC  /" イチ ノ 
399 1FC6 D7DD FCC  / ラ ッ / 
OO 1FCB CDoAQGo FCB ま OD,* ま QA, ま OO 
ゅ 4O1 1FCB C3DDBFBS FD9: FCC  / テ ッ ツ ウ / 
edO2 1FCF 2QBCADB3 FCC  / シュ ウノ 
4998 1FD3 DBAEB32o FCC ノリ ョ ウ / 
oO 。 1FD7 2121 FCC  /!!/ 
05 1FD9 oDoAOo FCB  *OD, QA OO 
Q4Q6 1FDC 54455854 FD1o: FCC  /TEXT/ 
ゅ 407 1FEO 2o2o264 昌 FCC / &H/ 
oO4O 昌 1FE+ PD11: RMB 4 
409 1FEB 2o2D2o25 FCC /ー- &/ 
o41O 1FEC 48 FCC 7/H/ 
o411 1FED FD12: RMB 4 
Q412 1FF1 GoDoAQQ FCB  $QD,$OA, OO 
@418 。 1FF4 END: EQU キネ 
スト 2 。 ロー ダ 一 - 
1o CLEAR 10O,&H1CSF 3O LOADM"ALL RAM",, 民 :7 コミ ニケ ー シ ョ ッ フ * ロ 2* ラム 
=G LUADM"68O9 AS"E7 エ テ * 2・ ア セッ フラ V2. の 4O END 
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FM- グ プロ グラ ス 妄 発 の 了 チ 生 び だ ・ ( 





苦労 の 未 や っ と 完成 し た プロ グラ ム を いざ 実行 し て みる 
と ヾ lllegal Function Cal? な どの エラ ー が 発生 し た り , プ 
ログ ラム は 正常 に (2?) 働く に も か か わら ず , 結果 が どう 


も お か 
こう いう と き は , まさ に 『 シ ラミ つぶ し 』 い や 。,『 南 京 虫 つ 
ぶし 』(? ) で プロ グラ ム の 流れ を 追い か け な が ら 害 虫 駆除 
を 行わ か なけれ ば な り ま せん . 


概要 


ここ で 発表 する プロ グラ ム は ,F-BASIC に 後述 する コ < 
ンド を 拡張 する も の で , 次 の よう な を 特徴 が あり ます . 
⑳ ス テー トメント 実生 優 に 指定 され た サブ プ ル ー チ ン (デバ 
ッ グ ・ サ ブ プルー チン) に ジャ ンプ させ る こと が で きる . す 
cx F-BASIC の ON INTERVAL GOSUB 文 が , 一 定 
時 間 間 隔 ご と の 割り 込み 9 な う の と 同様 に .。 ステ ー ト メ 
MSAMEoo 入 み を 行なえ る . 
@ デ バッ グ ・ サ プ ブルー チン へ の 分 岐 の 許可 
き る. 
@ デ バッ グ ・ サ プ ブルー チン に 分 岐 す る 直前 の 文 の リス ト を 
プロ グラ ム を 中 断 す る な く 表 示 で きる . 
@ 他 の プロ グラ ム に よ * に EF-BASIC が 拡張 され て い 
る 場合 に も 使用 で 
@ROM-BASIC、 者 
の ボ ポジション ・ イ ン デ ペン デン 


め 上 わずか 0.5K バ イト で ある . 


プログ ラム の 入力, 実行 


上述 し た よう に 本 プロ グラ ム は リロ ケー タプ ブル で す が 。 
説明 の 都合 上 , リ スト どおり の 位置 (56E00 一 $6FFF) に あ 
る も の と し す . 

まず ,CLEAR,&H6DEE と し て 領域 を 確保 
タ を 使っ て リス ト ど お り 正 し く 入 力 し ます . 

入力 を 終え た ら , SAVEM"DEBUG。 を HH6E00、 名 
H6FEFE, &H6EO0O0 と し て セ モー ブ し て お きま す . 

EXEC&H6EO00 で 実行 で きま す ( 次 回 か ら は , CLEAR 文 
の 後 LOADM “DEBUG” ,,R で 可 ). 


侍 止 を 指定 で 


りす で 


な く 動 作 す る . 


ト で ある . 


こ 後 , モニ 


し いな ど と いう 経験 を お 持ち の 方 は 多い と 思い ます . 


D 


コマ ン ド の 説明 


@ON DEBUG GOSUB 
機能 : デバ ッ グ ・ サ プ ブルー チン の 定 開 を し ます . 
解説 : 行 秋 り は デバ ッ グ ・ サ プ ブルー チン の 開始 行 番 り で 
デバ ッ グ ・ サ プ ブルー チン か ら の 復帰 は DRET 文 に より 行 
な われ ます . 
ON DEBUG GOSUB 文 の 夫 行 に より , 
の 状態 に な り ま す . 
@DEBUG ON/OFF 
機能 : デバ ッ グ ・ サ プ ブルー チン へ の 分 岐 の 許可 , 
いま す . 
解説 : DEBUG ON を 実行 する と , 以後 1 ステ ー ト メン ト 
実行 ご と に , ON DEBUG GOSUB 文 で 指定 され た デバ ッ 
グ ・ サ ブル ー チ ン を 実行 し ます . DEBUG OFF の 実行 後 
は 分 岐 が 行なわ れ ま せん . 
DEBUG ON の 状態 で ダイ レク ト ・ モ ー ド の コマ ンド を 
入力 する と エラ ー が 発生 する こと が あり ます . 


行 番号 


DEBUG OFF 


袋 止 を 行 


@DRET 

機能 : デバ ッ グ ・ サ プ ブルー チン か ら 復 帰し ます . 

解説 デバ ッ グ ・ サ プ ブルー チン か ら の 復帰 に は 必ず DRET 
文 を 用 い , RETURN 文 は 使い ませ ん (RETURN 文 を 用 
いる と , 以後 デバ ッ グ ・ サ プ ブルー チン に 分 岐 し な く な り 
ます ). 

@DLIST 

機能 : デバ ッ グ ・ サ プ ブルー チン に 分 岐 する 直前 に 実行 し た 


行 の プロ グラ ム ・ リ スト を 表示 し ます . 


解説 LIST 文 と 異な り , DLIST 文 で は プロ グラ ム が 中 断 
され ませ ん . 
CUAU2RORIS プロ グラ ム ・ リ スト の 表示 の 前 後に お いて 


な わな い の で , 必要 に 応じ PRINT 文 を 併用 


その他 


デバ ッ グ ・ サ プ ブルー チン に 分 野 
行 番号 は , プロ グラ ム の 最初 で 

DEF FNDB ニ PEEK(1) *256 十 PEEK(2) 
と し て お け ぱ ば , 以後 は FNDB で 得る こと が で き 








する 直前 に 実行 し た 文 の 


表す 5 だ だ 
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1O 


し , ここ で の 行 錦 号 は , 実行 し た ば か り の 文 の 行 番 号 で あ 
っ て , F-BASIC の TRON 文 の よう に , これ か ら 実 行 し よう 
と する 文 の 行 番号 で は を い の で 注意 し て くだ さい . 

以上 上 の 拡張 コマ ンド を 上 手 に 使う こと に より , BASIC の 
ステ ッ プ ・ ト レー ス , 特定 の 変数 の 値 の 追跡 な ど が 可能 と 
な り , デバ ッ グ 作 楽 が 極め て 容易 と な る こと で し ょ う . 
参考 文献 
1) 風谷 マイ コン クラ ブ : “FM-8 シ ステ ム エ リ ア の 解 
1] 





析 /、1/O'81 年 12 月 号 


2) 平井 秀明 : 


FM-7 用 プロ グラ ム ・ ダ ンプ ・ リ スト 


*BASIC ANALIZER”,FM-7/8 活 用 研究 


#、 













dd 。 +Q + 
6EQOQ_ 12 C6 
6E10 Q 


+4 +5 +6 + プ + 昌 + オ 9 + 人 8 


さ +C +D +E +F Sum 
E7 BC Fa C6 G ミ B6 Q1 EE 


5 86 Bo 
Q4 15 
AF 
8D 
01 









s 75 















6EAO 4 人 0 27 
6EEO 6E 9 
6EEO_ 9@D DS 
6EDQ 47 DD 
6eEEO_Q2 DC 
B4 


5 F 品 FN E1 BZ 3 6 RB B1 44 65 16 18 9 




















+5 
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FM-7 


マイ クロ vi 


77C ア の - が 2 


AS ビ / フ ァイル の 
フル スク リー ン ・ エ ディ タダ 


③ 
脅 津田 伸 秀 


micro-vi は , バー クレ イ 版 UNIX の ui に 準拠 し た , FM-7 の 
F-BASIC 用 の フル スク リー ン ・ エ ディ タ で す . 

UNIXvi は ,16 種 ,140 以 上 も の コマ ンド を 持ち , 非常 に 強力 
で , キー スト ロー ク が 少な く , 使い 勝手 が 良く , か つも の 
すご く 大 き な エ ディ タ で す . この よう に 大 き な も の を その 
まま 6809 上 て 実現 する に は , 64K と いう メモ リ 空 間 は あま 
り に も 狭 す ぎ ま す . それ て 作者 が 特に よく 使う コマ ンド に 
し ぼっ て 仕様 を 決め , 作成 し た の が micro-vi で す . 

micro-vi は ほぼ UNIX の サブ プ セ ッ ト に な っ て いま す が , 
作者 の 好み に 合わ な いと ころ や , 単に 面倒 で プロ グラ ム を 
作ら な か っ た と ころ な ど , 一 部 の 仕様 が vi と 異な っ て いる 
の で , UNIXvi に 習 悪 し て いる 人 が ,vi の つも り て で 使う と 戸 惑 
うこ と が ある か も 知れ ませ ん . その よう な 人 は , マニ ュ ア 
ル を よく 読ん で , vi と の 違い を よく 頭 に 入れ て か ら 使 っ て 
くだ さい . 

そう は 言っ て も , micro-vi は 60 も の コマ ンド を 持ち , 充分 
使い 勝手 の 良い 実用 的 な フル スクリーン ・ エ ディ タ で す . 


デイ タ の 起動 と 終了 


RUN"vi" に より 訓 が 起動 し ます . 





File Name : 








エディ ッ ト を する ファ イル の 名 前 を 聞い て く 0 ンチ 
イル 名 を 入力 する と の エディ ッ ト ・ モ ー ド に な り ま す . 
v に 入り , エ ディ ッ ト を 行なっ た 後 ( も し く ほ は まったく 何 
も 行なわ ず ), BASIC に 戻る に は コマ ンド ・ モ ー ド に お いて 
図 1 表示 形式 


s NM / 大 





0 


has - D4Y 








Zl[zZ| と キー イン し ます . この 操作 に より ファ イル は 更新 さき 











れ , BASIC の コマ ンド ・ モ ー ド に 戻り ます 
FLEXeditor で は , エ ディ タ を 起動 する ご と に バッ クア ッ 
プ ・ フ ァイル を 作っ て くれ ます が , UNIX と 同じ よう に あ 
る 面 で 不 親切 な vi は , その よう な こと は や っ て が 
し が っ て 重要 な ファ イル の バッ クア ッ プ は , 自分 で 行 な 
っ て くだ さい . また , ii で の ファ イル の 更新 は ,[Z|z] を キー 
イン し た 時 点 で 行なわ れる の で , エディ ッ ト 中 に リセ ッ ト 
な ど で vi か ら 抜 け 出 必 の り ディ スク 中 の ファ イル は vi 
に 入る 直前 の も の の まま , 要する に 何 も 行 な われ な か っ た 


画面 構成 


vi の 画面 は 図 2 の よう に , テ キス ト ・ エ リア と ラス ト ・ ラ イ 
ン と 呼ば れる 部 分 の 2 つ に か れ で いま きず: 

画面 の 1 行 目 か ら 24 行 目 ま dei テキ スト ・ エ リ 
ア と 呼ば れ ま す . この エリ ア に は 編集 する テキ ス 0 
栓 ます 。 キキ ・ 生 0 デ MG な っ て 
お り , これ を カー ソル と 呼び ます . カー ソル は カー ソル 移 
動 コ マン ド に より 自由 に 移動 きせ る こと が で きま す . カー 
ソル が 画面 か ら は み 出 し た 場合 は , スク ロー ル ま た は 逆 ス 
クロ ー ル を 行ない ます . 

ラス ト ・ ラ イン は , vi か ら の メッ セー ジ を オペ レー タ に 
伝え た り ,、 サー チ ・ コ マン ド の よう に 文字 列 を パラ メー タ 
と し て 持つ コマ ンド や , 特殊 な コマ ンド の と き に 使う 行 で 
す . 














2 画面 構成 





と 4 
コマ ンド ・ モ ー ド 


La Ao 
O, cw, R 


図 


ESC ESC 
































text area 





24 
25 











last line 
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0O 
VI の モー ド 


vi に は 3 つの モー ド が あり ます . これ ら は 明確 に 区 別 さ 
れ , コマ ンド に より 自由 に モー ド を 変え る こと が で きま す . 
Command mode( コ マン ド ・ モ ー ド ) 

通常 の 状態 で , vi の 起動 時 は この コマ ンド ・ モ ー ド に な り 
ます . vi に 使用 きれ て いる いろ いろ な コマ ンド が 使え ます . 
@Insert mode( イ ン サ ー ト ・ モ ー ド ) 

a, A, ii 1 o, O, cw, 民 に より イン サー ト ・ モ ー ド に な り 
ます . 上 記 コ マン ド に 続け て キー イン し た 文字 は 較 も 含め , 
すべ て テキ スト に イン サー ト さ れ ま す . イン サー ト ・ モ ー 
ド か ら 抜 ける に は |ESC| を 使い ます . 

Last line mode( ラ スト ・ ラ イン ・ モ ー ド ) 

s| ま た は 門 に より カー ソル が 最 下 行 に 移動 し ます . 廊 
字 列 サー チ な どの よう に , 廊 字 列 を パラ メー タ と する コマ 
ンド や 特殊 な コマ ンド の と き , この モー ド と な り ま す . 


Vi の コマ ンド 


micro-vi の コマ ンド は , カー ソル 移動 コマ ンド 34 個 、 デ リ 
ー ト の コマ ンド 4 個 . イン サー ト ・ コ マン ド 7 個 、 リプ レ 
イス ・ コ マン ド 2 個 ., アジ ャ スト ・ コ マン ド 3 個 、 その他 
の 特殊 な コマ ンド 11 個 と 。 と て も 全部 を 一 度 に 覚え きれ な 
いく らい の た くさ ん の コマ ンド を 用 意 し て いま す . 


カー ソル 移動 コマ ンド 


エディ タ で テキ スト を 修正 する と き は , 修正 し た い 場 所 
まで カー ソル を 移動 きせ , cw な どの コマ ンド を 使っ て , 悪 
いと ころ を 修正 し ます . また , テキ スト の 確認 を する と き 
も カー ソル を 移動 きせ る こと で , ウィ ンド ウ を 移動 させ て 
確認 を し ます . つま り , エディ タ を 使っ て いる と き の か な 
り の 時 間 は , カー ソル の 移動 に 費やさ れ て いる こと に な り 
ます . し た が っ て , 目的 と する 場所 に いか に 早く カー ソル 
を 移動 で きる か が , エディ タ の 性 能 を 評価 する に お いて か 
な り 大 き な 要 因 と な り ま す . 

micro-vi で は , カー ソル 移動 の た め に 34 も の コマ ンド を 
用 意 し て , 目的 と する 場所 へ す 早 く カ ー ソ ル を 移動 きせ る 
を が で き : ま す 。 
































カー ン ソル 移動 コマ ンド 









































十 
ww ペー ジ 進 め ま す . すなわち 24 行 スク ロー ル し ます . 
は 
window を 1 ペー ジ 前 に 戻し ます . すなわち 24 行 送 ス クロ ー ル し 
ます . 
CTRL | 寺 |D 
12 行 スク ロー ル し , window が 半 ペ ー ジ 進み ます . 
CTRL | 士 |U 
12 行 送 ス クロ ー ル し , window が 半 ペ ー ジ 前 に 戻り ます . 
< 数 値 > G 


< 数 値 > の 行 に ジャ ンプ し ます . < 数 値 > を 省略 し た 場合 は , テキ 
スト の 最後 に 移動 し ます . 
プ バ 文字 列 > 

廊 字 列 を サー チ し , みつ か れ ば パタ ー ン の 場所 に カー ソル が 移動 
し ます . サー チ は 現在 の カー ソル の 位置 か ら , テキ スト の 絵 わり の 
方 向 に 行なわ れ ま す . 
< 交 字 列 > [ESC」 

文字 列 を サー チ し , みつ か れ ば 文字 列 の 場所 に カー ソル が 移動 し 
ます . サー チ は 現在 の カー ソル の 位置 か ら テ キス ト の 始め の 方 向 に 
行なわ れ ま す . 
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Tn 

サー チ ・ コ マン ド て 入力 し た 字 列 と 同じ も の を サー チ し ます . 
サー チ は 現在 の カー ソル 位置 より テキ スト の 終わ り の 方 向 に 行なわ 
れ ま す . 
N 

サー チ ・ コ マン ド で 入力 し た パタ ー ン と 同じ も の を サー チ し ます 
サー チ は 現在 の カー ソル の 位置 か ら テ キス ト の 始ま り の 方 向 に 行 な 
われ ます . 
H ま た は |HOME 

カー ソル を ウィ ンド ウ の 先頭 に 移動 きせ ます . 
M 

カー ソル を ウィ ンド ウ の 中 央 に 移動 きせ ます . 
し 

カー ソル を ウィ ンド ウ の 最後 に 移動 させ ます . 





填 ま た は 凡 
カー ソル を 次 の 行 に 移動 きせ ます . 文 の 先頭 の スペ ー ス は スキ ッ 
デ じ まず 





カー ソル を 直前 の 行 に 移動 きせ ます . 文 の 先頭 の スペ ー ス は スキ 
ッ プ し ます . 
0 
現在 カー ソル が ある 行 の , 最初 の スペ ー ス で な い 廊 字 の と ころ に 
カー ソル が 移動 し ます . 
ドコ 
現在 カー ソル が ある 行 の 最後 尾 に カー ソル が 移動 し ます . 
j ま た は 中 
次 の 行 の 同じ し カラ ム に カー ソル が 移動 し ます . 
k ま た は [| 
直前 の 行 の 同じ カラ ム に カー ソル が 移動 し ます . 
| また は [一 | また は |SPACE 
カー ソル が 1 つ 右 に 進み ます . 
h ま た は に | また は |BS 
カー ソル が 1 つ 左 に 戻り ます . 
W 
次 の 語 の 先頭 に カー ソル が 移動 し ます . 
b 






































に 】 
次 の 語 の 最後 に カー ソル が 移動 し ます . 
w 
次 の , スペ ー ス で 区 切ら れる 廊 字 列 の 先頭 に カー ソル が 移動 し ま 
8 
日 


直前 の 、 スペ ー ス で 区 切ら れる 訪 字 列 の 先頭 に カー ソル が 移動 し 
ます : 
E 

決 の ,. スペ ー ス で 区 切ら れる 文字 列 の 最後 に カー ソル が 移動 し ま 
す . 


デリ ー ト ・ コ マン ド 


不 必要 な 廊 字 列 を 文字 単位 , 行 単位 で 削除 で きま す . 





dw 
カー ソル の 位置 の 語 を 削除 し ます . 
dd 
カー ソル の ある 行 を 削除 し ます . 
数 値 dd 
カー ソル の ある 行か ら < 数 値 > 行 削除 し ます . 
D 
カー ソル より 右 の 文字 を 削除 し ます . 


X 


カー ソル 位置 の 文字 を 削除 し ます . 
数 値 x 
カー ソル 位置 より 数 値 の 数 の 文字 を 削除 し ます . 





ノー マル ・ モ ー ド か ら ,i, 1, a, A, o, 0O, cw に より イン サ 
ー ト ・ モ ー ド に な り ま す . イン サー ト ・ モ ー ド に 入る に は 
この よう に 7 種 の 方 法 が あり , 場合 に より 使い わけ て くだ 
さい . イン サー ト ・ モ ー ド か ら 抜 ける に は [ESc| を キー イン 
し が 


i 

カー ソル の すぐ 左 に 文字 を 挿入 し ます . i に より イン サー ト ・ モ ー 
ド に 入る と , カー ソル は 移動 せ ず に 入力 待ち と な り ま す . 廊 字 を キ 
ー イ ン す ん と , カー ソル の 位置 に 文字 が 挿入 され , カー ソル が 1 
つ 右 に 進み ます . イン サー ト ・ モ ー ド 中 は カー ソル ・ キ ー は 使え ま 
せん . 間違っ て キー を 押し た 場合 は [BS5| で 1 文字 抹消 で きま す .[ 選 を 
押す と 新しい 行 が 挿入 され, カー ソル は 直前 の 行 と 同じ カラ ム に 移 
動 し ます . 

イン サー ト ・ モ ー ド か ら 抜 け , ノー マル ・ モ ー ド に 戻る に は , 
ESC| を キー イン し ます . 
6 

カー ソル の ある 行 の 先頭 に 挿入 し ます . 
I を キー イン する と , カー ソル が その 行 の 最初 の 空 貼 で な い 廊 字 の と 
ころ に 移動 し . イン サー ト ・ モ ー ド と な り ま す . その 後 の オ ペレ ー 
ショ ン は , i コ マン ド と 同様 で す . 
に 1 

カー ソル の すぐ 右 に 挿入 し ます . 
a を キー イン する と , カー ソル が 右 に 1 つ 移 動 し てこ インサート ・ モ ー 
ド に な り ま す . その 後 の オ ペレ ーション は i コ マン ド と 同様 で す . 
A 

カー ソル の ある 行 に アペンド し ます . 
A を キー イン する と , カー ソル が 行末 に 移動 し て イン サー ト ・ モ ー 
ド に な り ま す . その 後 の オ ペレ ーション は i コ マン ド と 同様 で す . 
O 

カー ソル の ある 行 の 次 に 挿入 し ます . 
o を キー イン する と , カー ソル の 下 の 行 が 1 行 ず つ ス クロ ー ル し , す 
ぐ 下 に 空 文 が で きま す . カー ソル の 下 の 行 の 先頭 と 同じ し カラ ム に 移 
動 し . イン サー ト ・ モ ー ド に な り ま す . その 後 の オ ペレ ーション は 
ij コマ ンド と 同様 で す . 
O 

カー ソル の ある 行 の 直前 に 挿入 し ます . 
小娘 字 の o コ マン ド は , 次 の 行 に 空 文 を 作り ます が , 大 文字 の O コ マ 
























































CW 
カー ソル 位置 の 語 を 消去 し , イン サー ト ・ モ ー ド に な り ま す . 1 
語 を 書き 変 た た いと き に た い へ ん 便利 で す . 








リプ レイ ス ・ コ マン ド 


イン サー ト ・ コ マン ド は 文字 を キー イン し た 分 だ け 元 の 
テキ スト が 右 に ずれ , カー ソル の 位置 の 文字 は 消去 され ま 
せん が , リプ レイ ス ・ コ マン ド で は FLEXeditor の オー バレ 
イ ・ コ マン ド の よう に カー ソル 位置 の 文字 を 書き 変え た ます. 
この コマ ンド は ある 意味 で 危険 な コマ ンド な の で , 注意 し 
て 使っ て くだ さい . 


『 
カー ソル 位置 の 文字 を 1 文字 書き 変え ます . 
r に 続け て 入力 し た 文字 が , カー ソル 位置 の 文字 に と っ て 変わ り ま 
9 
R 
カー ソル 位置 以後 の 文字 を 連続 的 に 書き 変え た ます. 
R を キー イン し た 後 , 文字 を キー イン する ご と に カー ソル 位置 の 文 


字 が 置き 変わ り , カー ソル が 1 つ 右 に 移動 し ます . リプ レイ ス ・ モ 
ー ド か ら 抜 け 出す に は , イン サー ト ・ モ ー ド 同様 に [ESC| を キー イン 
し ます . 

















2 行 に 渡る 行 を 1 つ に し た いと まき, 多く の 行 の 字 下げ を 


』0 


変化 させ る コマ ンド を 用 意 し て いま す . 










) 
カー ソル の ある 行 に すぐ 次 の 行 を 結合 し ます . 
新しく で きる 行 が 80 廊 字 を 越え る 場合 は , 79 文 字 以降 が 消去 され ま 
す . 
2 
カー ソル の ある 行 を , タブ の 数 だ け 右 に シフ ト し ます (micro-vi の 
場合 、 タ プ ブ の デフ ォ ル ト は 4 ).>> の 直前 に 数 字 を キー イン し た と 
き は , その 数 だ け 右 に シフ ト し ます . 
に で 
ラン コマ ンド と 同様 の 働き を し ます . ご 想像 どおり 右 で な く 左 に シ 
フト を 行ない ます . 

















コロ ン ・ コ マン ド 


コロ ン を キー イン する と , カー ソル が 24 行 目 の ラ スト ・ 
ライ ン に 移動 し , 1 行 入 力 モ ー ド と な り ま す . この モー ド 
で は ブロッ ク 転 送 の よう に , いく つか の パラ メー タ を 必要 
と する 特殊 で 便利 な コマ ンド で す . 

コロ ン ・ コ マン ド で は , コマ ンド に 先だって 行 番号 を 入 
力 す る こと が で きま す . 行 番号 は 数 字 そ の も の に 加え ,“.? 
(ピリ オド ) で 現在 カー ソル が ある 行 , ^$′ で 最後 の 行 を 表 
し ます . さら に 演算 子 バ +?, パー” が 使用 可能 で す . た と え 
(ば, 





十 2 





は 現在 カー ソル が ある 行 の 2 行 後 の 行 を 表し ます . 


・ <line> 
line に カー ソル が 移動 し ます . 

















例 





T 1 行 目 に ジャ ンプ し ます . 

『 テキ スト の 最後 の 行 に ジャ ンプ し ます 

:S 一 20 | 最後 か ら 20 行 目 に ジャ ンプ し ます . 

・. 十 100 | 現在 カー ソル が ある 行か ら 100 行 目 に ジャ ンプ し ます . 


: <line1>、 <line2>m<line3> 記 
jine1 か ら line2 ま で の 行 を line3 の 直後 に 移動 し ます . 
(ine1 マ line2) and (ine3< く line1 or line3>line2) で な く て は いけ ま 
せん . また jine2 を 省略 し た 場合 は , line2 三 jinel と みな し ます . 
例 


: 10, 20m40| 10 行 目 か ら 20 行 目 ま で が 40 行 目 の 次 に 移動 し ます .、 











: .m. 十 10 | 現在 カー ソル の ある 行 が その 行 の 10 行 後に 移動 し ま 
す . 

・ 1,.m$ 1 行 目 か ら 現 在 カ ー ソ ル が ある 行 ま で が テキ スト の 最 
後に 移動 し ます . つ まり 現在 行 の 前 後 が そっ くり 入れ 
替わり ます . 








: < く line1>, <line2>co<line3> に | 
line1 か ら line2 ま で を line3 の 直後 に コピ ー し ます . (line1<line2) 
and (ine3 ぐ line1 or line3>line2) で な く て は いけ ませ ん . また ., line 
2 を 省略 し た 場合 は , line2 王 line1 と みな を し ます . 
例 


・ 10, 20co30 














10 行 目 か ら 20 行 目 ま で を 30 行 目 の つ ぎ に コ ピー 
し ます 。. 

: . 填 10co. 十 10 | 現在 カー ソル が ある 行か ら 11 行 を 10 行 後に コピ 
ー し ます . すなわち 11 行 の 複製 が 作ら れ ま す . 


・ <line1>, <line2>s/pat1/pat2 記 
line1 か ら line2 ま で の 間 で , 最初 の pat1 を pat2 に 変換 し ます . 文字 

列 の セパ レー タ は 通常 [/| を 使い ます が , これ は pat1, pat2 に 合 ま れ な 

い 廊 字 な ら ば 何で も 構い ませ ん . 

例 














: 10, 20s/kumagai/ikejiri/ | 10 行 目 か ら 20 行 まで の 間 の 最初 の kum- 
agai を ikejiri に 変え ます . 


: 1,Ss/go to/makichan/ テキ スト の 最初 の go to を makichan に 


131 


』O 


変え ます . 


・ <line1>, <line2>s/pat1/pat2/g 
linel か ら line2 ま で の 間 の すべ て の pat1 を pat2 に 変換 し ます . 
例 


: 1、$s /Z80/6809/g 











すべ て の 2Z80 を 6809 に 変え ま 
す . 

100 行 目 か ら 200 行 まで の すべ 
て の long skirt を mini skirt に 


変換 し ます . 


: 100,200s/1ong skirt/mini skirt/g 











: <line1>、 <line2>d 記 

line1 か ら line2 ま で の 行 を 消去 し ます . 
:q 較 

テキ スト を セー プ せ ず に , vi か ら 抜 け 出 し ます . 
: < 数値 >t 過 

水平 タプ の カラ ム 数 を 設定 し ます . 








その 他 の コマ ンド 


? 


現在 の 行 番号 と , 残り の メモ リサ イズ を 表示 し ます . 








UNIXVi 
使 つ て いる 人 へ の 注意 


既に 述べ た よう に, micro-vi1 は UNIXvi に 準拠 し て いま す 
が , 完全 に コン パチ ブル で は あり ませ ん . micro-yi は で きる 
限り UNIXvi と の コン パチ ビリ ティ を 確保 むす る よう つと め 
まし た が , 一 部 の 仕様 が vi と は 異な っ て いま す . 

以下 に micro-vi の 相 培 点 , 注意 点 を 示し ます . 
@Wundo コ マン ド が あり ませ ん . 

micro-v1 で は か な り の 数 の コマ ンド が 省略 され て いま す . 
特に , u コ マン ド が な い の で UNIXyi の よう に , 間違っ て 消 
し て し まっ た ライ ン を 復活 させ る こと が で きま せん . 

注意 し て くだ さい . 
サー チコ マン ド の 仕様 が 少し 異な り ま す . 

テキ スト の 始ま り の 方 に 向かっ て サー チ す る と き の 形 式 
が 異な っ て いま す (UNIXyvi は ?pat だ が micro-vi は /pat 
ESC|)). また UNIXvi は サー チ の と き に テキ スト の 最後 まで 
行く と 。 テキ スト の 始め に ワー プ '" し ます が , micro-vi で は 
ジー アプ し きま 生ん 。 
パタ ー ン 指定 の と き 特 殊 キ ャ ラク タ が 使え ませ ん . 

ザー デュ ロマ ジン ジ ド な どの パタ ー ジ で YY 7 な だ の 
特殊 文字 は 使え ませ ん . 
⑳ イ ン サ ー ト ・ モ ー ド の 中 に [CTRL 十 [p| は 使え ませ ん . そ 









































表 1 マシ ン 語 プロ グラ ム ・ エ リア 
プロ グラ ム 名 | 開始 




















2000 | 53FF | 2000 

vilIO | 1400 | 1906 | 1700 | 3 | ロー ダ ( コ メン ト 付 ) 
vis.O | 1400 | 1879 | 1700 | 4 | セー バ ( コ メン ト 付 ) 
vil2.O | 1400 | 186A | 1700 | 5 | ロー ダ ( コ メン ト な し ) 
vis2.O | 1400 | 1859 | 1700 | 6 | セー バ ( コ メン ト な し ) 











の 代わ り に [BSs| が 正常 に 動作 し ます . 

@ 左 また は 右 へ の カー ソル 移動 で 行 を 変る こと が で きま す . 
UNIXi で は , 行末 で きら に 右 に カー ソル を 移動 きせ る こ 

と は で きま せん が , micro-vi で は 次 の 行 に 移る こと が 可能 

で ず 。 

⑥UNIXvi で は , 水平 タプ は 水平 タプ の コー ド で メモ リ に 収 

納 さ れ ま す が , micro-vi で は すべ て スペ ー ス に 変わ っ て メ 

モリ に 格納 され ます . 





ー ニ ーー 

司 

⑩80 字 を 越え る 行 を 含む ファ イル は 編集 で きま せん . 

の ② の ディ スク ・ ド ライ ブ は , ドラ イブ 0 の み を 使っ て くだ さ 
い . 

ASCII 形 式 の ファ イル を 扱い ます . 

BASIC の コメ ント 付 フ ァイル の 場合 は . ロー ダ と し て リ 
スト 3 の vil.O/ を 使い セー バ と し て リス ト 4 の vis.O? 
を 使っ て くだ さい . この と き の BASIC メ イン ・ プ ログ ラム 
を リス ト 1 に 示し ます . アセ ンプ ラ (富士 通 製 ) や 氏 コ ン 
パパ イラ な どの ソー ス ・ プ ログ ラム を 作る の に 利用 で きま す . 

単なる ASCII フ ァイル の 場合 は , ロー ダ と し て リス ト 5 
の vil2.0” を 使い 、 セー バ と ヒビ て で リスト 6 の いび vis2.0” を 
使っ て くだ さい . この と き の BASIC メ イン ・ プ ログ ラム は , 
リス ト 1 の 190 行 と 210 行 を 変更 し て くだ さい (リス ト 7 ). 

vi を 起動 する に は , リス ト 1 の BASIC メ イン ・ プ ログ ラ 
ム を , RUNYvi/ [ 恨 で 走ら せ て くだ さい . 

*File Name :” と 閉 い て きた ら , 編集 し た い フ ァイル 名 
を 入力 し て くだ さい . 編集 を 終ら せる と , “vi.out” と いう 
ファ イル が 作ら れ , 次 に 指定 の ファ イル 名 に 名 前 が 変更 さ 


本 ま 学 。 
呈 思 . ク ヒー 】 
最後 に 


FLEX 用 の micro-vi が , 制作 ワン ダー ソフ ト , 販売 コム パ 





ッ ク か ら , ディ スケ ッ ト で 供給 され て いま す . 価格 は \9。 
800 で す . こち ら は FLEX 用 と いう こと で , すべ て マシ ン 語 
で す . 


vi BASIC プ ロ グ ラ ノム 、 還 還 昌 還 昌 昌 昌 昌 





aa リスト | 
199 “" に 

119 『" 1 Micro-vi Version 1.9 1 

129 " 1 Copyriqght (c) 1983 by 1 

1 さ の " 1 N.Tsuda 1 

149 * レレ ーー ーー ーー ーーーーーーーーーーーーーーーーーーーーーーーーーーーー} 

159 『 


16⑨ CLEAR 59。&H1 さ FF:DN ERROR GBDTU 249:CUNSOLE , 。 。 1 


179 MIDTHB9.25: PURE &H6FFC。%&H ヨ 9: PUEKE SH6FFD。9 

1 ヨ 9 INFUT"F1i1 Name :"。F ま :TF F ま = リリ BUTH 19 

199 UPEN" 1 "1。F ま :LOADM "vi12. ロ " 。 Rs CLOSE 拉 1 

299 LUQDM" vim" 、,R: IF FEEK (SH6FF ビ )= ニ 9 THEN ご さら 

219 0FEN" ロ " 。 拉 "vi Out" LOADM" Vi 52. ロ "Ri CLOSE 音 2 
229 KILL F ま kNQNE "Yi Out "AG F ま 


259 IF ERL=22 の THEN RESUME NEXT 





165 FUKE &H6FFBE, SHSE: PUKE SHFFF6。 4H6F : PUKE SHFFF7。&HFBE 


2 さ 9 CLEAR さ 99。 SH6FFF : CNSHLE 。 。 。 9 ら : FUEE &HFFF6。 1 : PUKE &HFFFZ。&HE9: END 
249 1TF ERL=199 THEN CLOSE 失 1:LUCATE 9.24:FRTINT F ま ": 


New Fi1e"i:RESUNME 299 
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2 vm ロマ シン 話 ダン プ ・ リ スト 








dd +② 1 オ つ + さ +4 + 口 +6 + プ + ヨ +9 +Q +B +C +D +E +F Sum dd  +② 1 + つ + さ +4 + 口 +6 + プ + 日 +9 +Q +B + ヒ +D +E +F Sum 
2969 さ 4 7F 1@ FF 6F FE BE 6F @9 32 @1 17 @1 6C 32 E9 :FE S5G9 46 1D 34 @6 EC DB @4 5 49 34 Go6 5 49 5 49 ES :65 
< の 919 FF GO さ 3 E9 @9 9 さ 1 D ささ BB 17 61 9D 17 @1 3 :Z 251 ら E1 E3 E1 日 さ @G9 39 ED DB @4 EC SE CS @G9 @1 ED SE 7 
2929 19 FE 6F FE 3 FF 34 7@ 17 91 1 1F 9 C1 1 26 :2E 252O 16 FF C6 EC 5E 35 DO さ 4 4@ 33 E4 32 7E EC 46 さ 4 CB 
SO39 65 CC FF FF 35 FG C1 ら D 26 92 C6 9a 4F 35 F9 EC :1a 25 さ の @6 17 @ ら 3 日 F 32 62 Q3 4C 19 2C GO @C EC 46 34 @6 :E6 
SO49 62 34 76 1F 98 1 @9 26 G2 6 29 1 @Q 26 65 17 :EB 2549 17 @3 の O 32 62 16 GO @G2 EC 4C ED 5E EC 5E 3 4 :@9 
SO5O 91 28 355 F6 17 91 29 355 F6 EC 62 34 @6 8BD E9 35 :EA 2559 1 ら 2F GO @7 EC 4 3 BE 16 GO @2 4F 5F ED 4 EC ie6 さ 
2969 日 6 さ 4 さ 6 A6 E4 E6 6 さ 3D EZ 64 EC 61 3D EZ 65 a6 :C フ 7 2569 48 1 の 9 27 G9 21 EC 4C 34 @6 EC 46 34 @6 EC 44 34 :E2 
2979 61 E6 6 さ さ D QB 64 QH 65 さ 2 66 39 6F E2 BC の 9 G@ :B4 2579 66 17 GO 32 32 66 EC 4 さ 4 @6 EC 44 34 G6 17 @9 siDB 
29B9 2 の 9 63 E4 1E @1 17 G9 95 1E の 1 4D 2 95 63 E4 :27 25B9 5C さ 32 64 16 ら GO 1E EC 4 さ 4 @6 EC 44 34 @6 17 @9 』17 
2699 17 GO BB 17 GO BD 1F 19 6D E 2 63 17 @9 7F 39 :BE 2599 4C さ 32 64 EC 4C 34 @G6 EC 46 さ 34 G6 EC 44 さ 34 @6 17 :41 
29RO 17 GO GO 1F 19 39 6F E2 ヨ C 99 @9 2 96 1E 91 BD =BB 25QO の 6O Oo4 32 66 35 C6 34 4 33 E4 E6 DB 966 1D 1@ 27 ki3A 
SOBO 6D 1E @1 4D 2Q 94 63 E4 BD 64 8D 67 6D E9 2 92 :aC 25BO 69 29 EC 4 ヒビ く FF FF ED 4 日 S GO GO 1 2D 99 15 si28 
<OCO BD SC 39 BD 5E さ 9 BC 99 99 2B 9 27 @E 5 49 3@ : ら B 25CO EC 44 さ 4 G6 QE 46 E6 9 AF 46 1D 34 G6 17 FC aB iCB 
<ODO 1F 2O FB 27 Go6 47 6 39 91 29 FB 39 ヨ C 9 @9 2B :3 25DO 32 64 16 GO @ さ 16 GO GS 16 FF CF さ 35 CO さ 4 49 ささ 48 
29E9 6 27 GE 5 49 3@ 1F 29 F ヨ 27 Go6 44 56 さ 39 91 29 :5D 25SEO E4 EC 46 3 FF FF ED 46 日 さ @9 @9 1 の 2D @ 11 EC CZ 
9 25FO 44 34 G6 CC @9 29 さ 34 @6 17 FC 7D 32 64 16 FF E1 iCO 





dd  +@ +1 2 3 +4 + 品 + ら 6 + フ + 日 +9 +aA +B + ピ +D +E +F Sum dd  +G +1 + つ + さ +4 +55 +6 + プ + 日 +9 + +B + ピ +D +E +F Sum 
2199 96 5 49 さ の 91 29 F ヨ 39 ヨ C GO 9 2B 8 ヨ 27 @E 44 :o1 2699 35 CO さ 4 4 の ささ E4 EC 44 日 3 の 9 @@ 1 2C @9 1F CC si5a 


2149 35 1 の O 32 62 39 D 5@G CC 9C @3 FD FC 2 8D 5 日 BD :B フ 7 2649 E4 CC 6G9 @Q 34 @6 EC 46 さ 4 @6 EC 44 34 @6 17 99 kiE1 
215 の 9 46 CC 29 @9 FD FC 2 BD 4E D 3C 6 9 B7 FC 9 :9 さ 265 の O 63 32 66 355 CO さ 4 49 33 E4 E6 45 1D QE 46 EZ7 4 :22 
169 FC FC 3 さ 4 96 BD 49 35 96 5D 27 D9 34 92 BD 27 :94 2669 4F 5F AE 46 EZ7 @1 EC 46 35 CO 34 49 33 E4 CC 99 si98 
2179 CC @GC GO2 FD FC 2 BD 2F 35 2 6 @D BD @2 6 @ 7Aa 2679 98 さ 4 G6 EC 46 34 @6 EC 44 34 @6 17 @9 36 32 66 siFD 
2189 34 12 BD 13 BE FC 9 a6 E4 a7 94 6 93 a7 92 6 :DD 26B9 35 CO 34 49 33 E4 CC 99 19 34 96 EC 46 34 @6 EC kiEE 
2199 の 1 7 @3 D 12 さ 5 92 B6 FD 6@5 2B FB 6 9 B7 FD iQ9 2699 44 34 G6 17 GO 1E 32 66 355 CO 34 4 33 E4 EC 44 :FB 
21QO 65 Bo6 FD @5 2A FB 39 4F BZ FD 95 39 1Q 49 39 1C siGB 26Q9 日 3 の 9 GOQ 19 2C OO 6 CC ら 9 3 16 ら 9 63 CC 69 37 siE7 


21D9 ED 22 CC 99 92 ED 24 CC @9 63 ED 5E EC SE 3 99 :D5 26DG 17 F9 FO 34 96 17 FF C2 32 62 AE 54 EZ の aF 54 』12 
21EO 1 の 1 の 2C @9 17 EC 5E 5 49 さ 3@ a4 さ 9 BB CC FF FF saZ 26E9 EC 4 さ 4 G6 EC 44 35 19 17 F9 BS ED 44 日 S @9 99 s5C 
21FG ED 4 EC 5E C3 99 91 ED 5E 16 FF E9 EC 46 34 96 :2B 26F9 19 26 FF D4 4F 5F ED SE AE 54 E6 82 AF 54 1D AE :3a 





dd  + す G +1 + つ + う +4 + +6 + フ プ + 日 +⑦ +Q +B + ビ +D +E +F Sum dd 。 + の 1 + つ + さ +4 + 呈 +6 + フ + 日 +9 +Q +B + ピ +D +E +F Sum 
2499 92 69 32 64 16 GO B5 19 日 G9 6F 19 26 9 14 3@ sDF っ 9o の O の 9 QE CC Go @F ED aA9 GB F5 EC a9 @B F1 34 @6 EC iD 
241 の 9 51 34 1 QE 4 EC 1 AF 48 34 G6 17 92 4C 32 64 =:24 2919 9 GB F さ 34 96 17 2 B1 32 64 CC @9 5 ら 34 66 EC RA6 
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リス ト 2 vim マ シン 語 ダ ンプ ・ リ スト 

[ Rdd  +② +1 +2 + さ +4 + ロ Rdd  +@ 1 +2 + さ +4 +5 +6 +7 + +9 +Q +B + ビ +D +E +F Bum 
2099 さ 99 1C 27 9 1@ 2FGO ED SE 3 FF FF E3 44 34 96 17 22 BD 32 64 CC 99 5 
2Q1 の 16 92 6 ヨ 19 3 69 2F1 の 9 29 さ 4 @6 17 F さ 3 ヒ CB 32 62 16 9 3E EC 5C さ 99 29 sFF 
229 日 さ 99 6 19 26 99 2F2O 1 の 2D GO 35 EC 5C 日 3 969 の 1 の 2C 69 2C EC SE 3 の 9 si9F 
203O 2H 27 9 19 3 99 2 っ F3 ら 9 6 FB 39 BB EC 5C E7 4 EC 46 34 66 EC SE CS :9 さ 
2049 7 19 B ミ 99 2D 19 2F4O の @9 91 ED SE 日 3 99 @1 E さ 44 34 G6 17 22 7B 32 64 si7B 
205 の O 3 69 24 19 26 99 2F5 ら EC 5C 34 96 17 F3 日 7 32 62 EC 5C 日 S @9 @Q 19 27 :B3 
2069 77 19 26 99 96 17 2F6G GO @9 EC 5C 3 99 1B 1 26 FF 6 EC 46 34 @6 EC :E4 
2Q7O 26 @9 @6 17 1D EB 2F79 5E E3 44 34 96 17 22 1 さ 32 64 CC @9 29 34 96 17 =:1C 
20B の 9 96 17 1B 3F 16 92 2F ヨ GO F さ 5C 32 62 EC 5E 3 の 9 QA9 6B FB 39 8B 4F 5F E7 4 iDD 
2099 1Q 54 16 92 26 19 2F99 EF 5C 32 C4 35 CO 34 49 33 E4 32 7E 17 F3 39 日 3 sk2B 
20Q9 16 92 1 19 日 3 99 2FQO GO9 5Q 19 26 6O 22 17 1E 8BD CC 6F FC 1F @1 EC 9 :69 
2QBO 9Q 19 日 3 99 @6 19 
20CO 3 99 94 19 26 99 
2ADO 62 16 91 EZ 19 8 さ 
2QE9 91 D9 19 日 3 99 15 
2QF9 9 EZ7 32 62 16 9@1 
Sum: 11 9C 1Q QB BB DR 
Rdd  + の +1 +2 +3 +4 + 品 + せ 6 + ブ 7 + 日 dd  +② 1 + つ + う 3 +4 +55 +6 + プ + 日 +9 + 人 Q +B + ビ +D +E +F Sum 
2BOO QA9 9 F7 19 27 99 9E EC 9 さ 999 5C C さ GO 91 ED 5C 日 S GO @1 35 1 の E6 BB 1D QE 9 17 
2B1 の 32 62 16 @9 9 17 26 54 34 さ の 1 の の 〇 1 6B E7 9 aQF Q9 @1 6B 日 S GO @9 1@ 26 FF CB EC :@ さ 
2B2O 9 の 1 99 19 3 99 63 19 26 99 うさ 929 5E C さ G9 91 ED SE 16 FF B1 35 D6 34 49 33 E4 32 :FB 
2B39 19 日 3 99 ら B 27 6 19 3 99 さ 93 の 9 78 EC QA9 9 F1 3 9 GO 1@ 2C GO 4F EC 9 @1 6B si155 
2B4 の 9 34 96 17 92 FB 32 62 16 9@1 さ 394 ら 3 9 61 67 19 26 @9 17 CC @9 97 34 96 17 F2 BE ia5 
2B5 の 9 の 9 9D CC 9@9 17 34 96 17 92 さ 95G 32 62 4F 5F ED Q9 GB F3 ED 9 9 F1 16 99 2C 17 siBB 
2B69 3 の 9 4D 1 の 26 9O 9D CC @9 さき 969 @1 F1 CC @9 17 34 96 17 @B SD 32 62 17 @9 CS CC :CB 
2B79 62 16 91 47 19 3 99 3 19 さ 979 99 17 34 26 17 22 EE 32 62 17 21 a1 4F 5F 34 @6 iCD 
2BBO 91 39 19 3 99 2F 19 26 99 さ 989 17 22 ささ 32 62 4F 5F ED a 9 F1 EC Q9 @8 F1 3 si4E 
2B99 1 の 日 3 99 6E 19 26 99 96 17 さ 999 GO 17 19 2F GO9 29 EC 9 @1 6D 3 9 @1 69 19 26 seE 
2BQAO 299 4E 19 26 69 @6 17 1 さ AD 3GQG 99 1Q CC 99 97 34 6 17 F2 34 32 62 CC @9 17 ED CB 
2BEB の 19 26 99 @6 17 11 D 16 @1 さ 39BO Q9 OB F1 4F 5F ED QA9 GB F3 16 @9 @3 17 @9 2 CC :@7 
2HCO 99 @6 17 @9 CB 16 99 F3 19 さ 9CO 99 59 34 の 96 EC QA9 9 F1 3 19 17 EF 94 34 @6 3③9 si61 
2BD9 17 9 BE 16 99 E5 19 3 @9 さ @DG QA9 @1 71 1F 1 の 9 E3 E1 QE 9 GB F3 E6 BB 1D 1 の 26 s:24 
2BE9 BE 16 99 D7 19 3 99 69 19 さ 9E9 G9 93 17 FD 67 32 C4 35 C9 34 49 33 E4 17 @9 AF sBA 
2BF9 96 17 OB F7 32 62 16 99 C2 39F9 CC 69 17 34 96 17 Ga F1 32 62 17 69 DG CC @9 1 :BE 
Sum: 9②1 1C 1E @1 D1 B7 3 59 97 9C 19 BC 76 4 さ 3 DF C9 =: 日 7 Sum: さ 3E 9F B3 5C D6 79 47 37 CaQ 2 の 6F 3 BF 13 CB 28 :77 


























+ さ 3 +4 キロ すら 6 +7 +B +9 +Q +BH +C +D +E +F Sum Add + の 1 +2 + さ +4 曲 +6 + フ + 日 +9 +Q +B + ビ +D +E +F Sum 
ED A9 OB F3 CC GO 59 34 @6 EC a9 9B F1 :97 339 の 5E AE 44 E6 9 AF 44 1D 19 27 G9 GQ EC 5E CS @9 =14 
F2 4C 34 の 96 3 の 9 A9 91 71 1F 1 の ES E1 QAE :CO ささ 1 の @1 ED 5E 16 FF EB EC SE 35 D9 さ 4 4 の 33 E4 17 G9 siS3D 
E6 BB 1D ミ @9 29 19 26 @9 GE EC 9 9 =:B6 さ 329 @5 17 FQ D9 35 CO 34 49 33 E4 CC FF FF 34 96 17 =:BQ 
91 ED 9 8 F3 16 FF CC 35 CO 34 49 33 =:C5 ささ さ の 9 @9 14 さ 2 62 35 CO 34 49 さ 3 E4 CC @9 @1 34 6@6 17 =:46 
ED 9 @ F1 17 FF BS 35 C9 34 49 33 E4 :EC ささ 4 の @9 4 32 62 35 CO 34 49 33 E4 EC A9 G8 F1 E3 44 :CD 
A9 G8 F さ 3 CC @9 5 34 96 EC A9 @B F1 35 :58 335@ ED 9 GB F1 17 FC D4 EC QA9 6B F7 CS FF FF ED 9 :61 
FD 34 96 39 9 @1 71 1F 1 E3 E1 aE 9 :E4 さ 369 @ F7 3 らら GO 19 2E FF E1 35 CG 34 49 33 E4 CC :EC 
BB 1D 1 の 27 GO GE EC 9 9B F さ 3 C3 99 91 :22 3379 @9 5 ら 34 ら 6 EC A9 @GB F1 35 1 の 17 EC E4 34 @6 さ 39 :QE 
F3 16 FF CF 35 C@ 34 4 の @ 33 E4 32 7C EC :BF 33B9 QA9 の 1 71 1F 1 ES E1 AE A9 G8 F さ E6 BB 1D 3 @9 : フ 1 
1 1 の 26 @9 3 フ 7 EC 46 さ 4 @6 EC 44 34 66 :24 ささ 99 GO 1 の 27 GO ら B EC Q9 @B F さ さ GO 4F 19 26 @@ 14 =sEE 
32 64 4F 5F ED SE CC @9 59 3 44 83 @9 =:75 33AO EC QA9 ら B F1 CS GO @1 ED 9 @B F1 4F 5F ED 9 @8 :2D 
EC 5E QS E1 19 2C 9 14 CC 9 29 34 @6 :7F さ 3BO F さ 16 ら 9 の B EC 9 G F さ 3 @9 @1 ED 9 @8 FS 17 =19 
32 62 EC 5E CS @9 91 ED 5E 16 FF DA 4F =:51 33CG FC 69 EC A9 G ヨ F7 ビ さ FF FF ED Q9 8 F7 3 @9 @9 sD2 
EC 46 34 @6 EC 5E E3 44 34 96 17 22 E9 :E さ 33DG 19 2E FF 9B 35 CO さ 4 49 ささ E4 EC 9 9 F さ 日 S 99 =6B 
F さ 3 EQ ED 5C 3 @@ @ 19 26 @9 2D EC 5E :@B 33EG の 1 ED 9 ら B F3 EC 9 OB F3 日 3 99 @9 19 2C 99 12 =sF さ 
1 の 2F 9 21 EC 46 34 96 EC 5E C さ FF FF :5Aa ささ SF の CC ら 9 4F ED QA9 ら 6B F さ EC A9 @B F1 B3 @9 91 ED 9 54 
2E 18 37 8 36 17 @R 69 17 ea 7 F2 2 CC Sum: BQ GE 42 E4 C4 B2 FC E9 73 DF F1 7 FC DC 2F @5 :@9 l 





,O 


リス ト 2 vm マシ ン 語 ダン プ ・ リ スト 





Add  + す の 1 づつ + う 3 4 + 品 +6 + フ + ロ +9 +Q +B + ビ +D +E +F Sum dd  + ら +1 + つ + う 3 + 人 4 + 口 +6 + プ + 日 + す 9 +Q +B + ビ +D +E +F Sum 
さ 499 9 F1 17 FC 26 EC QA9 @G FZ7 CS FF FF ED a 9 FZ si1C さ 99 の 6 E1 1F @1 35 96 EZ7 4 EC 5D CS @9 @1 ED 5D 16 FF =:1 さ 3 
さき 41 の 日 3 9 GO 19 2E FF ヒ 3 35 CG 34 49 33 E4 17 FF 16 :2F さ 91 の 9 QA7 CC GO 5 の 34 96 EC QA9 9 F1 35 19 17 E フ 7 42 34 ki44 
さ 42 の 9 17 F9 DaQ EC QA 6 F7 CS FF FF ED QA9 6 F7 3 9@9 : ロ 7 さ 92 の の 6 さ 39 Q9 @1 71 1F 19 E さ E1 CS @9 4F 1F @1 4F 5F :i24 
さき 4③② 9 1 の 2E FF EB 35 CO 34 4 の 9 33 E4 32 7F EC 8 68 :F さ さ 93 の E7 日 4 EC 9 G 昌 F さ 3 FF FF ED 9 9 F3 EC aA9 9 s:EA 
さ 449 F さ 3 日 S @9 4F 19 27 99 63 EC QA 6 F1 さ 4 @6 EC 9 siBC さ 94 の F1 34 96 17 19 79 32 62 16 FE Ra6 E6 5F 1D 日 S @9 FE 
さ 459 9 F さ さ 4 @6 17 1D 72 32 64 17 EE 73 EZ7 5F 3 @9 sB2 さ 395 ら 9 1H 1 の O 26 の 9 93 16 99 @3 16 FE 96 32 C4 35 C9 34 : さ 6 
さ 469 29 1 の 2D @9 46 E6 5F 1D 日 3 @9 7F 19 2C @ ら 9 3C EC :6B さ 96 の 6 4 の ささ E4 CC OO GO2 さ 4 G6 17 GO 2 32 62 CC 99 91 sFF 
さ 47 の 9 A9 6 F3 C さ @O 91 ED 9 6 F さ S 日 ミ @G9 9@1 さ 4 @6 CC =: くさ さ 97 の 6 34 66 17 FE 76 32 62 35 CO 34 49 さ 33 E4 CC 9G9 91 sQ6 
さ 4BO GO 59 さく 4 G6 EC 9 ら ヨ F1 3 さ 5 1 17 EB D4 さ 4 @6 3@ sD さ 3?8 の 6 さ 4 G6 17 GO GE 32 62 CC GO @1 34 6G6 17 FE 5C 32 is9D 
さ 49 の 9 A9 の 1 71 1F 1 の E さ E1 ES E1 1F @1 E6 5F 1D EZ 4 sBF さ ?96 62 さ 5 CO 34 49 33 E4 32 7C EC 44 3 69 @1 19 26 7 
さ 4AO EC QA9 9 F1 34 96 17 1E GD さ 2 62 35 C2 34 49 さく =s さ ヒ さき AO GO 1F 17 F ヨ AE EC Q9 GB F1 3 G9 17 19 27 69 GE :49 
さ 4BO E4 CC 99 1 日 さ 4 G6 4F 5F さ 4 @G6 17 1D @C 32 64 39 =:FG さ 9BO CC 99 17 3 Q9 G F1 34 @6 17 62 6H さ 2 62 16 99 : さ 9 
34CO BC 92 2 の 9 2D 43 6F 79 79 72 69 67 日 74 2 2 63 si さ F さ 9CO 5D EC QA9 GB F1 日 さ 99 17 1@ 27 @9 29 17 F ヨ 4 EC :64 
さ 4DO 29 2 の 9 さ 1 39 3 3 さく 29 62 79 29 4E 2E 54 73 75 64 i55 さ ?D9 9 G F1 C3 99 の 1 ED Q9 6 F1 日 3 99 91 日 S @9 16 :12 
さ 4E9 61 2C 2o 54 73 75 6B 75 62 61 26 55 6E @69 76 2E :7C さ 9EGO 1 の 27 GO GE CC G9 17 くさ 9 9 F1 34 96 17 91 D フ 7 :96 
さ 3?F の さ 2 62 16 @G9 29 17 F フ 7 aA7 CC @9 17 34 96 17 @1 E9 =:Q6 




















GOO 
OSG⑤ ぐ ら G よ ま 品 お い に 
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リス ト 2 vim マ シン 語 ダ ンプ ・ リ スト 

dd +② +1 +2 + さ +4 + コ +6 + プ + 昌 49 dd  +9 1 +2 + う +4 + + ら 6 +7 + 日 +19 +Q +B +C +D +E +F Bum 
さ E99 99 日 1 CC 69 59 34 @6 EC 9 68 4 さ 3G9 5F ED Q9 9 F3 17 @1 69 ED SE Q さ Q9 9 F1 QA3 44 siB 
さ E19 17 E2 4E 34 96 39 9 @1 71 1F 4 さ 31 の 9 19 2F 99 11 EC 44 34 96 EC 9 @1 67 さ 4 @6 17 99 sGB 
さ E29 BB 1D 1 の 27 69 5D CC 969 5@ 34 4329 45 32 64 35 Do EC SE 人 Q さ QA9 9 F1 CS @9 1 日 3 44 』 さ フ 
さ E39 99 91 355 19 17 E2 2 34 @6 39 4 ささ 9 1 2E GO 1E EC SE 3 Q9 6 F1 ヒス 3 @9 17 さ 4 96 EC =:EB 
3E49 E1 34 96 EC 5C C3 @9 91 ED 5C 4 さ 49 44 3 E1 さ 4 G6 EC 9 G1 6D 34 G6 17 @9 1 日 さ 2 64 =:94 
さ 3E5 の BB 1D 34 66 EC SE CS 99 @1 ED 435 ら 35 D6 EC 44 Q3 SE ES3 Q9 9 F1 ED 9 @B F1 4F 5F :FE 
GE69 CC 69 59 さ 4 96 EC 9 98 F1 35 4369 ED QA9 9 F さ 3 35 D6 さ 4 49 33 E4 EC 46 さく FF FF ED si9Z 
3E79 3 の QA9 @1 フ 71 1F 19 E さ E1 ES E1 4 さ 3 フ 79 46 日 S 9 G9 19 2F @9 2 EC 44 Q3 Q9 91 69 19 26 =:4C 
さ EB9 16 FF 76 EC 9 9 F}1 34 @6 17 43 ヨ 9 GO 19 EC 9 91 69 34 G6 17 F2 93 32 62 ED 44 16 siCO 
さ E99 91 34 96 EC 9 9 F1 C さ 99 91 4 さ 399 GO GE QE 44 E6 9 QF 44 1D 19 26 FF F5 16 FF CA 7F 
さ EA9 64 35 D6 34 49 33 E4 32 7E EC 43QO 4F 5F ED Q9 G8 F3 ED Q9 9 F1 EC 44 34 96 17 FE =:4D 
さ EBO SE 3 99 5@ 19 2C 99 2F EC SE 43BG 3 さ 5 さ 2 62 35 Co 34 49 33 E4 CC @9 1 34 @6 4F SF :15 
さ ECO @G9 91 さ 4 66 CC の 9 59O 34 966 EC 43CG さ 4 G6 17 GE @4 32 64 EC A9 91 6D 3 a9 91 6B 34 >:E 昌 
さ EDG E1 ヨ F 34 @6 39 QA9 @1 71 1F 19 43DG @6 17 GO 3D 34 @66 さ 39 日 C 62 29 2D 29 6C 69 6E 65 :67 
さ EE9 4F 5F EZ7 4 16FF ヒビ CBEC Ia9 e@8 43EG 29 25 64 2 の 29 25 64 29 62 79 74 65 2 の 66 72 65 =: 
さ EFO 32 62 35 C6 34 4 の 33 E4 CC 99 4 さ F ら 65 2E 29 2 の 29 2 の 2 の 29 2 の 2 2 の 2 の 2 の 2 29 2 の : ら 3 
Rdd  +② 二 1 +2 + さ +4 + 品 +6 + プ + 日 +9 dd  + す の +1 + ユ つ + さ +4 + 品 +6 + ブ プ + 日 +9 +Q +B +C +D +E +F Sum 
さ F9O @6 17 12 C5 32 64 39 BC 62 29 44OO 29 2 の 2 の 29 29 29 29 GO さ 4 19 17 DE E5 32 66 35 :CB 
さ F19 ES E9 32 62 CC @9 1B 34 @66 CC 441 の CO 34 4 の さ 3 E4 32 7C 4F 5F ED SE EC Aa9 @1 67 ED iDC 
SF2O_ 68 32 64 日 3 GO 96 19 26 69 6E 442 の 9 5C EC SC QS QA9 @1 6B 1 24 @9 19 E6 DB FC 1D 19 :99 
うさ F39 17 GO9 34 32 62 16 99 9B 39 9 44 さ の 26'OO 97 EC SE C さ 3 @9 @1 ED SE EC 5C C3 @9 91 ED :7F 
3F49 SE 32 62 35 CO 34 4@ ささ E4 39 4449 5C 16 FF DD EC Q9 9 F1 E3 SE CS 99 @1 さ 2 C4 35 :9C 
さ F59 99 15 32 62 35 C9 34 49 さ 33 E4 445 の CO 34 4 の ささ E4 CC 99 59 さ 4 96 EC 9 8 F1 35 19 :74 
さ F69 17 91 3C 32 62 35 C9 34 49 3 さ 4469 17 DB FE 34 96 39 QA9 91 71 1F 19 E3 EE1 QE QA9 @6 : ヒ 7 
さ 3F79 96 17 GO 5B 32 62 日 3 99 @9 19 4479 F さ E6 BE 1D 1 の 27 @ ら 9 12 17 @2 C5 34 @G6 EC a9 9 :7F 
さ F ヨ 9 44 34 G6 17 @G9 DD 32 62 ED SE 44O F さ E3 E1 ED 9 6 F3 16 @9 14 EC Q9 6 F1 C さ 99 =:C さ 
さ F99 OB EC SE さ 4 96 17 92 4E 32 62 449 の 6 GO1 ED Q9 9 F1 4F 5F ED 9 9 F さ 17 EB BD CC @9 si2a 
さ FAO 96 4F SBF 34 @6 17 12 21 32 64 44RO 5 の 34 926 EC 9 9 F1 35 19 17 DB B5 さ 34 96 39 9 :17 
さ FB の 92 29 19 97 25 73 29 63 61 6E 44BO の 1 71 1F 1 の 9 E3 E1 QE QA9 9 F3 E6 BB 1D 3 99 29 skEB 
さ FC9 64 2E 69 さ 4 19 17 E3 2 32 64 44CO 1 の 26 G9 GE EC QA GB F さ 3 3 @9 @1 ED 9 @B F3 16 : さ F 
3FD9 32 7C EC QA9 98F1 ED SE EC 9 44DGO _FF CC EC QA9 9 F7 CS FF FF ED a9 G8 F7 3 @9 @9 :3 晶 
さ FEG 5 ら 34 @6 EC SE 35 1 の 17 E@ フ 77 44EG 19 2E FF 71 35 C@ 34 49 ささ E4 CC 99 5G さく 4 96 EC : フ 29 
さ FF9 1F 1 の 9 E さ E1 34 @6 EC 5C C3 @9 44FO QA9 9 F1 35 19 17 DB 69 34 96 3@ 9 @1 71 1F 1 の =:F6 
Sum: さ F 95 54 2D C4 DO 41 ヒビ 7 62 19 Sum: 95 EB 16 91 59 99 3 39 2D DD 44 ca 4E 23 @D 4F :45 
Sum dd +@ +1 +2 + さ +4 + 日 + せ 6 +7 + 日 19 +a +B +C +D +E +F Sum 

:D2 45OO E さ E1 QE Q9 GB F3 E6 BB 1D 3 @9 @9 1 26 @9 17 :74 

に 】 4519 EC QA ウ GB F1 C3 @9 @1 ED 9 8 F1 4F SF ED 9 eB :2D 

ら 452O F さ 3 17 EB 7 16 GO 54 EC Q9 9 F さ 3 C3 @9 9@1 ED 9 :5@ 

に 】 45 さ 9 ら B F さ 3 CC ら 9 59O 34 G6 EC QA9 @ F}1 さ 5 1 の 17 DB 21 :37 

ら 454O さ 4 GO6 3 の Q9 @1 71 1F 1 の E ミ E1 QE QA9 6 F3 E6 BB :3B 

ん 4 4559 1D 19 27 G9 26 CC @ ら 9 5@ さ 4 66 EC 9 9 F1 35 19 =: 人 さ 

D 4569 17 DA FE さ 4 G6 さ 39 QA9 91 71 1F 19 ES E1 QE A9 6 :C6 

っ 4576 F さ E6 BB 1D 日 3 の 9 29 1 の 26 FF QC CC 99 59 34 96 s5B 

4 45B ヨ oO EC A9 9 昌 F1 35 19 17 DA DB 34 G6 39 A9 @1 71 1F :49 

ラ 4599 19 E3 E1 RE 9 9 F3 E6 日 B 1D 日 3 @9 29 19 26 @9 sBD 

24 45QO GE EC QA9 9 F3 C3 GO 9@1 ED A9 G8 F3 16 FF CC EC :C9 

49BO GO 19 27 99 62 35 C6 EC 44 34 G6 17 OO E9 32 62 』 さ 2 45BO Q9 GB F7 C3 FF FF ED Q9 @B F7 日 99 99 19 2E FF :BE 
49CO ED SE 日 さ G9 99 1 の 27 @9 OB EC SE 34 @6 17 @1 16 iC2 45Co 29 35 CO さ 4 49 33 E4 CC 99 59 34 96 EC a9 9 F1 :8D 
49DO 32 62 355 C6 CC 99 1 34 @6 4F 5F さ 34 @6 17 1@ E9 sa05 45D9 35 1 の 9 17 DQ BC 34 66 さ @ 9 @1 フ 71 1F 19 ES E1 aE 』EB 
4OEO さ 2 64 EC 44 34 96 39 8 ヨ C 92 29 19 97 25 7 ミ 29 6 くさ :19 45EO QA9 G8 F さ E6 BB 1D 日 3 G9 @9 19 26 99 14 EC A9 @8 :9C 
49FG 61 6E 27 74 2 の 66 69 6E 64 2E GO 34 1 の 9 17 E1 F2 =: 日 Z 45FO F1 3 99 91 ED 9 @8 F1 4F 5F ED a9 eg F ミ 17 En :4 
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EC 











dd +O +1 +2 + さ +4 +5 +6 + フ + 日 +9 +a +B +C +D +E +F Sum 
47OO GO6 さ G 9 の @1 71 1F 1 の ES E1 34 6 EC A9 @B F さ CS iD1 
4719 GO @1 さ 5 1 E6 BB 1D 日 さ @9 29 1 27 @9 GE EC a9 s51 











&O 


リス ト 2 vim マ シン 語 ダ ンプ ・ リ スト 





Add +② 寺 1 + つ + さ +4 +5 + ら 6 + プ + 日 + す 9 +Q +B + ビ +D +E +F Sum 
4B99 19 E3 E1 QAE 9 G ヨ F3 E6 BB 1D 34 96 17 DF GD 32 :2 
4 日 1 62 日 さ 9 99 1 の 27 GO 41 CC GO 59 34 6 EC a9 9 :59 





Add  +② 1 2 + さ +4 + 品 +6 + プ + 日 +9 +Q +B +C +D +E +F Sum 
4AOO GO @1 さ 35 1 の E6 日 B 1D 日 S GO 2 の 1 の 27 @G9 GE EC QA :51 








Rdd の 二 1 +2 +③ +4 + ロ + す 6 + プ 7 + 日 す 9 + 各 
4DGO さ 2 62 ED 5 34 96 EC 4 C3 99 91 
4D19 32 62 ED 6 3 E1 ED 5 EC 5 34 
4D2O 17 GO 6 32 64 EC SE 3 46 19 2C 
4D さ 9 5Q ED 5 4F 5F ED SC EC 5C aS 5a 
4D49 5C QAE 5 E6 BB 1D 34 96 EC 5C AE 
4D59 E7 日 4 EC 5C C3 99 91 ED 5C 16 FF 
4D6 の 99 19 26 69 19 EC SQ さ 4 96 EC 58 
4D7 ら 9 32 64 EC 54 34 96 17 F4 7F 32 62 
4D ヨ 9 71 C4 




















い ぐ 四 
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リス ト 2 vim マ シン 語 ダ ンプ ・ リ スト 
dd  + の 1 + 人 2 + さ +4 + 呈 +6 + プ + ヨ +9 +Q +B +C +D +E +F Sum dd  + の +1 +2 + さ + 人 4 + 王 + す 6 +7 + 日 +9 + 介 
5299 AF 5E CC 99 11 AE 5E E7 B9 AF 5E EC 9 OB F5 CS :BF | | 5399 AE 5D EZ7 9 aF 5D CC 99 97 QE 5D 
5219 の 9 9 aE 5E E7 9 aF SE 17 CF ヨ C 35 C6 34 49 33 :14 5319 G9 59 AE 5D E7 9 aF SD 4F SF ED 
5229 E4 さ 2 7C CC FC 2 ED SE 17 CF 6C さ 9 ヨ D @9 35 1F :B8 - 9 SC ら 9 39 EC 59 aE SE E6 BB 
523@ 19 ED 5C 39 BD 99 4E 1F 19 34 96 EC 5C Q3 E1 19 :aQ 99 16 E6 SF 1D B3 99 69 
5249 24 29 14 E6 DB FC 1D aE SE E7 9 aF 5E EC 5C CS :a 5D EZ7 ヨ 9 QF 5D 16 99 6 
525o oo @1 ED 5C 16 FF DC 17 CF 4D 17 CF 3 17 CF 47 :BB 5D EC 59 CS o9 91 ED 59 
5269 3 D6 さ F 59 41 4D 41 55 4 さ 48 49 93 DS BF 99 FZ :1 ア 7 9 さ 4 49 33 E4 32 ヒビ 
5279 D4 GQ DC 1F 93 さ B B5 D4 G9 DD 1F FD D4 GE BZ D4 :5F AE 5E EZ7 Be AF 
52BO 99 Bo D4 ら Q 39 さ 4 49 ささ E4 E6 45 1D 日 さ 99 29 19 :5C AE SE EZ7 89 aF 
5299 2C 99 GA E6 45 1D 日 3 99 GO 19 2C G9 GD E6 45 1D :92 44 AE 5E EZ7 B9 
52AO さ 4 96 17 DO さ 9 32 62 16 @ の 9 @ CC @9 29 さ 4 96 17 =:4B CC gg 59 AE SE 
52BO DO 2C 32 62 35 CO さ 4 49 33 E4 32 79 CC 9@9 59 34 : の B 99 5o 19 2C 69 
52Co 96 EC 44 35 19 17 CD 99 さ 4 G6 39 a9 @1 71 1F 19 :aC 5C C3 99 91 ED 
52D9 ES E1 ED 5B CC FC 2 ED 5D 17 CE BB CC 9 97 aE :C1 99 99 99 99 99 
52E ゥ の 5D E7 Bo QF 5D 4F 5F E 5D E7 B9 aF SD EC 44 aE :DA OO の 9 GO の 9 9 
52F9 5D E7 9 AF 5D CC 99 4F AE 5D E7 Bo aF 5D EC 44 :99 99 O9 99 99 99 
Sum: QC 61 C6 24 C5 Q4 3E BC EQ 1F 2F 74 EC 53 CC 22 =:33 | | Sum: DF DB 59 96 64 C9 aD 35 BB D4 DC 
Evil. 〇 マシ ン 話 ダン フ "・ リス ト EE 
dd +9 +1 キキ コミ +4 +5 + ら 6 + フ + 日 +9 +a +B +C +D +E+ ォ F Sum Add +4 + + ら 6 + フ + 日 +9 +a +B +C +D +E +F Sum 
1499 さ 34 7D 6 99 1F BB B6 @1 97 BF BD Do 72 35 FD FB :EA 17go 1F BB 5F 1F 93 19 DF FE CC 29 99 DD :B9 
1419 FA 25 96 6D 97 27 F6 A6 @6 35 FD 34 7F C6 99 1F si2C 1719 DD 92 17 FE 3D 94 - 
1420 9B C6 92 D7 BF BD D9 BE 35 FF CC @9 @1 ED 94 aD :B3 172o 1C 36 96 DC 99 3 5 
1 7F 6 99 1F BB BD DB 97 25 eC :78 17 さ 9 Cg 19 27 g9 BB DC 9@4 36 C9 
1449 Q6 B9 日 1 O9 26 FQ B6 6D Q7 B2 35 FF 7E 94 BD 99 :56 1749 96 DC 4 さ 6 96 CC @9 99 E ゥ 
145o 17 92 BD さ @ BD 92 69 QA6 @ さ E6 8B 16 C9 11 Q2 8 :F6 1759 96 DC 99 36 @6 9 6 E 
1469 1 さ 4 96 4 さ 25 91 3 の BD 92 BE 19 32 62 35 99 12 :85 176o 27 gg @ 17 FD F 
1479 F5 FD 9F 9O 99 99 69 :1 昌 1779 9@9 @9 17 FD C9 し 】 
14B@ 16 FF 9 19 29 62 8D : さ 6 1789 94 QA CO EQ CO の 
1499 EF Aa6 Bo 9 2 の 9 E1 36 :F さ 1799 94 DC 94 日 @9 4 
14A9 96 Aa6 43 E4 A6 C4 E6 :BA 17AG DC 99 CS3 99 91 さ 
14BO 4 さ 3 3D EB 99 99 34 19 :FA 17Bo 99 99 9E 99 EZ 9 
14C9 34 19 34 69 2B 49 5B :2 さ 17Co CC 2@ ge DD eo6 に ! 
14DG 49 2 FB 2C 6 さ 3 61 6 :18 17Do DC 96 93 99 19 7 
14E9 69 2B 1E 96 5B 49 24 :F8 17Eo 84 DC 98 CS @9 7 
14Fo FB E ミ 64 62 6a 69 2 :2C 17F ゥ 9 FF DE DC @8 SE 
Sum: 57 E6 9F CA 49 6 7 1E GE CF 1 BA 5C FF @Q 36 :66 Sums 62 BE F9 
Add 。 + の 9 +1 +2 キミ +4 5 +6 +7 + 日 19 +a +B +C +D +E +F Sum Add 。 + の +1 +2 + さ +4 +5 +6 + フ + 昌 
1599 EC EC 62 6D 61 32 66 2 95 4 さ 3 5 さ CS 99 @1 2 189 ら DD Ga DC 94 3 99 99 19 26 
5 2F: 26: PR 1819 17 FD 43 DD @4 DC 94 36 96 
2D 1C CC 1829 96 DC @9 さ 6 96 CC 69 99 17 
27 eC CC 18SO 27 GO BB DC 94-36 96 CC @9 
@1 39 B さ 1849 4 さ 36 96 CC @9 @9 17 FC FB 
4F 39 8D 185 ら ら 9 36 96 CC 69 99 17 FC CB 
24 27 2E 1869 9B 17 FC F2 DD 94 16FF CA 
B2 39 2B 1879 17 FC C6 さ 6 @6 DC go 36 96 
E3 6 58 18BO CO ER CO 19 27 @9 63 16 99 
9 34 96 1899 94 B3 99 9D 19 27 99 15 DC 
@F 22 E ウ 18Q ら C3 9@9 @1 DD @9 17 FC QE DD 
Bo ED 69 18Bo 9E GO E7 4 DC 99 CS @9 9@1 
4D 2Q 95 1BC ら @9 DD e6 CC Co9 99 DD e@B CC 
95 1C FE 18DG 93 99 19 2C @9 1 9E @6 4F 
1Q 91 7 18BE ウ GB C3 @9 @1 DD @B DC 66 CS 
1F 26 DC 18F ら DC 98 9E 92 ED B4 4F F6 FD 
Add +9 +1 +2 + さ +4 +5 + ら 6 + フ + 日 +9 +a +B + ビ Sum Add 。 +@ +1 +2 + さ +4 +5 +6 + フ + 日 19 +a +B +C +D +E +F Sum 
16 の 9 Q6 C5 26 @5 5C C1 95 26 F7 39 BD B4 34 199G FF 19 DE FE 35 FF 27 GO OO 99 99 9O 99 99 69 99 s46 
1619 C2 96 23 92 BD 29 35 94 6D 49 2 65 B6 
1629 5F AG6 C5 BB 39 17 FE 5B 5C C1 96 26 F4 
163② さ 33 5E BD BC 29 E2 6 29 17 FE 45 5a 2 
1649 4 BD ら 4 35 94 1F 9 1F 9 44 44 44 44 
165G 9B B4 @F BE 39 B1 さ 9 23 92 BB 97 16 FE 4 
1669 29 F9 さ 3 5C a6 455 E6 47 さ D ED 42 EC 45 7 
1679 B9 GO ED 41 Q6 44 E6 47 3D ES 41 ED 41 p 
16Bo 46 さ D EE 41 9 99 ED C4 39 34 @6 EC BC に 2 
1699 69 36 16 BD CD EC 42 33 4 CS 9 93 ED 5 
16QO 19 さ 6 16 BD BD 33 4 39 1C 2C 6 49 16 さ 
16BO 7C 4F 34 さ B BC 99 99 G9 99 GO 99 @9 99 ら 
16C9 43 6F 79 79 72 69 67 6 74 29 28 63 29 4 
97 7C 5F B4 C9 QAD 95 GE 92 9F FE B9 :CC 
本 mm "リリ スト 4 vis. 〇 O マ シン 話 ダ ンプ ・ リ スト ($S1400 一 BS16 ビ ビ は 、 リ スト 3 と 同じ で す ) EE 還 5 
Add  +O +1 +2 +3 +4 +5 +6 +2 + 日 +9 +a +B +C +D せ E +F SO 110 エエ エエ ヤキ エ ヤ エ ヤキ エ ヤ キヤ キヤ キヤ キヤ キヤ キヤ Y キ ヤ Y キ ヤ Y サ キヤ キヤ キャ ヤキ ヤキ ヤキ ヤキ ヤ t 了 Go、。 サ サリ リリ JJーHーーーーー 
1799 34 7F 86 6F 1F BE SF 1F 93 1 ら 6 DF FE CC 99 9D Sum: 7F F1 29 79 さ 3E 97 5Q 22 BE 9E D2 a7 BC 3F B9 BB :D2 
1719 FF 4C CC 99 Ga 17 FF 46 CC 6F FC DD 9 CC 99 
172O DD 9@2 CC Bo @9 DD @4 CC 2 9@ DD eo6 9E 99 EC 
1739 DD 8 CC 99 @9 F7 FD @F DC 94 3 ら G6 DC 68 17 AdG  + の 9 +1 ユラ キミ +4 エコ + ら 6 エフ +8 +9 +A +B +C +D 4E +F Bum 
1749 E9 36 96 DC @6 36 96 CC 69 99 17 FD D4 a4 C9 1899 E6 4 9E 96 E7 B4 DC 96 C さ 3 @9 @1 DD 96 DC 94 CS :a5 
1759 CO 19 7 @9 1 5E Oo4 4F E6 B4 ?E @6 EZ B4 DC 119 9 @1 DD @4 16 FF DE 4F F6 FD 9F DD @Q CC 29 @9 sF9 
1769 CS 99 91 DD 96 DC 94 CS 9O 91 DD @4 16FF C9 1B29 DD ら C DC GC 93 @6 19 2C @9 44 DC 92 C3 99 91 DD 69 
1779 Fe FD 9F DD の 8 CC 29 966 DD 6C DC 6C 53 96 19 2 ビ 183O @2 17 FD FC 17 FC 54 29 27 @9 9E @C 4F E6 4 B さ :a6 
89 GOKO92D JE の 26 DD" の る (EE 條 "POEEP ろ 9 1B49 GO GOO 19 27 ら 9 12 9E @C 4F E6 B4 17 FE 19 DC 6C :E ウ 
1799 27 @9 5E @C 4F E6 4 36 @o6 CC 99 @9 17 FD a2 9 9C 16 FF E2 DC 9C CS 99 @1 DD 9C CC :95 
17A9 96 DC @C さら 6 @6 DC @6 17 FD 77 a4 C9 E4 CO 19 F9 CC @g @a 17 FD F3 16 FF B4 CC 99 :BE 
17BO 9 12 9E 9C 4F E6 B4 17 FE a4 DC @C CS @9 9@1 g 
17C の GC 16 FF CE DC 9C 93 96 1 の 2C 99 13 DC @C CS 
17D9 @1 DD @C CC oo 9D 17 FE B5 CC 9 9a 17 FE 7F BC 
17EG FF 98 DC 94 93 @B 19 2C 9o 4 CC 29 oo DD e6 
17FO 9 の GO9 F7 FD @F DC 94 93 @8 19 2C @9 1 9E 94 
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m 還 mm 較 リス ト 5 vii2.O0 マ シン 語 ダ ンプ ・ リス ト 時 昌 本 本 本 還 還 面 リス ト 6 vis2.0 マ シン 話 ダ ンプ ・ リス ト 還 還 還 還 
($1400 一 $S16FF は , リス ト 3 と 同じ で す ) ($1400 一 $16FF は , リス ト 3 と 同じ で す ) 


dd  +② 寺 1 +2 + う 3 4 + ロ ロ +6 + プ + ヨ +9 +a +B +C +D +E +F Sum 
1769 さ 4 7F 6 6F 1F BB 5F 1F @3 1@ DF FE CC 29 99 DD =:9 





+1 + コ オミ 4 ロロ + す 6 + プ + 日 +9 + 全 BB +C +D +E +F Sum 
7F 6 6F 1F BB 5F 1F @ ミ 3 19 DF FE CC 99 9D 17 :B9 





1719 G9 CC 6F FC DD @2 17 FE さ 3D DD @4 17 FE 3 DD 94 :7Z 4C CC 99 FF 46 CC 6F FC DD 99 CC 99 @9 :5D 
1729 17 FE 3 さ 3 DD 94 DC 94 36 @G6 CC 69 @9 17 FE 12 36 se6E 92 CC 9 94 CC 2 ら 99 DD 96 9E 99 EC 4 :E9 
17 さ 9 96 DC 99 36 66 CC 69 99 17 FD E6 a4 C9 E4 C9 19 :5C 9 CC SG FD 9GF DC 94 さ 6 96 DC 698 17 FD :CB 


1749 27 9 の 39 DC 94 83 99 GD 19 27 gg 15 DC 4 9E @@ =:9a | | 174g Ego = ee DC 
1759 E7 日 4 DC 99 ビ 3 @9 91 DD 99 17 FD Fa DD @ ら 4 16 FF :EC 1759 Co 19 27 oo 
1769 E2 CC GO @9 9E 99 EZ 4 DC 99 ビ S G9 91 DD 99 17 :4B | | 17cg Cs go ei DD 
1779 FD E4 DD @4 17 FD DF DD 94 16 FF 9 CC 29 99 DD =:1D | | 177o Fo FD eF DD 
17B@ 96 CC 9 9 DD 9GB CC 9G9 @O F7 FD @F DC @6 93 @9 :7B | | 17gg go 5g 9E geC 
1799 19 2C 99 1 9E 6 4F E6 B4 9E @8 EZ7 B4 DC @8 ヒ さ :6B || 1799 g6 DC egC =6 
17A@ 9 の @1 DD @B DC 96 CS 9@ @1 DD 96 16 FF DE DC e :46 | | 17Ag gg 12 9E geE 
17Bo 9E 2 ED 日 4 4F F6 FD 9F DD @a DC 94 3 99 @9 19 =BC | | 17Eo oC 15 FF CE 
17CO 26 99 95 1 DE FE 35 FF 17 FD BB DD @4 DC @4 36 :E1 17Cg 91 DD @C CC 
17D ら 9@6 CC 99 99 17 FD 6 36 6 DC og 36 96 CC 69 @9 sD@ | | 17Do FF Aa DC g4 
17E の 17 FD さ E a4 CO E4 CG 19 27 @9 37 DC 94 日 3 @9 @D =: さ 3 日 | | 17Eg gg oo FZ FD 


96 CC 69 9@9 17 FD D4 4 C9 E4 :96 
94 4F E6 4 9E @6 EZ7 4 DC 96 :SD 
94 じ さ 99 91 DD @4 16 FF C9 4F :59 
ご の 99 DD 9C DC 9C 93 
日 4 36 @6 CC 99 99 17 
96 17 FD 7 4 CO E4 
4 17 FE B4 DC 9@C ビュ 
93 96 19 2C 99 13 DC 
17 FE 9 CC @9 9 17 
19 2C 99 74 CC 29 99 
94 93 6 日 19 2C 99 1a 





dd  + の 二 1 ユ 2 3 +44 + 避 6 + プ + 日 + ヲ +Q +B + ビ +D +E ォ F Sum Add 。 + の +1 ユエ 2 + う +4 ユキ 呈す 6 + フ +B +9 
1 9 17 FD 52 DD 94 16 FF E2 CC 99 @9 9E @9 E7 4 =:1 さ 189G 99 ら 1 DD 94 16 FF DE 4F F6 FD 
1819 DC 99 C3 99 @1 DD 99 DC @C DD 94 DC 9C DD @4 16 >:25 1B19 DD oC DC 9 93 96 19 2C go 34 
1H2O FF AB CC 29 @9 DD 96 CC C@ 99 DD @H CC @9 69 F フ 7 :aD 182O ら 9 9O 19 27 99 12 9E @C 4F Eo6 
183 の FD GF DC 96 93 99 19 2C 9 の 1 9E G6 4F E6 B4 9E :D2 1B39 CS 99 91 DD @C 16 FF E2 DC eC 











1849 99 9D 17 FE 19 CFP 99 9 17 FE 16 FF C4 CC 99 siDE 
185O 96 16 FF DE DC 98 9E 9G2 ED 8B4 4F F6 FD 6F DD 1 ヨコ 59 6 
1B6 の 9 1 の DE FE 35 FF 19 DE FE さ 35 FF 39 99 99 99 99 了 に とっ 
ここ Sumi 9 











本 mm 還 昌 リス ト 7 vi メイ ン ・ プ ログ ラム 変更 箇所 還 還 還 還 是 





199 HFPEN" 1"、 手 1 FsLORDM"Y112. ロ "。、R:ELOUSE 1 
219 DFEN"OD" 。 持 人 "Vi.out "iLOADH "yi52.0" 、。R:CLUSE 


FIMI- 7 


還 和 916 ダ 中 妥 光 沙 ー ジ ・ プ 回 グ ヲ ぬ 


圏 COMPAC Sgn 











この プロ グラ ム は , メモ リ 上 に ある BASIC テ キス ト か ら , 任意 
の 文字 列 を 含む 行 を みつ け , その 文 番 号 を 出力 する も の で す . た 
だ し , 中 間 言 語 化 され た も の は 見 出 不 可能 で す . s$6003,4 A レ ジス タ を 画面 に 出力 する . 


2 9 に ェ $6006,7 画面 か ら 1 行 入力 する . [CTRL|+[c| て 処理 を 終わ り ま す . 
3 た み - 但 H ば ゝ 
し で る OK 好き な 位置 に 移動 し て 使っ て くだ さい 。 85ng 5 256 バ イト の 1 行 入力 用 の バッ ファ . 
他 機種 へ の 変更 は , 表 1 の アド レス で す . $600D,E BASIC テ キス ト 先 頭 ア ドレ ス の 入っ て いる アド レス . 


図 1 出力 例 
使い 方 
INPUT NAME?ESR 


^INPUT NAME?” と 表示 し た ら , 見 つけ た い 文 字 列 ( 長 さ は 99249 の 9269 GO2 ヨ の OO49G 9959O ら 9529 OO699 OO629 91096② 
255 バ イト まで 可能 ) を 入力 し て , 最後 に [Rg 町 ORN] キ ー を 押し て | PT NNE 
くだ さい . その 文字 列 を 含む 行 番号 が 出力 され ます . 終わ る に は , 
GTRLl-+[c] を 入力 し て くだ さい . リス 1 
大 き な BASIC, K コ ン パ イラ の プロ グラ ム 変 数 名 を 見 つけ る 了 際 


の に 便利 で す . 9 DB 97 94 3D ミ BE 
3 99 

な お 。 ス ター ト ・ ア ドレ ス は 先頭 で す . o 6 さ 5 3 0 
1 ビ 9 
さら 9 9 8BD 
EC き 19 
9 谷 
24 
























































6949 
ら 959 
ら の 69 
ら 979 
6GH ウ FB 
ら 999 4 
ら 69 人 9 9 9 12 
ら 9HG 9 て 299 G9 99 G 99 





Sums 
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コン ピュ ー タ と の 新しい 接し 万 の ヒン ト を 与え て ぐれ る 言語 





東大 人 工 知能 研究 会 吉川 永 一 


技術 が 日 々 様 変 り する 現代 . 過当 競争 の 激しい 社会 . 多 
忙 な 日 々 に , 自ら を 見 失い が ちな 中 で , 何 か 本 当 に 信頼 し 
て 相談 で きる 相手 , 自分 の プレ イン 的 存在 を 夢見 て , コン 
ピュ ー タ の マニ ア に な っ た 私 の よう な 人 が 他 に も きっ と い 
る と 思い ます . 

し か し , 実際 に は コン ピュ ー タ は ご てく 機械 的 な 作業 に , 
用 途 が 限ら れ て いる の が 現状 で す . 解い て 欲し い 問題 を 解 
決する どこ ろか , 人 間 側 に ます ます 多く の 問題 を 押し つけ 
て きま す . 

も っ と 他 の コン ピュ ー タ の 活用 方 法 は ,。 な い の で し ょ う 
か . 本 稿 で は , PROLOG/F の 使い 方 の 説明 を 通じ て , こ 
うい っ た 問題 に つい て 考え , 供 越 な が ら , Prolog の 活用 方 
法 に つい て 例題 を 通し , 論じ て いき た いと 思い ます . 


人 工 知能 の 擦 究 の 道具 


と DC の PrOIOg 言 語 


PROLOG/F V.2 は 旧 バ バージョ ン (PROLOG/F:IL/O "83 年 
8 月 号 ) に 対し , ディ スク の 入出 力 を 便利 に し た り , メモ リ 容 
量 を 改善 し た も の で す . 当 バ ー ジ ョ ン の 使い 方 や 旧 バ ー ジ 
ョ ン と の 差異 な どの 詳し い 話 は ② に まわ し て , ここ で は 
Prolog を どう 使う か に つい て 論じ ます. し た が っ : て , ここ 
に 出 て くる プ ブログ ラム 例 な ど を , 実際 に 試し な が ら 読み た 
い 方 は ② の 方 を 合わ せ て お 読み くだ さい なお, ここ に 出 
て くる プロ グラ ム 例 は , 特に 注意 書き が な い 限 り , 新 ・IH 旧 
パー ジョ ン で 実行 で きま す . 


1. コ ンピュータ の 活用 方 法 の 一 提案 

従来 の コン ピュ ー タ の 使い 方 は , 問題 と な っ て いる 対象 
に 対し . それ と うま く 対 応 ブ けら れる 9 象 を , 人 肝 
が コン ピュ ー タ 内 部 に 起こ し て や り , それ を 観察 する と い 
っ た も の で し た . その も の ずばり の シミ ュ レ ーション 関係 
の も の か ら , 4 まで , 多く の も の を この 観 
点 で 捕 を る こと が で きる と 思い ます . この よう な コン ピュ 
ー タ の 使い 方 は , は ペペ し か も 。 少 泌 
で も 違う 対象 に 対し て は , 適用 で き な い プロ グラ ム し か 作 
れ な いと すれ ば , 場合 場合 に 応じ て 人 間 が プロ グラ ム を 作 
ら な けれ ば な り ま せん . 

広い 範囲 の 事物 に 対し ,. そし て 場合 に 応じ て 臨機 応変 に , 
有効 に 動作 する よう な プロ グラ ム に は , 何 が 必要 な の で し 
ょ うか . その 手 懸 り を 次 の よう に 考え て み ま す . 従来 で も 
人 間 の 大 き な 労 力 を コン ピュ ー タ の 動作 の 一 部 と みな せい ば , 
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すま C is Presse08 
Ooose 00e! 
5 for brek 
(for cot 
1 for jput from fle 
0for utpt tofile 
Pfor utpt t0printer 2 





1 PROLOG/FV.2 の メモ リ ・ マ ッ プ 
































FFFF 
/O 
FC00 
U-Stack area 
F400 
二 進 木 Bit Field BASIC 
& 
BIOS 
ROM 
atom area 
8000 
BASIC Disk code 
7000 
\ S-Stack area こち ら も 
使っ て いる 


PROLOG/F V2 
レベ キン だ さ の 4 アル ニレ スエ リル 


BASIC work area 














その よう な プロ グラ ム は 既に 実現 し て いた と みな せま す . 
引く が に LAnyyeie え , コン ピュ ー タ が 独自 
で 実行 すれ ば , 応用 範囲 の 広い 柔軟 な シス テム が 得 ら れる , 
と 考え られ ます . 

で は , いま まで 入間 が 労力 を 注い で いた 部 分 と は , いっ 
たい 何 な の で し ょ うか . 対象 に 関す る 知識 を 扱い , 推論 を 


行なう レベ ルー 一 その レベ ル の 作業 は シミ ュ レ ーション と 
は 培っ て , 対象 の 動き を その まま 反映 する よう な も の で は 
あり ませ ん . 

0 性 質 を 象徴 する 記号 群 を . あちこち に 移動 


せる よう な 動作 が , 複雑 に か ら み 合っ て で き て いる 作業 
な の で す . こう いっ た 対象 レベ ル と は 違う 動作 を , ここ で 
は メタ 対象 レベ ル の 動作 と 呼ぶ こと に し ます . 

メタ 対象 レベ ル の 動作 の 中 で , 人 間 は 経験 を ,. また は 言 
葉 , 文字 を 通し て 他人 と 伝達 し 合う こと で , 知識 を 蓄え ま 
す . この 蓄え た 知識 で 脳 の ハー ドウ ェ ア を 補っ て 余り ある 
ほど の 成果 を あげ て きた と 思い ます . 

と に か く 。 コン ピュ ー タ に 人 間 が や っ て いる よう な メタ 
対象 レベ ル の 知 的 作業 を きせ よう と 試み る の は , 無駄 な こ 
と で は な いで し ょ う . そし て , その 試み の 1 例 と し て , 数 学 
的 帰納 法 を 使っ て , 再帰 的 な 思考 プロ セス を 表現 し た Pro- 
log 言 語 を 作っ て み ま し た . 以下 に 解説 の 意味 も 含め て , 説 
明 し て いき ます . 


2. コ ンピュータ に いか に 知識 を 表現 する か 

で は , どう や っ た ら コ ンピュータ に メタ 対象 レベ ル の 動 
作 を させ る こと が , で きる の で し ょ うか . いき な り 人 間 の 
思考 を , 詳細 に 観察 し よう と いっ つも 無理 で すか ら , 最初 
は 思い きっ て , 単純 化し て 考え る こと で す . 

例 と し て , 決 の よう な を 場合 の 人 間 の 思考 を ,. プロ グラ ム 
化す る こと を 考え ん ます. いま , 本 が 何 若 か 積ん で ある と し 
ます . 本 は 一 度 に 一 冊 し か 取れ な いと し ます . この と き 

- 番 下 の 本 を 取り 出せ と 言わ れ た な ら , 人 間 は 上 か ら 一 つ 
ずつ 取れ ば 良い と いう で し ょ う . 

あたり 前 の よう で す が , この と き 人 間 は 次 の よう な 思考 
過程 を 辿っ て いる は ず で す . 本 の 山 か ら 一 冊 と る こと が で 
きる . と っ て みる と 残り は 一 冊 減 っ た 山 で ある . さて , 変 
化し た の は 本 の 冊数 だ け で あり , 再び 同じ 動作 が で きる の 
は 確か だ ろう . こう し て いつ か は 本 は 一 冊 に な り , それ が 
目的 の 状態 で ある …… た る 

実に こん な 簡単 な 問題 に も , 人 間 は 数 学 的 帰納 法 を 無 意 
識 の うち に 用 いて いる と ころ を 見 る と , この 思考 法 は 非常 
こ 一 般 性 が ある の か も し れ ま せん . そこ で , この 数 学 的 帰 
納 法 を コン ピュ ー タ に や ら せ よ うと いう わけ で す . 

さて , 人 間 の 思考 を まね させ る に し て も , いろ いろ な レ 
ベル が 考え られ る で し ょ う . 思考 の 時 間 だ け を まね し て , 
^ 人 間 が これ を 考え る と 答 を 得る まで 長く か か る か ら , 走 
ら せ て か ら 止 まる まで 長く か か る プロ グラ ム を 作れ ば それ 
で いい ” と いっ だ た の で は , し よう が あり ませ ん . 

人 間 が これ を 考え る に は ある 情報 を 何 度 も 想起 し な けれ 
ば いけ な いか ら , プ ログ ラム も 走ら せる と , その 情報 に 対応 す 
pe タ を 何 度 も アク セス する よう に すれ ば よい ”. こ れ 

は 少し 進歩 し た と 言え ます . し か し , 注意 し な けれ ば な ら 

な い の は , 人 間 が 常に “その 情報 に 対応 する ” と いっ た だ たよ 
うな 対応 プ け を し て や っ て , 初め て コン ピュ ー タ は 知 的 な 
動作 を し た, と 言え る こと で す . こう いっ た 制限 は , コン 
・ ピ ュー タ が 手足 を 持ち , 自分 の 判断 に 基づい て 実際 に 行動 
"が で きる よう に な る まで は , 除 示 不 可能 な 仮設 で し ょ う . 

し か し , こう いっ た 仮設 を 前 提 の 上 で , 人 間 の 思考 を 
まね する こと も けっ し て 意味 の な いこ と で は あり ませ ん . 
実際 に 行動 する 機能 が 付い た と き , プロ グラ ム に その コマ 
ンド を 追加 する だ け で , 本 当 に 知 的 な 行動 を する よう に な 
る な ら , その プロ グラ ム は この 拡張 を 加 そ る 前 に , も う 既 
に 人 間 の 思考 を 充分 反映 し て いる , と いそ る の で は な いで 
も よ 39 か : 

この よう な 考え に 基づい て , 人 間 の 思考 経路 に 対応 きせ ら 
れる よう な 動作 を プロ グラ ム と し て 表現 する に は , どう い 
う プ ログ ラム を 書け ば 目的 の 動作 が 期待 で きる か , を 知 
ら な けれ ば な り ま せん . その プロ グラ ム は , イン ター プリ 
タ で 実行 され る と , 知 的 行動 を 生み 出す も の , いわ ば コン 
ピュ ー タ に と っ て の 知識 で す . 

そし て , Prolog 言 語 に よっ て 書か れ た 知識 は , 人 問 に と 
っ て の 知識 表現 形態 に も 近く , わか り 易 いと いっ た 点 で , 
Prolog 言 語 は こう し た 用 途 に 最適 な 言語 で ある と いえ ます . 


3. 動作 を Prolog 言 語 で 表現 する 方 法 


Prolog の プロ グラ ム と は , いく つか の 節 (clause) と 呼ば 
れる デー タ を , デー タベース に 蓄え る こと を 意味 し ます 
それ ぞ れ の 節 は , 1 つ 以 上 の リテラ ル で で き て いま す . そ 
し て , 節 の 先頭 の リテラ ル を 頭 部 と 呼ん た で, 特に 区 別 し ま 
す . 残り の リテラ ル (0 個 の 場合 も ある ) を まとめ て , 本 
体 と 呼び ます . さて , Prolog が 動作 状態 に ある と き は , 常に 
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2 Prolog の 動作 











ゴー ル の うち の ミタ ー ン 
ある リテラ ル マッ チ 成 功 


新しい 
ゴー ル ・ 
リテラ ル 


SM 







本 ei 
同じ も の で す 











いく つか の リテラ ル が 特別 の 状態 に た あります. それ を ゴー 
ル と 呼ぶ こと に し ます . 
Prolog の 動作 と は , 次 の よう に 定式 ( 還 2 ) 化 で きま す . 
『 ゴ ー ル か ら 一 つ リ テラ ル を 取り 出し , その リテラ ル と 
うま く 適 合 する 頭 部 リテラ ル を 持つ 節 を , デー タ ベ 一 
ス か ら 見 つけ 出す . それ に 成功 し た ら , も と の リテラ ル 
を ゴー ル か ら 取 り 去 る . そし て , その 節 の 本 体 の リテラ 

ル を すべ て ゴー ル に 付け 加え る . ゴー ル が 空 に な る まで 

それ を 繰り 返す .』 

さて , これ を 見 て 変 に 思わ れる 方 も ある か も 知れ ませ ん . 
た と えば, 次 の よう に で す . 上 の 動作 の 繰り 返し の うち , 
一 回 の 動作 に つき 一 個 の リテラ ル が ゴー ル か ら 除 去 さ れ ま 
す が , 呼ば れ た 節 の 本 体 の 複数 の リテラ ル が 追加 され る の 
だ か ら , いつ まで た っ て も ゴー ル は 空 に さら な い の で は な 
いか ? 

実は ここ で , 本 体 の な い (本 体 の リテラ ル が 0 個 の ) 節 
が 重要 な 役割 を 演じ ます . この 節 が 呼び だ され た と きだ け , 

ゴー ル の リテラ ル が 減る わけ で , こう いう 節 を 特に 事実 と 
呼び ます . 

さき て , 上 に 定義 し た Prolog の 動作 の 中 に , “適合 ”/ と いう 
用 語 が で て きま し た だ . 適合 (パタ ー ン マッ チ ) と は , つき 
合わ せ て みて , 同じ 形 を し て いる 場合 を 言う 、 と まず 考え 
て くだ さい . 要する に , Prolog の 動作 と は , “ある リテラ ル 
と 同じ 形 の リテラ ル を 捜す こと ” より な っ て いる わけ で す . 

で は , その リテラ ル の 形 と は どう いっ た も の で し ょ うか . 
それ を 説明 する た め に , 以下 に 項 と いう も の を 定義 し ます 
( 表 1). 

リテラ ル は , 項 の うち “関数” の 形 を し た も の の み が 許 
され ます . リテラ ル の 場合 は , 関数 の 引数 が 0 個 で も ^( 
(カッ コ ) を 省略 し な いで くだ さい 、. 

さて , この よう に , リテラ ル は すべ て 関数 で すか ら , 関 
数 名 と し て の アト ム が 必ず ある わけ で , これ を その リテラ 
ル の 述語 と 呼び ます . リテラ ル と リテラ ル が パタ ー ン マッ 
チ す る と き , も ちろ ん 述語 同士 も 等 し く な けれ ば な り ま せ 
ん . 従っ て . ある リテラ ル に 対し , 頭 部 リテラ ル の 述語 が , 
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表 1 項 の 定義 


図 3 まず は ご く 単純 化し て 一 一 帰納 法 の 骨組 だ け を 表現 





AEA EAR 信人 ^-2 スペ ー ス , コン トロ ー ル ・ コ ー ド 








アト ム | を 含ま ず , 数 字 以外 で 始ま る 任意 の 文字 列 . 
数 字 0 一 32768. 
変 数 | アト ム の うち ~*? で 始ま る 文字 列 . 








で ト め ( 融 , ,……, 項 ) の 形 を し た も の . 各 項 は * 別 数 
間 数 | と 呼ば れ ま す . カッ コ の 中 の 項 の 数 が 0 個 、 すなわち , 
* の I め ( )” は , た だ の アト ム ⑦I ト 2 の と みな され ます . 






































HH 項 | 項 (ここ の 部 分 は な く と も よい .)] の 
リス ト 形 を し た る の 」 [ ] は アト ム “nil/ と パタ ー ン マッ チ し ま 
す . 


























その リテラ ル と 等 し いよ うな 節 だ け を 取り 出し て , パタ ー 
ンマ ッ チ させ る の が か が 効率 的 で す . 

こう し て 「『 頭 部 リテラ ル の 述語 』 と いう の は , 節 の 検索 
の キー と いう べき も の な の で す . そし て , PROLOG/F で は 
節 の 入力 時 に も , 頭 部 リテラ ル の 述語 が 同じ 節 を まとめ て 
同じ モー ド で 表示 させ , 修正 , 追加 する よう に し て いま す . 
具体 的 に PROLOG/F を 動か し て いる こと を 想定 し て 説 
明 し まし ょ う . 当 シ ステ ム を 起動 きせ る と ~ 半 ” の プロ ン 
プ ト が で て いる , “コマ ンド ・ モ ー ド ” に 入り ます . この 時 
点 で , pred 述語 名 と 入力 し て くだ さい . た と えば 














ボ 語 名 と し て “plan” と いう 文字 列 を 入力 し て み ま し ょ う . 


行 番号 100 が 行頭 に 自動 的 に 出力 され て , 再び 入力 を うな 
が し て いま す . 

ここ か ら , plan を 頭 部 リテラ ル の 述語 と し て 持つ 節 
が 入力 され る こと は , pred plan 痕 の 入力 で シス テム に 伝 
わっ て いる の で , 節 の 頭 部 リテラ ル は 述語 を 省略 し て , つ 
まり (<), …, で < の)/ の 部 分 だ け を 入力 する よう に し ま 
す . そし て それ に ひき 続き , 本 体 を “一 ⑳ ぁ の” の 繰り 返し 
で 六 カ じじ 宮 きま ず 、 

さて 節 の 入力 の し か た は わか っ た が , いか に し て 動作 を 
表現 すれ ば よい で し ょ うか . た と そえ ば, “plan” と いう 述語 
で , “目的 の も の を 達成 する 方 法 を 捜し 出す 行為 ? を 表現 す 
る と し ます . 特定 の 場合 だ け に 働く の で は な く , 同 ヒ プロ 
グラ ム を 色々 な 場合 に 働か せ た い の で あれ ば , 何 か 自由 度 
の ある 部 分 が な けれ ば いけ ませ ん . そこ で 変数 と いう も の 
を 使う こと に な り ま す . こう し た 変数 の 効用 は , どん な コ 
ンピュータ 言語 少し で も 知っ た 人 な ら わ か っ て いる 
と 思い ます . 

Prolog の 場合 一 風 変 わ っ て いる の は , 変数 は 未 代入 の ま 
まで も 良い と いう こと , 一 度 代 入 さ きれ る と , その 上 に また 
代入 し て 前 の 値 を 書き 換 を られ な いと いう こと で す . 

変数 が 未 代 入 の まま 受け わた し され る と いう の は , 奇妙 
に 聞こ える か も 知れ ませ ん . ゾ 未 確定 ? 値 が 渡さ れる の で は 
な く , 伝え る こと が あっ た ら こ こ へ 入れ て くれ , と その 変 
数 の 値 を 入れ る 場所 が 渡さ れ て いく と 考え て くだ さい . 

ここ で , 変数 の 受け 渡し と いう 話 が で まし た が , これ は 
節 か ら 節 へ と パタ ー ン マッ チ の 際 に 受け 渡し が され る の で 
す . 前 に パタ ー ン マッ チ と は , 同じ 形 か どう か 判断 する こ 
と と 言い まし た が , 変数 が 一 方 の リテラ ル に あれ ば , 対応 
する 箇所 の も う 一 方 の リテラ ル 内 の 項 を 代入 し て , 同じ 形 

こ な る よう に する の で す . 

この よう に 変数 の 受け 渡し は , 呼ぶ 側 . 呼ば れる 側 ど ち 
ら の リテラ ル に と っ て も 対称 な 形 を し て お り , の 
関数 の よう に 引数 は 呼ぶ 側 か ら わ た す デ ー タ と は 限ら な 
の で す . 

そう いう わけ で , plan に は 3 引数 を 持た せま す . 

と いう 3 変数 を , 頭 部 リテラ ル の 引数 と し て 並べ て み ま し 














142 


plan を 頭 部 リテラ ル の 述語 


pred plan 
と し て も つ 節 の 一 番目 . 


100 (*※DPFC』 ネ ff ロ ヒ 。*DFOV@d ) 
110 -member (LDPrC。』*※ 和 fn ロ C ] 。 DFOVed ) み に 頭 部 リテラ ル は “plan 
120 (*PrC』 fnC』*pFOVed ) (*prc, *fnc, * proved)? 
1 ミ O -reducCedCase(#fnC。*reducCedFnC) で ある 

140 ー レ 55O1 ツ 呈 (ネロ 。 ポロ こら ) 

15o ー ロ 1 an (* ロ FC,。*f ロ と 5。[ [FrDrC』*※rduCedFnC ] . *※DrOve ロ ] ) 


160 qa モ her (DrC 紀 。 ネロ C) 財 
76 帰納 法 の 仮定 


日 

井 prEd plan ちら 

100 (E 上 ]。 上]。*p) 

110 ([L*DrC.*DPFrC5] 。[*f ロ C。 ネ ff ロ と 。※D ロ ) 
120 plan(*※DrC。#f ロ C。*D) 

130 -p1an5(*DrC5。\ 和 fn ロ C5。%D ) 

140 


日 
韻 Pred member 

100 (※&a。[ 上 ※a。※※]) 

110 (*a。[*b.*x]) 帰納 法 の 骨組 だ け を 表現 
120 -member ( ネ a。*% ) 

13O 


日 
井 preGd reduCedCase 
100 (*x FEduced(*x% ) ) 
110 


) 
韻 pred re5O1 ve 由 由 レレ 4 
1o0o <A。EB。reduced (A) , ュ ) と 2 いう 機能 の 組み 合わ せ て 目的 の 機 


110 : 能 が 果 せ る か を 与え て いる. 


日 
韻 prGd qather 

100 (※DrC5。 1 abe1 (上 DrC 。 DFC5) ) 
110 


日 
韻 pred think 

100 (*PrC。 ネ fn ロ C) 

11O -plan(*※DrC。』*f ロ Cc。 上 
120 Eprc1。E] 

13O _ [prc2。 ビ ] 

1409 ]) 

150 


H 
井 eXGC 

100 。-think (※D ロ FC。 人 ) 
110 s 


日 
! ! ! 5uCC@55!!! 
think(1 abe1 (FrDrC。E 上 DrC1。rDPFC。PrC2]) 。 谷 ) 





plan の 3 変数 


ま DTC の 見 つか っ た 手続 き ( 値 を 返す た め の 変 数 ) 
* ま fnc……… 目的 の 機能 
*proved… ど うい う 手 続き を すれ ば , どう いう 機能 が 果 た 








され る か , に つい て わか っ て いる こと すべ て 








ょ う . *prc の よう に , こち ら か ら 結 果 と し て 返す 変数 も 
ちゃ ん と 受け 取っ て お か な いと , 結果 を 返す こと が で き な 
く な り ま す . 

し か し いま , ※*prc は 返信 用 変数 と 決め て か か り ま し た . 
し か し , で きた プロ グラ ム ( 図 3) は , いま 定義 し て いる 
節 を 呼び だ す リ テラ ル の *prc に 対応 する 位置 に 変数 で な 
いも の を 入れ , *fnc の 方 を 変数 に し て 呼び だ し て も 実行 
可能 で す . そし て , *fnc の 方 に 手続 き *prc を 実行 し た 結 
果 が 返さ れ ま す . 

ご の よう に 。 Prolog で は この デー 多 を 入力 ずる と ど 。 で の 
出力 が 得 ら れる よう に 作っ た つも り の プロ グラ ム が 逆 方 向 
に も うま く 働 いて , ちょ うと ど と 逆 関数 を 適用 し た よう な 結 
が 得 ら れる こと が あり ます . 

この こと か ら , Prolog の プロ グラ ム は , 入力 か ら 出 力 へ 
と 変化 させ る 関数 を 定義 し た も の で は な を なく, 『 入 力 と 出力 の 
関係 ” を 定義 し た も の 』」 と いそ える の で す . 

そし て , この 入出 力 を 逆転 し て も , うま く 有 双方 が ` 関 係 ? 
を 満た す 場 合 , カット ・ オ ペレ ー タ を 使わ な く て も , 無限 
ルー プ に な ら ず に 終わ り ま す . 

Prolog の プロ グラ ム に 慣れ て くる と , 無意識 の うち に こ 
う し た 人 性質 の 恩恵 を 補っ て いる も の で す が , カッ ト ・ オ ペ 
レー タ 補 無限 ルー プ が 子 期 せ ぬ バグ を 生む こと も あり , や 
っ か いで す . し か し , 知識 の 表現 言語 と し て , Prolog の プ 


,O 


4 簡単 な 問題 を 帰納 法 を 用 いて 解 か せる 


に 変換 する に は どう し た ら よ いか . 





問題 


の 状態 を 


repeat(a) repeat(a) 
今回 は 目的 の 歓 能 を , 一 つ ー つ の 手続 き に 対応 する も の に 分 割 し て 与え て し 
まわ ず , コン ピュ ー タ が 個々 の 手続 を 組み 合わ せ , 目的 の 機能 が 果 さ れる か 
どう か 検索 させ て いる . 
韻 pred at モ heF 
100 (*1in1 上 PFC 。』*※ ロ FC 』 己 いじ らら 1 VGFrC ( 氷 1i ロ 1 モビ レビ 。 氷 ロビ こ 呈 ) ) 
10: 8 
日 
半 pred think 
100 (*※PrC』*※fnC) 
110 -plan(*DFC』* す ncC』 上 


旧 


repeat(a) 


12Q0 [tak ら 1 (*a) 。ChandG([ 上 FrGD 己 a モ (※a) 。※D ] 。[dC(F ロ 己 は モ (※a) ) 。.*※]) ] 』 

1 さ O [take2(※) 。Chande([ CFGD 己 a() ]。 上 *XC。 dEC(FGDEa(※ 明 ) ) ] ) ] 。 | 個々 の 手続 き と , それ に 対応 する 機能 . 
140 [put1 (*% 呈 ) 。Chand ら (LTrGD ら at (※ 己 ) 。.* 千 ] 。[inC(rGDGa モ (※%) ) 。.\ す ]) ]。 

15QO [put2(*h) 。Chand ほ (上 *。FD ら a モ (※Xh) ]。 上 *※ ロ 』。 in と (FEDa モ (*※h) ) ]) ] 

160 1) 

170 

日 

韻 己 X 己 

100 -think(*DrC』ChandG(LrGDGa モ (a) 。 ビ FDGa モ (a) ]。[ 上 []。repeat(a) ]) ) 

110 ョ 』 


ま 

!! 1 5uCC@55!! ! 
think(reCuF5iveFirc([ ]。[ モ ak1(a) 。Dut2(a) 。FDFC] ) 。Chande([ 上 FrGDGa モ (a) 。FBD@a モ (a) ]。 上 [ コ 。 
rePeat (a) ]) ) 

韻 pred plan 


100 (MKDPFC』 水 下 ロ と 。 氷 D ロ エロ vV ) 

110 -member([*% ロ FrC,』*% 和 fnC ] 。 光 ロ エロ ved ) 

120 (*%DrC。 水 ロビ 。 水 ロロ vV ) 

1 さ 0 init じ a5e(※f ロ C。 in ロ 1 上 FnC) ロ R 

140 plan5( ポ 1nitPFC』※1n ロ 1 上 FnC 。 DFOYGd ) | の 時 

150 -reduCedCase(*fnC』*reduCedFnC ) 唱 維 > 三 
160 一 planS(※ ロ FC5』 fn ロ C』。[[FDrC。*FeduCedFnC ] . XpFrOve ロ 1] ) wa の スッ プ 
170 -qather (※1 ロ 1 上 PFC 』。 DC と 5。 ポロ FC ) 

18O 


日 

韻 pred plan5 

100 ([]。chan ロ (XX 』※ ポ %) 。※ ロ ) 

110 ([*PFC.*※ ロ FC5] ,Chan ロ (Obj。*Obj さ ) 。 *%D ) 
120 plan(*※DrC。cChang(*Obj。※Obj2) 。 *※D ロ ) 

1 さ O -p1an5(*DrC5。Chan ロ e(%Obj2。』 *Ob ) さ ) 。 *D ) 
140 

日 

韻 Dr mmbeF 

100 (*&』[※a。 氷 %]) 

110 (*a』[\b。*% ぶ ]) 

120O mmber (※a』*% ) 

13O 


日 


す 

韻 Pred initCase 

100 (change(Lrepeat (*※% ) 。FGD ら at (*x% ) ]。[ 上 []。reDeat(*%) ]) 。 

110 change([[]。』reDeat(※x ) ]。[ 上 [ ]。 reDeat(*※x ) ]) ) 

120 』 

すま 

韻 Drd reduCeGdCa5 

100 (Change([ 上 FeDat (※a) 。 上 Da モ (※a) ]。[[]。reDeat(※a) ]) 。 

9 chan ロ (LeC (FeDat (※a) ) 。 1nC (FeGDa モ (※a) ) ]。[[ ]。 reDea(※a) ]) ) 
< 











ログ ラム 自体 を 研究 手段 に 使っ て いる の で あっ て , イン タ 
ー プ リタ が 実際 に 実行 で きる か どう か は 重要 で な いと いう 
見 方 か ら す れ ば , 純粋 に Prolog は 関係 を 表わし て いる の が だ, 
と 言い 切っ て も か まわ な いで し ょ う . Prolog プ ログ ラム は , 
コン ピュ ー タ が 読ま な く と も , “人 工 知能 研究 者 ” が 読め ば , 
それ だ け で も 意義 が ある の で す . 

さて , 3 引数 と 件 に 超 動 きれ た 節 plan は , 本 体 と し て 
どう いう リテラ ル を 充足 に 向け て ゴー ル に 送り だ せ ば , 期 
待 す る plan の 役割 が 果たさ れる の で し ょ うか . リテラ ル 
の 充足 と は , その リテラ ル と 適合 する 節 が 見 つか り , その 
本 体 が な い , ある い は 本 体 の すべ て の リテラ ル が 充足 され 
だ た と き を いい ます (再帰 的 定義 . Prolog を 使う 人 は いち 早 


く 慣れ て くだ さい /). 充足 が 終わ っ た と き に , 3 変数 *p- 
rc, ※fnc, ※*proved は うま く plan の 関係 を 満た す よ うに 
代入 され て いな けれ ば な り ま せん . 

先 に 変数 *proved を 決定 し た と ころ で “ーー す べ て ? と いう 
表現 を し まし た が , こう いう 何 か を 寄せ 集め た も の は , ど 
う 表現 すれ ば よい で し ょ う . リス ト は こう いう 物 を 表現 す 
る 最適 の デー タ 構 造 で す . [< 知識 1 >, < 知識 2 >, 
うに , デー タ を リス ト に 格納 する こと で , 1 つの 項 と し て 
1 変数 *proved に 受け 渡す こと が で きま す . 

リス ト を 活用 する 方 法 の 説明 と し て , 述語 member を 
解説 し ます . 3 の member の 定義 を 見 て くだ さい . 2 
引数 目 に リス ト が くる の で す が , [*a. *x] と な っ て い 
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,O 


5 ある 長 さ の も う 少 し 難し い 問 題 を 帰納 法 を 用 いて 解 か せる . 





韻 pred plan 

100 (XPrC。%f ロ と 。 DFO ロ vV ) 

110 -member([% ロ FC』 ff ロ ヒ ] 。 ネ DO ロ VB ロ ) 

120 (DrC。※% 和 ff ロ C 。 DFO ロ vV ) 

1 さ O -1 ロ 1 上 じ a= 是 (fn ロ こ と 』 氷 1 ロモ FnC) 

140 -p1an5(*1initPrC。*\1n ロ 1 上 FnC 。※ ロ FOVGd ) 
15Q -reducedCas(* ネ fnC。*※FeduCedFnC) 


170 - ロ ather (Xi ロモ ピ FC 。 ロビ 紀 』 ポロ ビビ) 
180 


す 

韻 pred pl1an ら = 

10Q ([],cChange (XX 』※X% ) 。*※ ロ ) 

110 ([*DrC.*D ロ FC5] ,Chand(*Obj。*Ob] さ ) 。*P ) 
120 -p1an(*Xprc。Change(*Xob jj。 *Obj2) 』*P) 

1 さ Q -p1an5(*DFC5。Chande(*OD 2 。*OD) さ ) 。 \P ) 
140 

H 

韻 DrGd mmber 

100 (*a』[ 上 ※a。※%]) 

110 (Xa。[ 上 *D。※%%]) 

120 -member ( 氷 a。』※%) 

1 さ O sg 


す 

韻 pred 1init じ as 

100 (change(Le1em,order ],extUrder ) 。 
11Q change(Lnext。,order ] , extUrder ) ) 


日 

韻 DrGd redu こ ed じ a ら 5 

1QQO (change(Le1 em,order ] , extUrder ) 』 
110 change([e1em。dec(order ) ], deC(ex モ rder ) ) 
120 

H 

半 pred qather 


110 ぉ 』 


H 

菩 pred 上 hink 

100 (*PFC』 fnC) 

110 -plan(*DFrC』\fn ロ C。 上 


13O [put1 change(Lnext。order ] , extHrder ) ]』 
140 [put2,change(dec (ex モロ rder ) , ext モロ rder ) ] 
150 ]) 

160 ョ 』 

日 

音 % 己 に 


110』 


日 
! ! 1 5uCC 刀 55 呈 !!! 





問題 ある 長 さ の 棒 を , 小さ い 順 に 並べ た 棒 の 列 に 加え , 用 小さ い 順 壊さ ぬ よ うに する に は . 


図 4 の 方 法 を その まま 用 いる た め に , か な り 単 純化 し て ヒン ト を 与え て いる . 


160 -p1an5(*DrC ら 5。*fnC。[LrFDrC』*reducedFnC].*※p ロ FOVed] ) 


棒 の 列 の 頭 か ら 1 つ ず つ 棒 を 取り 除い て いけ 
120 ば , いつ か は 加え た い 棒 が 棒 の 列 の 先頭 より 
小さ く な り ま す . これ を , 棒 が elem か ら next 
に 変わ っ た と 表現 し て いる の で す . 


100 (in1tPrC 。 DF こら ょ CUF51 vVBPFC(*※1n1tPrC。* ネ PFC ち 5) ) 


120 [take』chande([e1 em。Order]。[ 上 e1 em,dec(order ) ]) ]。 


10Q -think(*prc,Change(Le1em,order ], ex モロ rder ) ) 


think (recursivePrc(Lput1]。[take。FPrTC。Dut2]) 。Change(Le1em,order],ex モ Drder ) ) 








る と , *a に は その リス ト の 先頭 の 要素 , *x に は 2 番目 以 
降 の リス ト が 入る の で す . 

1 番目 の 節 は 本 体 (-| リテラ ル | の 形 の も の ) が 一 つも な 
い 節 で すか ら , これ に パタ ー ン マッ チ す れ ば member の 
関係 『 等 1 引数 は 第 2 引数 で ある リス ト の 要素 で ある 』 を 
満た し て いる は ず で す . 

(*a,[*a. *x]) は 第 1 引数 が 第 2 引数 の 先頭 の 要素 
で ある か ら , 確か に 成立 し て いま す . 2 番目 の 節 は 第 2 引 
数 を [*b. *x] と いう 形 で 受け 取っ て , 同じ member に 
第 2 引数 と し て *x を 渡し て いま す . これ は , 先頭 の 要素 を 
や りす ご し た に 他 な り ま せん . よっ て member の 動作 は , 
次 の よう に 表現 で きま す .『 第 1 引数 を リス ト で ある 第 2 引 
数 の 先頭 の 要素 と の パタ ー ン マッ チ を 試み よ . 失敗 し た ら 
第 2 引数 の 先頭 要素 を 取り 去っ て , 再び member を 呼び 
出せ .』 こ れ が member に 期待 し た 動作 で ある こと は 確か 
で 
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話 は plan に 戻り ます . 変数 *proved に 代入 する リス 
ト の 要素 と し て , 2 要素 の リス ト [手続 き ,、 その 機能 ] を 
入れ る こと に し ます . こう すれ ば , plan の 定義 は 図 3 の 
よう に , member を 呼び 出せ ば それ で 終わ り で す . 

plan の 2 番目 は 節 の 何かと いう と , これ が 帰納 法 を 意 
識 し た も の な の で す . 帰納 法 の 仮定 ,『 よ り 簡 単 な 場合 に は , 
既に 求め る 手続 き は 与え られ て いる 』 こ と を *proved に 付 
け 加 えて nplans を 呼び 出し て いま す . これ 以上 は 図 3 を 
じっくり 眺め れ ば , わか る で し ょ う . 

plans は 複数 の 手続 き の 集まり を 見 つけ る と ころ だ と 
だ け 言 っ て お きま す . 

Prolog の 実行 を 開始 させ る に は , コマ ンド ・ モ ー ド か ら 
exec[| し , 次 に "一 め ? の 集まり を 書い て くだ さい . これ 
は , ゴー ル 節 と 呼ば れ , その 中 の すべ て の リテラ ル を , ゴ 
ー ル と し て 実行 が 開始 され ます . 

















&O 


図 6 図 5 を 完全 に する 








図 5 の 問題 を , も っ と 完全 な 証明 を 作ら せつ つ , 解 か せ て いる . この プ 
ログ ラム を 旧 バ ー ジ ョ ン て 走ら せる た め に は , 図 7 の 変更 が 必要 で す . 

韻 Pred induction 

100 (ObD」j(*55。*5PrOD ) 。ODJ(* ロ 。*※pPrOD ) 。 *DrOved 〉) 

110 -i ロ 1 上 じ a(※ 品 。 氷 1 ロ ュ モト HyDO) 

120 -oOnceP1 an5(*※in ロ 1 上 P レ こら 。 Ob 〕 (*。 上 *1 ロ 1 モト HyDO. *5PFOPD ] ) 。 Oh (*D 。* ネ DPFOD ) 。 *※ ロ DO ソ ved ) 

1 さ O キノ ウホ ウノ ・ ジ ュ リ ウリ? リ < リウ カカ ( ) 

140 -induction() 

150 (Ob) (* 呈 。*5PrOP ) 。 Ob (※ ロ 。*※ ロ PrOD ) 。 *※ ロ FrOvVeH ) 

160Q -r い こじ a5 巳 (※。 氷 F 己 uCdPFC 。*reduCedHyDO ) 

170 -onceP1 an ら 5(% ロ Fr こ 5。ODj(*5。[ 上 *reduCedHyDO.※5PrODp] ) 。 Ohj(*D,*pPrOD) 。 

18Q ポレ 己 いこ PFC ) 

190 棒 や 棒 の 列 な どの , 現在 まで の 操作 で 得 た も の . 


で ャ 0 それ ら の 間 て 成立 する 関係 . 


100 (DrC』OD ] (*※ ら 。 * ネ PFOP ) 。 OD」(* ロ ,* ロ PF OPD ) 』 ※ ロ DFO ロ vV ) 

110 knOw1 dd ロ 上 (DrC』 Ob ( 炒 品 " 。 水 "PrOD ) 。 Ob ]) ( 氷 ロ 』 DPFOD ) 。 * ロ DFOved ) 
120 -inC1 uded(※ 紀 " 。※) 

1 さ O -inferred(*" PrOD 。 * ネ PFOD ) 

140 ョ 』 


ます 

音 pred pl1an ら 5 

100 ([]』 Ob)(* ら 。*5PrOD ) 。 Ob ] (※D 。*D ロ PFOD ) 。 *DFO ソ vV 。 ※% ) 

110 -inC1uded(*※D』 上) 

120 -inferred(*DPrOD 。 *5PFOD ) 

13O ([XDrC. DF と 5] 』 Ob (%5。*※5PrOD ) 。ODj(*P。 XpDPrOP ) 』 * ロ FrOVed 』F ロ FC) 
RG. 所 再帰 的 な 呼び 出し を 2 度 以上 使わ な いよ うに する た 
160 -append(*p'Prop 。*PFOD 。 "PrOD ) め の , ちょ っ と し た 手助け で す . これ が な いと 無限 
170 ー ウ ウ カカ (PrC) ルー プ に な っ て し まう . 

18Q plan5(*DFC5』。OD〕j(%" 。* 上 "PrOD ) 。OD〕(*D。*DPFOP ) 』*prOved。[ ]) 

190 (上 DFC. ロビ こと] 。 ロ D](*※ 品 。 * ほ PF レ OD ) 』 OD 〕 ( ロ , DP ビレ OD ) 』 ロロ VH 』 ※% ) 

2QO -p1 an (*※DrC』OD〕(*。*※5PFOD ) 。ODj(※D" 。% ロ "PFOP ) 』 *DFOved ) 

210 -apDpDend(*D" 』 水 品 。 水 品 " ) 

220 -append(Xp"PrOD。*5PrOD』*" PrOP ) 

230 ーー リウ カカ (DFC ) 

240 -p ロ 1 an5 (ロビ こら 。ODj(* ら " 。 "PrOD ) 。OD〕(* ロ 。*DPFOP ) 。 ※DrOVG 。 *※DrC) 

250 


す 

韻 pred onceP1 ans 

100 (MKDFC』 水 Ob 1 。 氷 ロ D 2 。 ロビ O ソ ve ロ ) 
110 -plan5(DFrC』*%ODj1 。 GODJ2。*pirOved』[ ]) 
120 0) 

130 

す 

井 pred member 

100 (Xa。[ 上 ※a。※%]) 

110 (*a。[ 上 *※D。*%]) 

120 一 mmDF (※&。※%) 

13O 3 


すま 

韻 pred inc1uded 

100 ([]』*※y) 

110 ([*%a。*%%]。※y) 

120 -member (*※a。※y) 

1 さ 3O -inC1 uded (**% 。*y) 
140 

韻 Dred 1n ロ fg 

100 (上 ]。※y) 

110 ([%aA。*%]。※y) 

120 -memDBr ( 水 &』 氷 y) 

1 さ O ーーi1 ロ 寺 馬 Fr 量 (※% ネツ ) 
140 ([※&。※ ポ % コ 。※y) 

150 -infKnow1 ed (まる 。※%z ) 
160 -inc1 uded(*<。 ネ y) 
170 in ロ fFFGd(*※ ぶ ネッ y) 


1807 紀 変数 の * 型 付け “… 変 数 に 代入 され る も の が 棒 で ある の か , 棒 の 列 で あ 


1 を 示す . これ が ある と 無駄 な 探索 が 省け る . 
韻 pred infKnow1 ed ロ e る の が を 大 人 
10Q (next( 豆 (%@) 。1(*1 ) ) 。 


110 [next(e(%@) 』1(X1”? ) ) 。Cn5((※ 呈 ) 。1 (*1” ) ,1 (%m) ) 。nOtNext(e(* 邊 ) 。1 (*m) ) 。 
120 Cn( 号 (※f) 。1(※1" ) 。1 (※1) ) ] 

13O ) 

140 (cns5(@(*) 。1 (*※1) 。1(*1”* ) ) 。 


3 1 ( ま m) 1 (1 ) 。cng (6( ま すう 。1(#m7) 。1( ま 17)) 。Cng(e( ま e) 。1( ま m) 。1( ネ m" ) 


170 ョ 』 





す 

韻 Dred apDend 

100 ([]』*x。* ポ ) 

110 ([%a。※%]』 ネ y。[ 上 ネコ 。※<]) 
120 apDBnd(%% 。 ネ y。 ネ < ) 


13O 
おく 
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1O 


図 6 続き 





拉 pred init じ Case 

100 (Le(※e) 。1 (※1 ) ]。next((※ 呈 ) 。1(※1 ) ) ) 
110 

日 

井 pred reducedCase 


韻 pred know1 ed 


100 -induction(obJj([@(@) 。1 (1) ]。E]) 。 
110 obj (上 1 (*※1 ) ]。 上 Cn5((@@) 』1 (1 ) 。 1 (*※1 ) ) ] ) 。 上 ]) 
120 』 


日 

リウ カカ (Dut ) 

キノ ウホ ウノ ・ ジ ュ リ ウリ" リ ・ ェ リウ カ 
リウ カカ ( モ ュ k ) 

ウ ウ カカ (FDFC ) 
リウ カカ (ut ) 

! ! ! 5uCC@5555!!! 


construct…*※| は *m に *x を つけ 加え た も の で ある と いう こと . 


100 (上 e(※) 。1 (※1) ]。 

110 [rprC。 

120 Ob 〕j([@(%) 。1 (*※m) ]。[ 上 Cn5( 与 (*※% ) 。1 (※m) 』1 (%1) ) ]) 。 

13Q obj([1 (rpDrC (※ 己 。※m) ) ]。 上 Cn 呈 ( 与 (※ 己 ) 。 1 ( 氷 m) 。1 (FDFC(※。 氷 m) ) ) ]) 
140 ]』 

150 _ notNext((* 与 ) 。1(※1) ) 

16Q ) 

170 』 


100 (*prC。*Obj1 。*OD 2。[ 上 *PrC。*Obj1 。*OBj2]) 

110 (put。 

120 Ob〕([@(*※ 呈 ) 。 1 (※1 ) ]。 上 nx 七 ( 呈 (* 号 ) 。1(※%1) ) ]) 。 

1 さ O Obj([ 1 (Dut( 氷 呈 。※1 ) ) ]。[Cn( 号 (※ 与 ) 。1 ( 氷 1 ) 。 1 (Du モ (※ 呈 。※1 ) ) ) ]) 。 
140 *DFOvVGd ) 

150 (tak@。 

160 obj([ 上 1 (*※1) ]。 上]) 。 

17Q obj([ 上 e(tak1(※1 ) ) 。1(take2(※1) ) ]。 

18Q [next( 呈 (take1(※1 ) ) 。1 (take2(*※1 ) ) ) 。Cn5(( モ akKe1 (*1 ) ) 。1 (take2(*※1 ) ) 。1(* ポ 1 ) ) ]) 。 
190 * ロ FrOVveH) 

200 

H 

提 @%@C 


induction(obj([e(e) 。1 (1 ) ]。 上 ]) 。 Obj([1 (put(take1(1) rprC(,take2(1 ) ) ) ) ]。[ 上 Cn5(e(@) 


put が 適用 で きる た め の 条 件 …*e が 列 *| の 先頭 より 小さ けれ ば 列 
*e を 加え て も 順序 は くず れ な い . 





1 (1 ) 。1 (Put (take1 (1 ) 。FDFrC (take2(1 ) ) ) ) ) ]) , 上 ]) 


(cons(car |) (rprc( 再 帰 呼び 出し ) e(cdr |))) と 見 れ ば その まま Lisp プ ログ ラム / 








図 7 旧 バ バージョン で 図 6 の プロ グラ ム を 走ら せる た め の 
変更 箇所 
アド レス 旧 新 
21C0 CO 一 DO 
25CA CO 一 DO 
25E2 9C 一 AC 
2623 C0 一 D0 
2632 9C 一 AC 
266C CO 一 DO 
2672 CC 一 E0 
2CE2 9C 一 AC 


この 変更 に よっ て , 旧 バ パ バー ジョン の 二 進 木 領域 が 12K バ イト か ら 
16K バ イト に な り ま す . 因みに , V.2 は 20K バ イト です. 


) 当 ジス テム の 使用 法 - 


起動 法 

当 シ ステ ム は マシ ン 語 の 本 体 , お よび BASIC で 書か れ 
た 付加 的 な 部 分 か ら 成 っ て いま す . 起動 は , まず BASIC 部 
分 を RUN させ る と ころ か ら 始 まり ます . この と き , カセ ッ 
ト あ る い は ディ スケ ッ ト の 中 に マシ ン 語 の 本 体 が , ファ イ 
ル 名 PROLOGF2?* で セー ブ プ さ れ て いな けれ ば な り ま せん . 

さて , RUN させ る と “PROLOG/EF” の タイ トル が で た 
後 , プロ ンプ ト ` 半 が 出 て , コマ ンド ・ モ ー ド に な り ま 
す . 以下 、。 コ マン ド ・ モ ー ド で 使用 で きる 命令 に つい て 解 
説 し ます . 
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8 簡単 な プロ グラ ム 例 (任意 桁 の 2 進数 の 足し 算 ) 


菩 pred add_1 bi も 
1OO (O, の, の, の ) 
11O (の O。1。1。O) 
12O の (1, の ,1, の ) 
13O (1, 1 の O,1) 
14O 』 





まず 1 桁 の 足し 算 
を 定義 


add-1-bit を 使っ て 
革 Pred add 任意 桁 の 足し 算 を , 
1oO_ CE], 上 ],E],O) 帰納 的 に 定義 する . 
11O 〇 (上 [ネネ a. ネ x], 上 * ネ b . ネ ホッ], 上 cz ], 玉 CaYY ツ ) 

12O -add (ポメ, ネッ アァ 玉 z , ネ Car ヤ y_be1 Ow) 

13O add_1_ Di も t( 末 a, 玉 b, ネ まこ に ary”) 

14O 〇 -add_1_ bit( ネ dd, 玉 Car エッ _De1Ow, 米 て 」 米 CarYy リ ルリ う 

15O -add_1_ bi も t( 玉 Car ャ アリ 。 玉 carY ツ アリ! 。 炒 CarY ア ッ ネ dummy ) 

16o ぉ 

H 

柱 execCn 

1ooO addCE 1。O,1], 上 O, の, 1], ネ x。 ネ ツア) 

11O』 


FPSCC き 51 1 

add(E1。 の, 1]。 上 O。 の 。 1],。 上 1 1 の 6], の > 

音 eXeCn ロ 

1oo -add(E1。1。1。1。1], 上 OO,。O」 の 1,O]。 ま x ュ ネ ア ) 
11o』 

』 同じ プロ グラ ム て 引き 算 も 行なえ る と ころ が Prolog の 味 の あ る と ころ で す 
!! 1 5uCC@55!!! 
addCE1。1。1。1。1], 上 OO の 」 の 1 O], 上 OO の の, の, 1]。 1) 
社 eXeCh 

1oo -add(E1 の 」 の 。1。 1 コネ x。 上 1。1。1,1。1], ネ ツ ) 
11o ぉ 


す 
! 1! 15ucCCe@555!!! 
addCE1。 の O。 の 」 1 1]。 上 O」1。 1, の 。 の] 上 1。1。1。1,1],。 の ) 


コマ ンド ・ モ ー ド で 使え る 命令 
pred お よび func コマ ンド 

pred [述語 名 ]、 ある い は fumnc [関数 名 ] で その 述語 , 関 
数 の 定義 を エディ ッ ト す る こと が で きま す . いずれ の 入力 











で も エディ ッ ト ・ モ ー ド に 入り ます (カラ ー デ ィ ス プレ レイ 
の 場合 に は 文字 が 青く な る ). 

この モー ド に 入る と , 新た に 定義 する 述語 (関数 ) で あ 
れ は ば 行 番号 100 を プロ ンプ ト し て 表示 し て 入力 モー ド に , 
また , すでに 定義 きれ た 述語 (関数 ) で あれ ば , その 定義 
を すべ て 出力 し て か ら , 次 の 行 番号 を プロ ンプ ト と し て 表 
示し も しそ て 入力 生 一 ドド と な の ます 。 

この 行 番号 は エディ ッ ト の た め に 便宜 的 に 使わ れ て いる 
も の で , 一 つの 語 を 途中 で 切る よう な こと が な けれ ば , い 
つ で も 次 の 行 に 移っ て か まい ませ ん . 恨 キ ー で 次 の 行 に 移 
れ ま す . この エディ タ の 使い 方 は , BASIC の エディ タ と は ほ 
と ん ど 同 じ で , 変更 , 挿入 , 削除 が 簡単 に 行なえ ます . 

この エディ ッ ト ・ モ ー ド に 入っ た と き は , 初め は BASIC 
の AUTO モード に 当たる よう に 行 番号 を 出力 し て きま す . 
2 で だ 2 お 克 9KA0YD す 。 一 連 の エディ ッ ト 
が 終了 し た ら , 生 ] 康 で 該当 する 述語 (関数) の エディ ッ ト 
か ら 抜 けら れ ま す . 

さて , 述語 お よび 関数 の 定義 の 書き 方 で す が , 注意 し て 
欲し い の は , 当 シ ステ ム で は S 表 現 で は な く , メタ 表現 を 採 
用 し て いる と いう こと で す . つま り , 述語 に し て も 関数 に 
し て も , その 引数 は 丸 カ ッ コ で 囲っ て , 述語 名 ある い は 関 
数 名 の 後に 書く と いう こと で す . それ か ら , 一 つの 述語 
だ た は 関数 を まとめ て エディ ッ ト す る 方 針 を と っ て いる の で , 
その 述語 (関数 ) の 定義 と し て , 複数 の 節 を 与え を る と き , 各 
各 の 節 の 頭 部 (帰結 句 ) に 同じ 述語 名 (関数 名 ) を 繰り 返し 書 
く 必 要 は あり ませ ん . つま り , 各 節 の 頭 部 は , 引数 の リス 
ト だ け を 書く よう に な っ て いる の で 注意 し て くだ さい . 

条件 句 は その 引数 リス ト に 続け て , バー?( マ イナ ス ) 記号 
の 後に 書け ば 良い の で す . 

以上 , プロ グラ ム 名 を 見 な が ら , 自分 で いろ いろ や っ て 
みて くだ さい . 
execn コ マン ド 

execn[ 選 の 入力 に よっ て , goal 節 の 入力 を する モー ド に 
な り ま す . goal 節 の 句 は すべ て , バー?( マ イナ ス ) 記号 の 後 
に 続け て 入力 し て くだ さい . 
康 の 入力 に より 入っ た モー ド も , pred, func コ マン ド の 
と き と 同 じ エ ディ ッ ト ・ モ ー ド で , 2 回 の [] 六 の 入力 に よ 
り 実行 が 始ま り ま す . goal 節 の 入力 に も エディ ッ ト ・ モ ー 
ド と は 少し 奇異 で す が , 実は 次 に 述べ る exec コ マン ド の 活 
用 に より , 非常 に 便利 な も の と な っ て いま す . 
exec コ マン ド 

この コマ ンド は execn コマンド と 殆 ん ど 同 じ で す が , 唯一 
違う の は , 前 回 入力 し た goal 節 が 残っ て いる と いう こと 
で す . これ に より , 前 回 実行 し た も の の 一 部 を エディ タ の 
機能 で 変更 し , また 実行 する と いう こと が で きま す . 
trace コ マン ド 

trace と する と , トレ ー ス ・ モ ー ド と な り ま す . た だ し , 
すでに トレ ー ス ・ モ ー ド の と き は , その モー ド が 解除 され 
ま 32 

トレ ー ス ・ モ ー ド の と き に ,exec あ る い は execnm コ マン ド 
で goal 節 の 実行 が 行なわ れる と , 新た に 節 が 選択 され る た 
びに それ が 出力 され ます . 
list コ マン ド 

jist[ で , 現在 定義 きれ て いる 述語 名 , お よび 関数 名 が す 
べ て 出力 され ます . これ は V.2 で 新しく 追加 し た 機能 で す 


エス ケー プ * モ ー ド 


V. 2 で 新しく 追加 きれ た モー ド と し て , エス ケープ '・ モ 
ー ド ” が あり ます . この モー ド は , コマ ンド ・ モ ー ド か ら 
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9 Lazy-Evation を 活用 し た 素数 計算 





革 func from 

19O (まう 

11 の ーー[ ま x。from( キ y) ] 

120 ーex([ ま メ ,1, キ , ニョッキ ま y]) ー*x に 1 を 足し た も の を *y に 代入 する 
130 


) 
埋 func fi1ter 

10O (まま x, 上 まま 1 ]) 

11 め fi1 も er ( キ ま x。 キ 1 ) 

120 exX([ キ で キメ, mod, の, =]) ー*e を *x で 割っ た 余り は 0 に 等 し い . 
13O (キネ x。[ ま 。 ま 1 ]) ー 5 8 
14O ー[ ま を fi1 も er Cx, ま 1)] この 条件 が 満た され て いる と き , 人 - 
15o ter(* ネ x,[*e.* 晶 ) は filter(*x。 *|) 
j に 置き 換え られ る . 

菩 func 51eve 

10O (上 まま 1 1]) 

1 1 の ーー[ 此 e.51 Ve(Cfi1ter( キ まま 1 ) )] 

12o 』 


5 
培 Dred Print a11 
1QO (上 キキ ま a. キ ま x]) 

1 1 〇 ー ソ スウ (キネ a) 

12Q ひ print_a11( て キネ x) 
13O 3 ぉ 


未定 義 の 述語 が 現われ る と , その ま 
ま 印 字 す る の で , 出力 に 利用 で きる . 


H 

柏 eXe に 

10O Prin も t a11(sieve(from(2))) 
11O 』 


H 
ソス ウ て 2) 
ソス ウ (3) 
ソス ウ (5) 
ソス フス (7) 
ソス ウ て 11 ) 
ソス ウ ( 13) 
ソス タウ 17) 
ソス 2(19) 
ソス ウ ( 23) 














CTRL [|C| ある い は , [CTRL |[X| を 押す こと に より ます . 
































ディ スク と の 入出 力 を , 旧 バ バージョ ン よ り も 大 幅 に 便利 に 
し て いま す . 

使用 法 は 画面 に 出る メニ ュー に 従え ば よい わけ で す . 
ここ で は 注意 点 の み 書 いて お きま す . 
ii く < ファ イル 名 > 
誠 プ < ファ イル 名 >, o レ K フ ァイル 名 > 賠 , p 選 とも, 実行 後 エ 
スケ ー プ ・ モ ー ド の まま で , e 較 を 天 行 し な けれ ば な り ま せ 
ん . これ は た と えば , ディ スク か ら 入 力 し な が ら そ れ を プ 
リン タ に 出力 する な ど 2 つ 以 上 の 操作 を 同時 に 指定 したい 
場合 を 考え て の こと な の で す . また , o |< フ ァイル 名 > ノ 
p 陸 を 指定 する と , その 後 は 画面 に 出力 され る も の が , そ 
の まま ディ スク また は プリ ンタ に 出力 され ます . これ を 止 
め る に は , 再び エス ケー プ ・ モ ー ド に 入っ て ,o 陸 , p 財 を 
実行 すれ ば よい の で す . 
組み 込み 送 語 

当 シ ステ ム の 組み 込み 述語 は *ex” と い !? (カッ ト オ ペ 
レー タ ) だ け で す が , ex 述語 の 極め て 多彩 な 機能 の た め に , 
たいへん 強力 に な っ て いま す . な を お, 当 シ ステ ム で は , 実行 
中 に 未定 義 の 述語 に 出合 うと , その 述語 名 ご と 出力 する と 
いう 機能 が あり ます . 
ex 述語 の 使用 法 

ex 述語 と は , 数 値 演算 や BASIC と の リン ク そ の 他 , 様々 
な 機能 を 利用 し た いと き に 使う 述語 で ., こ の PROLOG/F の 
開発 に 使わ れ た 言語 (FIDIA と 名 付け た , これ も 私 の 開発 
し た も の で , いずれ どこ か で 発表 し よ と う 思 っ て いま す ) の 
機能 を 呼び 出す も の と な っ て いま す . 

使い 方 は 図 9 の from の 定義 に 見 られ る よう に, 逆 ポ ー 
ンド 方 式 . すなわち デー タ を 先 に 書き , 沖 を な 
葉 に な っ で いま す 、 

代入 は =:? の 次 に 変数 を 書け ば 良い の で す . ここ に は 
別に 変数 以外 の も の が き て も 良く , その 場合 , 左辺 と の >\ 
ター ンマ ッ チ ング に 失敗 する と , ex 述語 の 呼び 出し 自体 が 
失敗 し て , バッ クト ラッ ク を 起こ し ます 。 

ex 述語 の 呼び 出し が 失敗 し . バ ッ ク ト ラッ ク す る の は , こ 
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図 10 ex 述語 の バッ クト ラッ ク 機 能 活用 例 (述語 ^ 十 ? の 定義 ) 


図 11 カッ ト ・ オ ペレ ー タ の 使い 方 





韻 Dred + 

1 (て まま キッ 」 まる) 

11 の ーーeK([ 上 キキ メッ ま ッッ キ ニョ まァ]) 
は (まま キッ, ま <) 

13 ゆ ーーeX([ ま マッ キメ ッ ー ニョ ッ ネッ ]) 
1 は の (まま キッ キテ) 

15 い ーーeX([ 上 キッ キッ ッ ー, ニョ ま x]) 
16Q 』 





1 











NOTEQ の 誤 ま っ た 定義 

2 つの 要素 が 等 し いこ と を 示す 定義 
の 始ま り 

上 の 条件 が 成り 立つ と き の 条 件 


韻 pred NTEBG 
1OO (ネネ x, ネ x) 
11O -NOTEGC) 
12O (C ま x, ネッ ア ) 











13Oo ji 2 つの 要素 が 等 し て な いこ と を 示す 
j 別 の 定義 

提 で Xe こ n ロ 

1Oo -ーNDTEGCA,A) 

まま の 5 


す 
NUTEGICA,A) ネ まま 1 和 fs 








拉 ら Xe と Rh ーNOTEG. <*ーーーーー バ ッ ク ト ラッ ク は ここ て で 起こ る 
10Gn ーー キ ( ロ 1, まう 
11Q s NUTEGCA,A) ネ [True 
Os 
H 1 1 1 Su に に ゃ 5 ! !! 
1 1 15U に と で 呈 呈 1 1 NOTERCA,A) 
+( 呈 1.6) 菩 pred NOTEG 
SS 1OQ Cx, 米 % う NOTEQ の 正しい 定義 
韻 な XeCh 11O -!C) 
0 ーー+(CBO」 ま x, 99) 12O NOTERC) 
1 < 13Q (*※x, ネ y) 
Yo 14O 
5 
) 敵 ! ーー 11H X で これ 
2 10O -NDTEQCA,A〉 
+ CB 19,99) 11o』 
提 らぶ と hn 5 
1O ー+( ま xy 87 1) NOTEGCA・A う キイ 
・ ー! , an ロゴ 
119』 ーNOTEG. 
H 
111 ーー W 軍 各 111failure!!! 
「「「 5 に に や 互 品 ! NODTEGCA,A〉 
+ キ て 79, 19) 
の と きだ け で は あり ませ ん “=:? が 左 に な いと き , 未 確 定 結合 で きま す . 画面 処理 や 実数 演算 、。 グロ ー バ ル 変 数 、 配 


の 変数 が ある 場合 に も , バッ クト ラッ ク し ます . つま り , 
まだ 確定 し て いな い 値 を 利用 し よう と し た と き で す . 図 10 
を 見 て くだ さい .。 ここ で 定義 きれ た 述語 バキ * は , 3 つの 
引数 の うち どれ が 未 確 定 で も . うま く ~+? の 関係 を 満た 
すべ て 変数 に 値 を 代入 し て くれ ます . 

さて , バッ クト ラッ ク を 故意 に 引き 起こ すこ と も 可能 で , 
す . も う 一 度 図 9 を 見 て くだ さい . 関数 lter の 定義 中 で 使 
われ て いる ex 述語 に は , 最後 に バー” が あり ます ね . この 
パー” と いう word は , 二 つ の デー タ を 消費 し , それ が 等 し 
いと き に 真 (16 進 数 で FFFF) を 返し , 違え ば 偽 (0) を 返す 
word で す . 

この 他 >, さく な どの 大 小関 係 を 示す word が あり 
ます . また だ た, mod と いう word は 前 の 二 つ の デー タ の 前 を 後 
で 割っ た 余り を 返し ます . この 他 , “ 十 ?。 パー タク 。 さま 7 パンツ 
な どの 四則 演算 word が 使え ます 

さて , ex 述語 の 最後 に ある ^ バ =? の ワー ド が , 偽 を 返し た 
と し まし ょ う . する と , バッ クト ラッ ク が 起き て , 則 ter 関 
数 の も う 一 つの 別 の 定義 へ と 移り ます . この よう に , ex 述 
語 内 で 行なっ た 条件 判断 を Prolog の 動作 に 影響 させ る こと 
が 可能 で す . つま り , ex 述語 は 単に 外部 の 手続 き を 呼び だ 
す だ け で は な く , それ ら を 組み 合わ せ て , 他 の 述語 と 同じ 
よう に , 場合 に より 真 , 偽 を 返す 述語 を 自由 に 構成 する こ 
と が 可能 で す . 

ex 述語 に は その 他 に も 機能 が あり ます .^]′” か ら は み 出 
し た 部 分 は , バッ クト ラッ ク の 際 に 実行 され る 物 で す . BA 
SIC な ど と リン ク さ せる と き に Prolog 本 来 の バッ クト ラッ 
ク 機能 で は , 変数 の 東 縛 は 戻し て くれ る が , 外部 に 対し て 
お よ ぼ し た 影響 は 元 に 戻さ な いた め , バッ クト ラッ ク が 不 
完全 に な っ て し まい ます . そこ で この 機能 を 使え ば, 外部 
に お よ ぼ し た 影響 を 元 に 戻す よう な 手続 き を , こち ら か ら 
与 を る こと が で き , うま く 解 決 で きる わけ で す . 

この シス テム で は , 極め て 容易 に BASIC プ ログ ラム と 
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列 の 利用 な ど に BASIC 部 分 を 活用 すれ ば 良い で し ょ う . 

BASIC と PROLOG/F V.2 の 値 の や り 取 り は , BASIC 側 
か ら は USR 1 で , PROLOG/F か ら は basic" と いう word 
で 行ない ます . この word は 1 つの デー タ を 消費 し, それ を 
BASIC に 渡し , BASIC か ら 受 け 取 っ た 値 を 返し ます . 

また , リア ル タ イ ム の 入力 用 word と し て getword” が 
あり ます . 
カッ ト ・ オ ペレ ー タ 

ある 条件 句 に どの 節 を マッ チン グ さ せる か ここ に 選 
択 の 余地 が あり , その 選択 に よっ て 結果 が 変わ ら ぬ よう に 
する の が , バッ クト ラッ ク で あっ た わけ で す . し か し , 閣 
に この 選択 と いう の を 有効 に 利用 し た いと いう こと も ある 
の で す . カッ ト ・ オ ペレ ー タ と は , この よう な 目的 の た め 
に バッ クト ラッ ク の 機能 を 局所 的 に 制限 する 働き を 持つ 述 
語 で す . 

図 11 を 見 て くだ さい . これ は , ある 述語 が 定義 きれ て い 
る と き に , その 否定 を 定義 むる た め の 一 般 的 な 手法 を 示し 
た 物 で す . “NOTEQ の 正しい 定義 ” と “誤っ た 定義 ” の 実 
行 過程 を 比較 し て くだ さい . 誤っ た 方 で は 一 番目 の NOTE 
Q の 節 の 三 番 目 の 句 ^NOTEQ? で 不都合 が お こる と , バッ 
クト ラッ ク が 起こ り , 二 番 目 の NOTEQ の 節 を 試み ます が , 
正しい 方 で は , 別 の NOTEQ の 節 は 試み ず に 失敗 し て し ま 
いま す . 

この よう に , カッ ト オ ペ レー タ と は その 名 より 後 で 不 都 
合 が 起こ っ て , バッ クト ラッ ク し よう と し た と き に , それ 
を させ ず に , その 句 を 含む 節 を 呼び 出し た 条件 節 自身 を 失 
敗 さ きせ て し まう と いう 働き を 持っ て いま す . 

つま り , カッ ト オ ペ レー タ の ある 節 を 選択 する と , 他 の 
節 を 試み る 機会 が 奪わ れる 可能 性 も ある わけ で , Prolog が 
節 を 選択 する 順 座 は , 入力 され た 順に し た が うわ け で すか 
ら , どう いう 順 で 節 を 入力 する か が この 場合 , 重要 に な り 
ます . 








図 12 パタ ー ン ・ マ ッ チ ング の 拡張 
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図 13 関数 の 評価 












隊 パターン ・ マ ッ チ の 結果 
PROLOG/F に お いて | 従来 の Prolog で は 


キネ xー ネ ャ を 保つ よう | 同 左 . 
に 互い に 束縛 され る . 









プロ グラ ム 上 | 内 部 表現 









*x に [a。 *y] が | 同 左 . 
代入 され る . 





* ネ x に f(a,*y) が 代 | 同 左 . 
入 さ れる . 





の 





個々 の 要素 の バタ ー | 同 左 . 
| ン ・ マ ッ チ ング に 還 
元 さ れる . 





[*y 









全 : 閲 数 名 同士 と 引数 同 | 同 左 . 
士 の パタ ー ン ・ マ ッ 
チン グ に 二 元 さ れる . 


OU 





ば その 頭 部 と f(a) と | グ に 失敗 する . 
由 を パターン ・ マ ッ チ 
時 と 碧 の 衝突 ング し , それ に 成功 
すれ ば , その 本 体 と 

7 / [a, *x] と を バタ ー 
*X | ン ・ マ ッ チ ング する . 


リリ 関数 f の 定義 が あれ | バタ ー ン ・ マ ッ チ ン 
f 

















(。) 
京 上 図 で 定数 a, b の 内 部 表現 が も @ の よう に な っ て いる の は , 定数 が 0 引 


数 の 関数 で ある と みな され る か ら で す . 
六 す で に 何 か に 東 縛 さ れ た 変数 は , その 束縛 値 の 方 を 上 図 に 示し まし た . し 
た が っ て 上 図 に お いて 変数 と は , 未 束縛 の 変数 の こと で す . 


論理 型 言語 と 
_ 関数 型 言語 の 融合 


以下 , PROLOG/F の 関数 機能 に つい て 説明 し ます . 


きっ か け 

Prolog で は , デー タ の や り と り は 必ず 変数 を 介し て 行 な 
わな けれ ば な ら ず , 関数 型 言 語 の 持つ 簡素 性 が 失 な われ て 
いる と いう 難点 が 挙げ られ ます ゆい も ちろ ん その た め に , 関 
数 型 言語 と は 違っ て , 返す 値 を 複数 個 と れる な ど , プ ブログ 
ラム の 自由 度 が 上 が っ た こと は 無視 で きま せん . し か し , 
関数 と し て 提 え 方 が 自然 で も ある よう な も の を 述語 に 表現 た 
する に は , 引数 を も う 一 つ 増 や し , それ を 値 (も と も と 関 
数 の 値 と し て 意識 され た も の ) を 返す た め に 使う な ど と 回 
りく どい こと を し な けれ ば な ら ず , プロ グラ ム の 読み や す 
さ の 上 か ら も 改善 すべ き 点 の よう な 気 が し まし た . 

関数 評価 も 部 分 的 に 取り 入れ る に は どう し た ら よ いか と 
考え て いる と き , Prolog 処 理系 で 広く 使わ れ て いる 表記 法 
か ら あ る ヒン ト を 得 まし た . 

多く の シス テム で は , 項 が 複数 の 語 か ら な っ て いる と き 
は , 最初 の 語 を カッ コ の 外側 に 出し て , た と えば /(* ネ ァ ィ , * ネ 
y, @) の よう に 関数 風 に 表記 され ます . また そう いう シス テ 
ム で は , 別 の 表記 法 も 許し , [ 太 * ま *, * ヵ 2] の よう に か 
ぎ カ ッ コ の 場合 は S 表 現 風 に 表わし ます . し か し , こ の よう 
に 2 通り の 表記 法 を 許し , また , お 互い に パタ ー ン マッ チ 
は し な い (つま り 両 者 を 別 の も の と する ) と は し て いる も 
の の , それ 以上 の 機能 の 違い は な いよ う で す . すなわち , 
いずれ に し ろ パ ターン と し て の 意味 し か な く , 関数 風 に 表 
わ さ れ て いて も それ を 評価 する わけ で は な い , と いう こと 
で すず .。 

せっ か く こ の よう に 2 通り の 表記 法 を 許し た の な ら , 前 
者 ( 丸 カ ッ コ を 使っ て 関数 風 に 記述 し た も の ) に 対し て は , 














振 TunC alnhabet 関数 alphabet の 定義 
1 () 

11 ゆ ーE 上 8 BE。 ビ 」 

1 デ 






井 Pred alway ツ 5 Fue 述語 always true の 定義 
1MM (7 
119 s 

寺 Pred ロ 1 member 述語 A is member の 定義 
19 ゆ (上 R- コラ 
11 ([ テ a.%]) 
1 りり 一 15 mmDeF(※※) 
13 の s 


この よう に , 頭 部 (帰結 句 ) の 関数 名 
ある い は 述語 名 は 省略 する こと . 


提 呈 ※ 己 ロ 

1 の 一 a1 ゅ ay= true(a1phabet ) 

11 の s 実行 ① 
1 ! 1 guCCe55 紀 !!1 

引い ay5 上 Cue (alphabe 上 ) 

培 execn 

1 -- 如 15 member(alphabet ) 

119 

実行 ② 
! ! 1 guCC@555! !! 

内 15 member(a1phabe モ ) 


韻 funcC a1phabe モ 

る Rn C。D] alphabet の 定義 を この よう に 変え 
59 を (A_is true が 成功 し な いよ うに 
する ), trace モ ー ド に し て みる と 。, 





いずれ も 成功 





本 人 に ge 実際 alphabet が 関数 値 に 置き 換 わ 
桂 BxGC っ て いる こと が よく わか る . 
1 の の 人 Q 1= member(al1phabet ) 


11 り 9 s 


人 R 5 member(a1phabet ) ※※※1 エ fs 
Zi5_ member (LC.D]) . 

介 1 member([C。D])*X※ エ チェ 
/_ is_member (ED]) 。 

人 15 membeFL(LD])*X※Ifs 

/R_ 15 member(ni1 ) 。 
11!fai1uune! 1 

_ 1 member(a1phabet ) 











述語 の 一 連 の 定義 と は 別に 関数 定義 を 与え て や り , 実際 に 
関数 計算 を すれ ば よい の で は な いか , と 考え た の が PROL 
OG/F の 出発 点 で し た . 


評価 を パタ ー ン ・ マ ッ チ ング 時 に 

この よう に し て 関数 を Prolog の プロ グラ ム 内 に 表現 する 
方 法 は わか っ た の で す が , で は いっ た い コ ンピュータ は , 
いつ その 関数 の 値 を 計算 (評価 ) す る べき な の で し ょ うか . 
新た な 節 が 起動 きれ る (つま り パ ター ンマ ッ チ ング の 相手 
と し て 選ば れる ) ご と に , その 節 内 の 関数 は すべ て 評価 ず 
み の 値 と 置き 換 を る と いう 方 法 で は , あま り に 工夫 が な い 
よう に 思え ます . 

従来 の Prolog に お いて , 実質 的 に 計算 が 行なわ れる と こ 
ろ は 一 連 の 処理 過程 の どこ で ある と 言え る で し ょ うか . そ 
れ は , ノバ パ ター ンマ ッ チ ング で 収 る と 思い ます . な ぜ な を なら 。, 
リス ト を ば らし た り , 再 構成 し た り を 繰り 返し つつ , 結果 
を 構成 し て いく 動作 は Prolog に お いて は すべ て パパ ター ンマ 
ッ チ ング 時 に 行なわ れる か ら で す . し た が っ て , 関数 計算 
も パタ ー ン マッ チン グ 時 に 行なう の が 自然 で あろ う , と い 
う 考 え を 押し 進め て いく うち に , 図 12 の よう な 考え に 到達 
は 事 も だ 。 

節 の 内 部 表現 の 二 進 木 に は , 各 ノ フー ド に すべ て 1 ビッ ト 
の フラ グ ( 図 で は 黒 か 白 ) を 持た せま し た (HIPER LISP? 
に ヒン ト を 得 た ). この フラ グ の 意味 は ,. も し 黒 な ら ば そこ 
か ら 先 は 関数 で あり , 評価 を 必要 と する と いう 意味 を 持ち 
ます . 白 な ら ば , そこ か ら 先 は 確定 し て お り , 置き 換え ら 
れる こと は な いと いう 意味 で す . さて , ノ パ マタ ー ン マッ チン 
グ で , 白 と 黒 が ぶつ か っ た と き , 白い ノー ド は そこ か ら 先 
が リス ト で すか ら , 個々 の 要素 の パタ ー ン マッ チン グ に 司 
元 さ れる べき と ころ で す が , も う 一 方 が 未 確 定 と あっ て は 
先 へ 進め ませ ん . そこ で , その 時 点 で 関数 評価 が 始ま る の 
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0 


で す 。 

関数 評価 は 関数 部 分 を , それ と 等 し い ( と され た ) 確 定 値 
と 置き 換え を る こと を 意味 し ます . この と き の 引 数 受け 渡し 
機構 に お いて も , パタ ー ン マッ チン グ を 使う こと に し まし 
た . すなわち 関数 定義 は 次 の よう に 書き ます . 








double _ first([*a, * ネ xl) 王 |*a, *※a.※X] 





これ で double_first と いう 関数 が 定義 きれ た わけ で す ( 当 
シス テム に お いて は ヾ =? 記号 の か わり に / [SHmFll+ 了 5 
を 使い ます が , 意味 的 に は “= テ ” だ と 考え て くだ さい ). つ 
まり , double_first で 始ま る 項 が プロ グラ ム 中 に あっ た と 
き , PROLOG/F 実行 時 に , 必要 に 応じ て 右辺 の よう に 変 
換 さ れる の で す . 

2 パパ ター ンマ ッ チ ング の 自然 な 拡張 に な っ て いる こと に 注 
目 し て くだ さい . 従来 の Prolog で は , パタ ー ン マッ チン グ 
時 に 行なえ る 基本 的 な 演算 は , 分 解 と 構成 (リス ト と 「[* 
a, *x] の マッ チン グ で , *a, *x に 入る 値 , ある い は * 
a,*x に すでに 値 が 東 縛 き され て いる と き に [*a, *x] を 作 
る 動作 を 考え て くだ さい ) だ け だ っ た わけ で す が , PROLO 
G/F で は 関数 を あら か じ め 定 義 し て お けい ば , 分 解 , 構成 に 加 
そえ , バラ エ テ ィ に 富ん だ 動作 が 可能 に な り ま す . 

だ た と そば “しっぽ と り 出 し ” を させ る に は , 




















last _ fetch([*a])ー[*al 
last _ fetch([ *a, *xl ) 三 last _ fetch(* ネ x) 











と 定義 し て last_fetch(*x) と 使え ば よい の で す . 

も う 一 つ 重 要 な こと は , lazy-evalvation の 実現 に も な っ 
て いる こと で す . いま , alphabet と いう 関数 (0 引数 ) を 次 
の よう に 定義 し た と し ます . 


alphabet ( ) 三 [A, B, C] 














さて , 次 の 2 つの 述語 の 定義 が ある と し ます . 

①always_true (*x) 

⑧②A_is_member (| A, *※x] ) 

A_is_member (| *a, *x| ) 王 A_iS_member ( ネ x) 

① は *x が な ん で あっ て も 常に 真 . は リス ト 中 に A と 
いう 要素 が あれ ば 真 に な り ま す . ここ で , 

① 一 always_true (alphabet) 

⑨ 一 A_is_member(alphabet) 
を 実行 きせ る と , いずれ も 真 に な り ま す が , 関数 評価 が 行 
な われ る の は ⑨ ず の 場合 だ け で す . これ は ① の 述語 は *x の 
内 部 が どう な っ て いよ うと , 影響 る されない の に 対し て , ② 
の 方 は リス ト の 要素 を 問題 に する 述語 だ か ら で す . それ は 
* 値 が 必要 と な っ た と き , 初め て 計算 を する ”, 言い 換え れ 
ば , lazy-evaluation を 行なっ て いる か ら な の で す . 実際 に 
実行 し た よう す を 図 13 に 掲げ て お きま す . 

lazy-evaluation に よっ て , 無駄 な 計算 が 省 か れる と いう 
利点 が あり ます が , も っ と 顕著 に 効果 が 表れ る の は , 無限 
長 の リス ト が 扱え る よう に な る と いう こと で す . た と えば , 
図 9 を 見 て くだ さい . from (*x) の 値 は * ま Xx,。 *※ ま 玉 十 1,、 ネ 
| ※>。o、 敵 丸 才 授 | 


十 2,…… と いう 無限 個 の 要素 を 持つ リス ト で す . も し ,fro 
m(*x) の 値 を 完全 に 求め て か ら …… と し て いた ら , 素数 
が 1 つも 求 ま ら ぬう ち に オー バー フロ ー す る で し ょ う . 

この 素数 を 求め る アル ゴリ ズム は ,『 エ ラ ト ス テ ネ ス の ふ 
る い 法 』 を , ご く 自 然 に 記述 し た 物 と な っ て いま す (bit "82 
年 12 月 号 ? 参 照 . この よう に PROLOG/F は , 計算 機 の ぎ こ 
ちな さ を 相 当 お お い 隠 し , 人 間 に 近 い 表 現 が で きる と 言え 
の 7 で し よう 。 
賠 数 評価 と バッ クト ラッ ク 

も う 一 度 図 9 を 見 て くだ さい . 関数 定義 の 中 に は バ 一 ? 記 
号 が 2 つ あ る 物 が あり ます . 1 番目 の "一 * の 右 に 続く 物 が 
関数 の 値 で ある こと は 先程 話し まし た が , で は 2 番目 の パー” 
の 後 は 何で し ょ うか . 

ここ に は 述語 を 先頭 に 持つ 句 (条件 句 ) を 書き , 意味 的 
に は 『 そ の 命題 が 真 で あれ ば , この 関数 定義 が 有効 で ある 』 
と いう こと で す . 必要 な を な ら ( ば バー? 記号 を 繰り 返し 使っ て 条 
件 句 を 複数 個 書 いて も か まい ませ ん . それ ら の 論理 積 が 条 
件 と な り ま す . 

条件 が 成立 し な い 場 合 に は , バッ クト ラッ ク し て 他 の 関 
数 定義 を 試し ます . た と えば 図 9 の 関数 lter の 定義 を 見 て 
くだ さい . 100 行 目 と 130 行 目 と か ら 始 まる 2 つの 定義 が あ 
り , 前 者 は *e が *x の 倍数 で ある と き , 後者 は そう で な い 
と き に 適用 され ます . ちな み に Rilter の 意味 を 述べ て お く と, 
2 つの 引数 を 持ち , 第 1 引数 は 数 , 第 2 引数 は 数 の リス ト 
で , 返す 値 は 第 2 引数 の リス ト か ら , 第 1 引数 の 数 の 倍数 
を すべ て 除い た リス ト で す . 

この よう に 関数 評価 の 際 に も バッ クト ラッ ク が 行なわ れ , 
また 条件 句 の 部 分 に カッ ト オ ペ レー タ ~! ? 述語 が あれ ば 
それ も 有効 で す . た だ し , バッ クト ラッ ク は , その 関数 評 
価 が 引き 起こ され た パタ ー ン マッ チン グ が 成功 する まで 有 
効 で 。 その 後 は バッ クト ラッ ク し ませ ん . 

さき さて, ここ で PROLOG/F の 関数 評価 機能 の 説明 を 終わ 
り ま す . 述語 に 関す る 使い 方 は 普通 の Prolog 処 理系 と 同じ 
な の で , I/O "83 年 3 月 号 な ど を 参考 に し て くだ さい . 
















現在 , 人 工 知能 研究 会 で は , Prolog の 記号 処理 能力 と S- 
malltalk に 見 られ る よう な 対象 を , 自然 に 記述 で きる 強力 
な シミ ュ レ ーション 機能 を 兼ね 合わ せ た よ うな モデ ル を 使 
っ て , 推論 する シス テム HImagination Applier' と いう も 
の を 模索 し て お り ま す . 

人 工 知能 は 未知 な る アイ ディ ア の 宝庫 な の で す . 
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Prolog/FV.2 BASIC プ ログ ラム ・ リ ス ト 





10 "SAVE "pro1 ogvS" 
20 "SRVEM "PROLOGFS" 。 SH1EOO。 HB64 人 nH1EOO 
さき さ Q_REY1 。CHR ま (1 さ ) リュ リキ CEHR 和 (1 さ ) 二 リュ リ +CHR ま (1 さ ) 


50O KEY さ 。 "exeC"+CHR ま (1 さ ) 
60 KEY4。"func " 
フ 70 KEY5。"pred " 
BO KEY6。 "trac"+CHR ま (1 さ ) 
90 KEY10。 "11 = モ "+CHR ま (1 さ ) 





110 CLEAR さ QQ。 SH1EOODIN 人 ま (4.4) :LUaDM"FRULODGFS" 


40 KEY2。 CHR ま (1 さ ) す "リュ リ ォ キビ HR ま (1 さ ) + リュ リキ CEHR 和 まま (1 さ )+"pred " 


100 MIDTHBO。 SO CDNSULEO。 1 日 。 1:FRTNT "Mait a minute!P 
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リス ト 1 Prolog/FV.2 BASIC プ ログ ラム ・ リ スト 





129 CONSULE , Sg の 
13@ ロ N ERRQR GTO 5 全 
14@ DEFUSR=&H1E の DEFUSR1= テ SH1E さ : DEFUSRS=&HS7DB 

159 CLS:FURT= TO 1 STEF さ .14/ さ の :LINE(649,9) 一 (64@*(1 一 CHS(T) ) OxSTIN(1) ) 。FSET 1* 

NEXT 

162 FHRT= ロ TO さ .14/2 STEF さ .14/2Q :LTNE(@。@) 一 (64 の CUGS(T) 。BgxGIN(1I) ) ,FSET 。 さ NEXT 
17@ SYMEOL (SO 5) 。" Pro1 og Mi モ Eh Fun と も 1Ona1 Ca1Cu1lation の 1 で 。 ら 』jN ロ T 

18g SYMEOL(EQ」 選 ) 。" Pro1og wW1 モ Eh Fun と も 1Gna1 Ca1Cu1lation 1 ビ 。 の 。 FRESET 

19@ SYMEHL(19,S の 9) "Fro1og ロ ZF VS の "6,7。 呈 

SQ SYMECL (5 の) 。 り The revo1lutionaFy 1andua ロ BE EE OUR 

1 SYMEOL (GO の 69) 』" for 上 he futur ロ BnEFatiOn リ PP SURi SBYHEOL (SE BB) "CO 

PyFright (CC) 1984 by E.Yoshikawa"』1。 す 。 和 4 

2 LOCRTE 9:FOEESH1EFS 。 iR メニ USR (XX) 

3 HN RX+1 GOSUE 1 の 2 。 49 四 

24 の RX=USR1 (ZZX) : GUTHS さ の 

2 LINETNFUT#1』 介 争 

せら 6 の FRINT 

27 IF SC(R ま ) =H2E ス THEN 人 外 ニ MTD ま ( 全 。 さ 

SB GX デ USRS (INT(VMRRFTR て (人生 ) ) ) : ん ーHG7 プ F ロ ェ まま テ リリ 

2 IF EQ ロ F(1) THEN FEESH1EFS』g: CLOSE#1 

2 RETURN 

g FRINT VC 1 DP 所 昌紀 旭 品 まり 

2 FRINT" Choose one!" 

FRTNT" E for breah" 

44 FRINT" CC fgr cont" 

Sa FRINT" 。 T for input from fi1" 

36 FRINT" 口 for output キロ fi1 呈 " 

さ 7@ INFUTU 。 F 才 Or Gu モロ Dut モロ DFinteF " ョ 内 放 

B ON (INSTR("EBCC TiHoFD "人 ま ) キ 1)\ 島 BHTO 4 の 。 人 41 人 の 42 の 44, 人 462 

3 FRTINT UP PPU GUTHSSg 

440 STOF' 

人 1 RETURN 

4 TNFUT リ Fi11 ロ nam D1 8 リ Fs ロ FEN" エリ 。 提 1。F ま 5FOEESH1EFS HHFF GUTO4B 

人 43 の ITF FO=1 THEN CLUSE 半 2 ュ F ロ テ =: BHTH47 ELSE 44@ 

人 449 INFUT リ Fi1eG namB D1a5 5 FE 還 s ロ FEN" ロリ 。 韻 。F 分 事 

4 FOEESH1FS ,HFF:F ロ =1: BHTH48 

46Q_ F ロ =1-FH 

47Q IF FQ QR FG THEN PFOEESMH1FE。&HFF ELSE FEES&H1FE。 の EFHEESH1FS1 中 

4BQ FRINT! "iBTOSS 

49@ 1F FQO THEN IF FE &H1EFS)=1@ THEN FRTINT 持 LEFT 事 (GUT 多 。LEN(HUT ま うー1)g ロ LUT ま = りり 9 EE 

LSE UTFHUT ま +CHR ま (FEEE (SH1EF さ ) ) 

9 IF FG THEN LFRINT CHR ま (FEER ド (SH1EF さ ) ) 』 

1@ RETURN 

SS IF ERL=42M RaRND ERR=6 さ THEN FRINT"*Fi1e not found*"sTNFUT リ RetFy(YーN)  " ョ 人 第 TF 
促 = リ YU OR bm リッ y リ THEN RESUME _ 42 の ELSE RESUHE 48 の 

さ Q IF ERL=44@ RAND ERR=64 THEN FRINT"*F11 与 a1Fady X1=t*" ELSE 62g 

4 FRINT" 介 for nother fi1G name モロ innut" 

SS _ FRINT" E for Exit リ " 

S69 INFUTD ドド for Ri11 eisting f11 リュ 人 生 

97 仙 =(INSTRC "TEAEK 月 征 ) 1 ) 半 宮 

SB IF fm THEN FRINT ST や PE GUHTHSSE@ 

7 IF =1 THEN RESUIIE 4 人 4 

6 エド THEN RESUMIE 48g 

THEN ILL F2S ま RESUNME 

62O_ FRINT"ERRHR IN LINE"』ERL:ERRUR ERR 
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EE トク 2 Prolog/ ビ V.2- マ シン 話 ' ダ ンプ ゾ ・ リ ス ト EE 
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リス ト 2 Prolog/FV. 2 マシ ン 語 ダン プ ・ リ スト 


2156 7E 1E C5 GE ED 21 さ 4 35 B4 さ 4 @2 B6 @D BD 21 oeC :ED Add + の +1 + つ + さ +4 + 呈 +6 + フ + 日 +9 +Q +B +C +D +E +F Sum 
2169 日 6 9Q BD 21 GOC さ 5 2 さ 4 92 a6 B@ 日 1 @4 27 95 BD =:FB 2o9 ら さ 4 さ の 19 BE G9 GO aE 4 BD 1 さ 35 16 さ @ 92 
217 の 21 @C 29 F5 5 2 BD 2 @C 4 @4 F6 1F 1 B7 1F =:1D 261 の 3 29 25 EC さ 9 6C 21 EC 22 aF 22 1F @1 BC 
2189 1 昌 1F 9 35 4 さ 4 19 7E 22 QB BF 1F 26 35 19 3B :98 262G 25 SE BC EGO 99 24 さ 6 1F 19 44 56 25 39 44 
2199 B6 FF B7 1F 68 BZ 1F 71 BE oo GO FE 1F 16 BF 1F :a9 26 さ の 2C C さ BC 99 1E @1 6D 4 2 64 1E @1 29 1F 
21Q9 1E BF 1F 26 19 CE 7 の @9 29 5B BZ7 FD @F 1 FF 1F :DC 264@ 1F @1 EC B4 19 QF 4 1F 12 1F @1 29 D9 EC 
21BO 12 19 CE 79 GO 7F 1F @2 12 CE FC gg BD 25 g5 BE :51 265@ FE さ 4 @6 EC 22 ED 4 QAF 22 1F 21 35 29 19 
21C9 E9 99 AF 1E 39 1 ビ BC 9@ Go 26F フ 7 BF 1F @6 BE F9 =:94 2o66G OO 26 の 1 さ 9 E6 21 54 24 QC 29 E2 BE E9 @9 
21DG GO BF 1F @ BE 1E FQ BF 1E FE BE 1 29 EF 1E FC :e6F 267 の 9 19 BE F4 GO さ @ 1C 6D a2 2 94 6 さ a4 29 94 
21EG BE 日 1 2C BF 1E FA BE B9 1@ さ 4 19 さ 4 19 BE 9 99 =46 2689 1F 19 BC 99 9@ 26 ED BD 1E DD 39 aE C4 36 
21F@ BF 1F 1C BF 1F 29 BF 1F 26 BE 21 B5 BF FF Fe BE :72 2699 2 の G2 2O 2 さ さ 7 19 19 BE 1E FE BD 24 ED 27 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 26QG BE 1E FE aF 3 19 BEF 1E FE 19 aE E4 さ 4 29 
Sum: 59 7E 1D 44 8BD 11 C1 さ 1 92 BaQ @ さ 9 D9 11 2E ED :2C 2oEO さ 7 19 BB @2 QaF E6 39 37 19 19 BE 1E 7E BED 
26CO 27 1D 19 BE 1E 7E aF ミ 19 BF 1E 7E 1@ BE 
26D9 BE さ 7 19 aF a1 BE さ 34 19 aF a1 19 BF 1F @B 
26EG BE 1F GB BE さ 7 19 QAF QA1 C6 aF EZ a@ BB 69 
dd  +O +1 +2 + さ +4 日 6 キ フ +B +9 + TB キビ +D +E +F Bum 26F9 19 BF 1F 9 39 さ 7 1 19 BE 1F 6B 19 BF 1F 
22GG の GO BF 1F 22 BE 9 ②@ BF 1F 24 BD 21 9 BZ FD :85 | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
2219 GF 日 6 @9 B7 1F @4 BE @D 11 BF 1F 2 BE 97 23 BF :98 6 7 E ウ FS QR B9 95 B1 9D 4D 79 95 B2 :E5 




















22 さ 9 2O BEF 1F 3 BE @G9 GO BF 1F さ a BE 29 9D BF 1F 4 :BD 


2 さ 96 

2 さ 19 

2 さ 29 BE さ 6 19 QAF Q1 1 の BF 1F 9 16 FF 45 19 BE 
2 ささ 9 EC 4 1 の 9 B さ FG 99 24 GC 19 3 25 16 27 9@6 
<2 さ 49 6 BD 2 の 96 6 RD 7 QG 6 9F a7 a9 aF a1 
2 さ 59 1F 9 16 FF 1C 8B5 9 27 92 BD BE a6 @2 8B4 
2 さ 69 9@7 aE 日 4 QD 92 16 FF @9 AD 94 16 FF @4 a6 
2 さ 79 29 19 26 FF 5 さ 19 BE 1F G ヨ 6 BE a7 AG aF 
2 さ B の 9 さ 6 19 RF 1 19 BF 1F 9 16 FE E6 19 BE 1F 
2 さ 99 2D 1 の EE 6 さ FC 19 BC 9 19 26 @Q 19 BE 99 
2 ささ AO _BF 1F 1C 29 19 QE a4 1 の 9 QE 22 19 BF 6 さ FC 
< さ BG FF FF BC の GO 25 2 さ 1 21 19 BF 1F 1 39 
2 さ CO BE 1F 1E 27 94 BD 25 29 9 さ BD 21 76 BE 1F 
2 さ DG 24 GD 26 EC さ 4 92 5C BE 1F 5 BD 24 GD 26 
2 さ E9 1F 1 BE 1F 3 BD 24 6D 26 2D 29 D4 さ 4 94 
2 さ FO 92 E6 9 5D 26 @E BE G9 GO BF 1F 1E さ 35 @4 





Add  +@G +1 +2 + さ +4 + 王 +6 + プ + 日 +9⑦ +Q +B +C +D +E +F Gum 
2B99 27 6 54 6F 6F 4C 6F 6E 67 94 BE 1D FE BC 1D FE :D7 
2B19 27 1E 19 QE 日 4 19 BC 9 36 26 15 FC 1F 9 QA 94 :DE 
2B2O 19 3 GO B@ 24 DS 5 E7 9 94 さ 9 96 BF 1D FE 39 : さ 9@ 
2B さ 9 19 BE 9 さ 6 19 QF 日 さ 19 BE B9 44 1 の 9 QF 8B さ BF 1D :16 
2B49 FE 16 FE D9 BE FF FF 37 96 1 ヨミ 9 19 27 92 さ 39 : さ 9 
2B59 91 さ 6 19 39 QE D4 aF C4 39 AE C4 QE 92 aF C4 39 :7C 
2B69 26 GO BE BG 19 36 19 B6 1F 9@4 BZ 1F GE 6 @1 B7 :7F 











Add +⑨ +1 +2 Bum 2BF9 C4 6 44 E6 46 さ D ES C4 ED C4 aE 42 aF 46 ささ 46 :CD 

2499 76 BF 1F ーー 
2419 95 AaA1 B9 
2426 さ の 9 25 64 
24 さ 9 99 36 1 の 9 
2449 94 5A A6 
2459 B9 97 34 
2469 26 D さ さ フ 
2476 1F 22 さ 6 
2489 1 の BF 1F 
2499 さ 1 日 6 さ 1 24 さ 6 22 E1 CO 26 1 の さ 1 E6 39 94 6 2 
24QO Aa1 ヨ O 27 FA さ @ 1F AaC C4 24 @4 37 19 29 DC 3Z7 19 
24B9 1F 9 49 さ 9 B6 3 の 1C 32 E5 19 BE @9 99 19 BF 1F 
24C9 1 さ 39 1 の BE 25 16 1@ AF 4 6 @1 a7 @G2 E7 @ さ さら 6 
24D9 14 さ 9 94 さ 1 E5 Q6 QA2 7 9 5Q 26 F9 6 @9 Ra7 92 
24E9 さ 7 14 さ 2 E5 1 の BE @9 @O 1 HF 1F 1 39 さ 4 29 19 
24F9 AE QA4 4F 19 QAC E4 27 @GB QC Q1 27 G6 BB 2 29 F さ 








と いざ 加 0 ロロ 
pp と mm イロ mm ロー と ー ロ ひさ ぐさ ③ ざ の 




















2559 さ E 29 94 BE 7F FF AC C4 25 9 さ フ 7E 2955 さ < フ 7 19 ヨ C :D5 dd の (Si 二 4 の アー 日 2 5 信昌 HDL ま D 
2569 99 GO 24 ら D 、E6 6 さ さ 9 @4 6 9 BD 21 @C 5 26 FB :66 2Qo9 BF 1E 7E 19 BE 1F 6B BE 3@ 7E aF QA1 BE さ 4 
2579 さ 9 6 2 BED 21 GC 36 19 QE B4 さ 6 1@ BD D5 ミ 7 19 :S 昌 2Q19 Aa1 BE さ 6 19 RF QA1 19 BF 1F 6B 39 19 BE 1F 
25BO AE 92 BC 99 Go 25 97 日 6 29 BD 21 oC 29 EB BC Bo@ :9C 2Q2O さら EZ AG BB 69 7 QA9 BE さ 6 19 AF 1 19 BF 









や どい の 0 ロリ ひひ ロロ ロロ ひび や 


ロ と に 





152 











27 14 19 BE 日 1 4C 19 RF 日 ミ 


2B2 の 9 19 QF 日 1@ BE B1 74 19 QF ミ BF 1D FE 39 BE 1D :65 


dd 。 + の 1 +2 + さ +4 + 品 + ら 6 + フ + 日 +9 +a +B +C +D +E +F Sum 











の mm ロジ ソロ ロロ ロア い の 


に 」 
皿 
由 
に 
や 
い 
S 
い 
に 
ひ 
ドコ 
い 
で 
中 
ul 
m 
る 
ドコ 
に 
い 
ひ 
に 
に コ 
1 の | 
ざ 
ビ 
ざ 
い 
よ 
は 
に コ 
セ 
四 
ひ 
に コ 
ら 
ロ 
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リス ト 2 Prolog/FV.2 マシ ン 語 ダン プ ・ リ スト 








1 ぐさ ぐ ロ ロ Q や の る ぐ ロ ジロ ょ よ ロ 0 ひ DO 





dd の +1 + つ + さ +4 + ロ + ら 6 + フ 7 + 日 +9 + +B +C +D +E +F Sum 
さ 29 の O さ 6 1 の BE 9G9 92 さ 6 1@ BD 28 BD BD 2 ミ 7 29 32 AE siDC 
さ 21 の 6 62 36 1 の BD 2 59 BEBD 2 54 BD 26 BB BD 28 54 BD :3 
さ 226 28 54 AE 69 36 19 BD 2 5D aE C1 27 @2 2 12 BD s:9B 
さ 2 さ の 29 39 AE 69 36 1 の 9 RE 62 さ 6 19 BD 2B 59 aD 9F 日 さ :19 
さ 24 の 2O さ 2 64 39 さ 7 1 の さ 4 1 BE GO @a さ 6 19 BD 29 9 :EZ 
さ 259 
さ 269 
さ 279 
さ 289 
さ 299 
さ 2A@ 
さ 2B ゥ の 
さ 2C9 
さき 2D@ 
さ 2E@ 
さ 2FG 
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リス ト 2 Prolog/FV.2 マシ ン 語 ダン プ ・ リ スト 


さ 439 さ 7 19 さ 4 19 BD さ 2 E@ BD 26 BB BD 2 44 aE C1 27 :B7 

さ 449 GOC BD 29 さ 9 AE 6 さ 6 1 BD さ @9 72 29 4 BD 26 BB :E4 
さ 459 BE B9 さ 1 さ 6 19 BD 2 5D AE C1 27 2F BD 29 39 BD 6 
さ 469 29 さく 9 BE GO @1 さ 6 1 aE 62 36 19 BD 2 さ 37 BE 99 :39 
さき 479 99 さ 6 1 の BE G9 95 36 1 の BE @9 11 さ 6 1 BD 29 AF =:99 
さ 4BO ED 2F FB BD さ 2 EGO ED 29 39 29 gaQ BD 25 C4 aE 6@ :BO 
さ 499 さ 6 1 の BD 2F 4B さ 2 64 さ 9 BE GO GD 36 19 7E 29 AF =: 日 
さ 4AO BD 2F FB 7E 29 39 37 1 さ 4 19 3 フ 7 19 さ 4 1 の QE 69 sEB 
さ 4BO さ 6 1 BD 2 59 BD 28 44 aE C1 27 36 aE 62 36 19 :CF 
さ 4CG _BD 28 59 BD 28 44 aE C1 27 GF BE B9 さ 1 36 19 BE =:1F 
さき 4DO 9 1 36 19 BD 25 C4 29 17 AE 62 36 1 BD 2 59 :47 
さ 4E の BD 26 BB ED 28 54 BD 28 59 BED 29 さ C AD 9F 8 273 :49 
さ 4F ら 2 の GOF QE 69 さ 6 1 BD 2 59 AE 62 さ 36 1@ aD 9F 日 さ :E6 











Add  +@ +1 +2 + さ +4 +5 +6 + フ +B +9 +Q +B + ビ +D +E+F Sum 
3599 73 QE 69 さ 6 19 BD 2 54 BD 2 44 BD 2 5D aE C1 :DE 
さ 519 27 G2 2 GD QE 69 さ 6 1 の BD 2B 54 BD 29 さ C BD 25 』EZ 
さ 52G C4 さ 2 64 39 BE 6 さ FE さ 6 19 BD さ @ CF BD 26 BB BD :aF 
さ 5 さ G 28 4 BD 29 さ C BD さ 4 Q6 BE BO 2C さ 6 1 BD 29 さ C siDZ Add + ら +1 +2 + さ +4 +5 +6 + フ 1 日 Sum 
さ 549 BD 25 C4 BE 63 FC 36 19 ED 2 さ 7 BE @9 @1 36 19 iCC Saoo 2B 54 BD 29 3C AD 9F BS CE :sF さ 











や と ロロ ひ ロア や 





さ 55o BED 2 4 BED 2 さ 7 39 37 1 さ 4 19 37 19 さ 4 19 AE :4C . さ 1 の 1@ 36 19 BD 29 さ C BE 99 92 了 
さ 56@ 62 36 1G ED 2 44 QE C1 27 9G7 BE 9 19 36 19 29 』F2 さ Q2G さ 7 BD 29 さ C BD 29 39 BD 29 - ら 
さ 57 の 9 2C AE 62 さ 6 1 BD 28 54 ED 26 BB BD 28 54 AE 69 :7@ ささ ら BD 2B 59 37 19 34 19 BD 28 B 
さ 5BO さ 6 19 BD 2 5D AE ビ 1 27 @2 2 12 BD 29 39 AE 69 :B1 さ Sa46 1 の 39 66 36 19 さ 9 62 36 19 さ 
さ 599 さ 6 1 の AE 62 さ 6 19 BD 28 59 QAD 9F BS BE さ 2 64 39 :@6 さ R5G 9F 日 さ F さ BD 29 さ 9 さ @ 62 さら 6 6 
さ 5QAO さ 7 19 34 19 37 1 の さ 4 1G aE 69 さ 6 1 の BD 2 44 BD :5o さ Q6G さ 6 19 AD 9F B3 D7 さ 2 6 39 24 
さ 5BO 2 59 AE C1 27 7B AE 69 さ 6 19 BD 28 54 BD 26 BB :86 379 19 さ 7 1 の 6 さ 4 19 aE 64 36 19 7 
さ 5CO BE 7F FF さ 6 19 BE 19 GO さ 6 1 BD 2 BD ED 2C さ F io9 さ ABG 19 BD 2A 5D AE 64 さ 6 19 ED 28 54 BE B9 @E 36 19 =:44 
さ 5DG AE C1 27 2F BE 7F FO 36 1G AE 62 36 19 BD 28 54 :97 さ Q99 BD 2 5D BD 2C 25 QE 64 さ 6 19 BD 2B 54 BE Bo B2 』Q ミ 
さ 5EO BD 2 さ 7 QE 62 さ 6 1 BD 2 54 BE @9 92 36 19 BD :49 さ AQO さ 6 1 BD 2 5D BD 2C 25 AE C1 27 48 aE 6@ 36 19 :CA 
さ 5F9 28 BD QE 62 36 19 BD 2 さ フ 7 AE 62 さ 6 1G aD 9F 日 ミ :7E SQBO AE 62 さ 6 19 QE 64 さ 6 1 QD 9F 日 SF さ BE B@ B2 36 s66 

9 

p 

1 

に 1 
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リス ト 2 Prolog/FV. 2 マシ ン 語 ダン プ ・ リ スト 





J 





2 
F 
5 
B 
に 】 
さ 
D 
に 】 
E 
y4 
さ EAO BD 28 59 AE 62 36 19 BD 2 さ 7 aE 69 36 1 RE 62 =:16 
さ EB9 さ 6 19 QD 9F 4 Da 32 64 39 37 1@ 6E 4 さ フ 7 19 さ 4 =: 日 
さき ECG 1G6 QE 69 さ 6 1 BD 22 CO BED 26 BB BD 28 44 BD 2 :1 
さ EDG 59 QE じ 1 27 12 BD 26 BB BD 28 54 BD 28 54 BD 2 :ED 
さ EE の 54 BD 25 3 16 FF DE BD 29 39 32 62 39 39 BC GB sk7 ビ 
F 











dd  +@ +1 +2 + さ 3 +4 +55 +6 + プ 7 + 日 キワ ウォ +B + ピ 
42GO BD 2 54 BD 28 59 3Z7 19 さ 4 19 39 69 36 
421 の 9 さ 6 1 さ @ 7E さ 34 1@ 36 1 の 6 BD 3 D7 BD 29 
422 の 1 の さ 36 1 の BE B の O 1 の 36 19 BD 25 C4 BD 26 
42 さ の さ 6 1 の さ 3 の 64 さ 6 1 の 39 69 さ 6 19 BD さ C 3D 
424 の 9 BE の 6 1 の 36 1@ BE B@ 19 36 19 BD 25 C4 
425 の BD 2B 7B BE 9 1 36 1@ QAD 9F B5 2B BE 
426 の GO 1@ BD 2 5D @E C1 27 Ga BE 86 23 36 19 





427 の 2 の @ ら 8 BE 6 さ 4 36 1 の BD 25 3 BD 29 3C BD 26 BB B 
428O BD 2 44 QE C1 27 G8 BD 29 39 BD 29 39 29 1@ BD 2 































BD 29 3C aD 9F 4 C7 BD 2 44 BD 
さ 7 19 34 19 さ 7 19 さ 4 19 BE @9 9@1 
BE 99 92 さ 6 19 HBD 2 BD ED 2 ミア 
62 さ 6 19 BD さ ミ C EC BE @9_ 99 36 19 
92 さ 6 19 BD 2 BED BD 2 さ 7 32 64 
さ 4 19 37 19 さ 4 19 19 34 










dd  + の +1 +2 + さ +4 + 旨 +6 + プ + 日 49 + +B + ヒ ビ +D +E ピ 


+F Sum 


4499 さ 6 1 の QD 9F 6 45 32 6 39 37 19 34 19 さ 7 19 さ 4 s38 
4419 19 37 19 さ 4 19 37 19 34 19 37 1 の 9 34 19 aE 69 36 siFB 
4429 1 の 9 AD 9F 5 BB QE C1 27 6B AE 69 36 19 RE 64 さ 6 :99 
44 さ 9 19 BD 2 5D QE 62 36 1@ aE 66 さ 6 19 BD 20 SBD BD :@5 
4449 2C 13 E C1 27 7 BE ヨミ 2E 36 19 29 45 AE 69 さ 6 =:@Z 
4459 1 の 9 QE 64 さら 6 19 AE 66 さ 6 1 BD 25 C4 BD 25 C4 AE :EC 
4469 62 36 1 の 9 BD 2 59 ED 25 C4 aE 62 36 19 BE GO 92 s72 
4479 さ 6 1@ BD 2 BD BD 2Q さ 7 QE 62 さ 6 19 QE 6 36 19 sBB 
448G ED 28 54 BD 25 C4 QE 68 さ 6 19 BD 2 37 BE さ 2B sz95 
4499 さ 6 19 29 41 QE 69 36 19 QE 64 36 19 BD 2 SD aE :45 
44QO C1 27 97 BE 日 2B 3 さ 6 19 29 2R QE 64 さ 36 19 aD 9F zi69 
44B9 5 BE AE C1 27 1 AE 64 さ 6 19 AE 66 36 19 AE 69 kB9 


44CO さ 6 19 AE 62 さ 6 19 AE 6 36 19 QD 9F 5 9 29 95 ziFB 
44D9 BE B9 1@ 36 19 さ 2 6 39 EF CS 39 EE C4 39 37 19 :56 


44E9 さ 34 19 AE 69 36 1@ BE 7F FF さ 36 19 BED 2C 3F AE C1 siB1 
44FO 27 19 AE 69 さ 6 1 の BE @G9 @4 さ 36 19 BD 2 BD BD 2Q :F5 
Sum: 92 5B AB さ 6 1 22 1 の F6 71 73 DB ES aa 9D 8 2B :a6 
dd  + の 1 +2 + さ +4 + 品 +6 + プ + 日 +9 +aQ +E +C +D +E +F Sum 
4599 さ 1 BE 99 2 36 19 BED 20 5D 29 9@5 BE @9 99 36 19 ki6C 


4519 さ 2 62 さ 9 さ 7 19 さ 4 1 の BE 7F FF さ 36 19 BD 26 BB E :C6 
9 69 さ 6 19 BD 2C 2E BD 29 さ C BE 19 99 36 19 BD 2 :aB 
45 さ 9 BD AE 69 さ 6 19 BD 2C SF BD 2C 13 3 さ 2 62 39 3 フ 7 19 s:49 
4549 さ 4 1 の 9 さ 7 19 34 19 37 19 さ 4 19 さ 7 19 さ 4 19 BD さ 3E :E9 





455o FQA BD 28 54 BE GO GO 36 19 BD 2 5D aE C1 27 7D :EE 
4569 RE 6 の 9 さら 6 19 QE 62 36 1 の BD 42 2 QE 64 さ 6 19 BD :69 
4576 28 59 BD 26 BB BD 28 44 QE C1 27 GD BD 29 39 BE ze68 
45Bo 86 55 さ 6 19 BD 25 3 29 54 BE B6 63 36 19 BD 25 :E 
4599 A さ BD 26 BB BD 29 QA9 BE 929 92 36 19 BD 28 BD BD :D5 
45Q ら 2 さ 7 BE B9 B4 さ 6 1 の BD 25 Q3 ED 26 BB BED 28 4 :65 
45BG AE 66 さ 6 1 の BD 42 QA2 BD 28 59 BD 26 BB BED 2 44 :D@ 
45C ら BD 2 5O AE C1 27 ら H BE B6 6D さ 36 19 BD 25 a3 16 :3a 


4SDG FF BF BD 29 39 BE 27 D2 ED 21 67 12 12 aQE e4 36 15 
45E9 1 の BD 2 59 QAE 66 36 1@ 32 68 39 37 19 34 19 aE BE4 
45F9 69 さ 6 1 の ED 28 54 BD 28 44 ED 2 5@ AE C1 27 35 ia 
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リス ト 2 Prolog/FV.2 マシ ン 語 ダン プ ・ リ スト 








4739 BD 2B 44 AE C1 27 Ga BE B@ 19 36 19 32 6C 7E 46 :F 
4749 FB 7E 47 75 QE 64 QE 92 BC 9 19 27 12 36 1 E :49 
4759 66 36 1 BD 25 C4 AE 6 36 19 BD 25 C4 29 94 人 E si26 
476 の 6 さ 36 1 の AE 69 AE @2 BC 6 19 27 63 7E 47 F9 32 :A2 
477 の 9 6C 7E 47 BB 1 の AE 64 さ 6 1@ AE 66 さ 6 1 aD 9F 6 』:7D 
47BO C2 BD 2B 59 BD 29 3C QE 69 さ 36 19 BD 28 54 BD 28 :94 
4799 54 AE 62 さ 6 1 の AE 6 さ 6 19 BD 42 DE BD 2 44 AE :BC 
47AO じ 1 27 2 AE 6 さ 6 1@ BD 45 EB AE 69 36 1 BD 2 s94 
47BO_ 59 37 1 AF 69 7E 47 2C BD 46 さ 晶 aE C4 ヨ C ヨミ 2B BZ 
47CO 27 @7 3@ 62 36 19 BD 45 EB 29 65 aE 64 36 19 BD :BD 
47DG 28 54 AE 66 36 19 aE 69 36 19 BD 28 54 aE 62 36 iQ9 
47EO 19 BD 45 3E 7E 47 44 92 BC 9 1 の 27 @9 36 19 BD ia1 
47FG 25 C4 QE 6 36 19 BD 25 C4 AD 9F 5 2B BD 26 BB 55 
Sum: 2 さ 7 EGO 1 さ 6 7B 5E 9 2B BC 2 19 CB 95 BD 14 :C1 
dd 。 +② 二 1 2 + さ る +4 +55 +6 +7 + ヨ +9 +Q +B +C +D +E +F Sum 
489O BE さ 2B さ 6 19 BD 2 SD AE C1 27 @2 29 ささ ^E 6 :Cg 
4B1 の 9 さ 6 1 の BD 45 EB BD 26 BB BD 2 44 AE C1 27 22 BD : さ SF 
4B2O 29 39 AE 6@ 36 1 BD 2 59 37 19 AF 69 7E 47 2C :3B 
4B3 さ の 7E 46 FB さ 6 1@ 35 19 36 1@6 35 19 さ 6 1 の 6E 9F 5 kaAD 
484@ さ C 7E 47 さ C さ 7 19 さ 4 1@ 37 1@ 34 1@ 37 19 34 19 DE 
485 ら さ 7 1 の 9 さ 4 1 の 9 AE 69 さ 6 1 BD 2 54 BD 2 54 BD 26 =:34 
4B6 の 6 BB BE 5 9 さ さ 6 19 BD 2 5D AE C1 27 53 BD 29 さ 39 =:CS 
4H79 AE 69 さ 6 19 BD 2B 54 BD 2 59 BD 28 54 E 62 36 =:4a 
488G 19 AE 66 さ 36 19 aD 9F 5 99 aE C1 27 25 AE 69 36 iD さ 
4 ヨ 99 19 BD 2B 59 AE 62 36 1G QE 64 さ 6 19 aD 9F 8B5 2B :FB 
4BAO AE 69 さ 6 19 AE 62 36 1 QE 66 さ 6 1 の 9 AD 9F 6 75 4B 
4BBO 29 OC AE 66 さ 6 1 BD 45 EB BE 9 19 36 19 29 59 s:59 
48CO BE 日 1 G5 さ 6 1@ BD 2 5D aE C1 27 26 AE 69 36 19 :aE 
4BDG BD 28 59 aE 62 36 1 aE 64 36 16 aD 9F 85 2B BD :a5 
4BEG 26 BB BD 2 44 QE C1 27 @7 BD 29 39 AE 62 36 19 siEC 
4BF ら 29 27 QE 69 36 1 BD 28 54 AE 62 36 19 BD 42 a2 :CB 
Sum: 96 CO 92 71 7 99 1 91 9 FC 99 4 17 15 96 2B :7F 
dd +G⑨ +1 +2 + さ +4 +5 +6 + ブ 7 + 日 +9 +Q +B +C ビ +D +E +F Sum 
4999 BED 2 44 BD 25 QS く QE 69 36 19 BD 2 59 aE 62 さ 6 sB 日 
491G 19 QAE 64 36 1 AD 9F 5 2E 32 go 39 3 フ 19 34 1@ :C2 
4929 さ 7 1@9 さ 4 1 の 9 さ 7 19 34 19 BD 44 DB さ 7 19 さ 4 19 BE segB 
49 さ 9 99 の 1 さ 6 1 さ Z 19 34 19 さ の 64 36 19 3@ 66 36 1@ :88 
4949 BD さ D AD AE 69 36 1 BD 2C 13 AE C1 27 25 BED 29 :98 
4959 39 AE 64 さ 6 1 AE 66 36 1 QE 6 さ 6 19 3@ 69 36 :@D 
496@ 19 AD 9F 日 6 BE7 aE 64 36 1 BD 28 59 さ フ 7 1@ aF 64 :B9 
4979 16 FF C5 AE 69 36 1 の BE G9 G9 36 19 BD 2 AE :F4 





+F 
1g 
36 
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Sum 
s1a 





1 mmmom こ と や い DD ざさ ざ ひ の NO 





:E9 


+F 




















1O 


リス ト 2 Prolog/FV. 2 マシ ン 語 ダン プ ・ リ スト 








Rdd  +② +1 
5199 91 @ フ 
5119 32 44 
5129 6E 79 
51 さ 9 
5149 
5159 
5169 に 
5179 
5189 
519@ 
51 人 9 
51B 
51C@ 
51D9 
51E の 
51F@ 





Add  +9 +1 
5399 16 @1 
5 さ 19 75 74 
5329 7 さ 6F 
5339 98 72 
5349 65 6E 
5359 16 91 
53 さ 69 16 @1 
5379 さ F 25 
5SB9 7 さ 32 
5399 65 25 
5 さ A9 64 69 














64 5F 6F 72 5F 66 75 6E 6 ミ SF @7 91 
6C 6F 67 69 6E 69 74 41 69 @1 97 79 
61 64 25 16 @1 97 279 72 65 64 5F 65 
9@7 66 75 6E 6 さ SF 65 64 さ E ED 9@1 9 日 
6C 69 73 74 4D GC 91 97 79 22 e6F @6C 








+2 + さ +4 + ロ +6 + ユ 7 + 日 419 + +B + ビ +D 
16 @1 GD 21 21 21 7 さ 75 6 さ 63 65 2 ミ 7 :F8 
25 16 @1 @D 21 21 21 66 61 69 6C 25 
21 4B 54 91 96 75 6E 69 66 79 さき 45 


16 @1 G6 2 2 2Q 49 66 さ 人 A 25 16 91 





1 いい ロロ ロロ ロロ OO 中 ロ ロロ ロロ 











さ 


1 ワウ ざさ ぐ 衛 ひひ ロ や QNO 
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FM-7 


ミュ ー ジ ッ ク ・ メ ー カ ー 


UI 
AME 


園 COMPAC 





現在 , PSG が 載っ て いる パソ コン で は , BASIC の PLAY 
文 な ど で て 簡単 に 音 が 出せ ます . し か し , マシ ン 語 で 同 程度 
に 音 を 出 そ う と する と , 専用 の コー ド に 従っ て デー タ を 新 
た に 作ら な けれ ば な ら な いな ど , 意外 に 面倒 で し た . そこ 
で 発想 を 変え て , 鋭く 迫っ て み ま し た . あな た の ゲー ム に 
付け て , も っ と ゲー ム を 楽し くし て み ま せ ん か . 


符 蔵 


⑯ デ ー タ 作り が きわ め て 簡単 . 面倒 な 操作 は 一 切な し . 
@256 バ イト 単位 ( ベ ※00) で ,. リロ ケー タプ ブル . 

タイ マ 割 り 込 み を 使っ て いる の で , メイ ン 側 の プロ グラ 
ム と 同時 進行 可能 . 

⑳ オ ー ル RAM 動 作 可 能 . 


訟 音 


BASIC で は PLAY 文 が くる と , タイ マ 割 り 込み に よっ て 
順 々 に PSG ヘ へ データ を 送り , 音 を 出し ます . 本 プロ グラ ム 
で は ここ に 着目 し , PSG に 送ら れ た デー タ を PSG か ら 直 接 
読ん で , 次 々 に デー タ と し て 落し て ゆき ます . この た だ ため, 
面倒 な 手間 を 必要 と せ ず , バカ チョ ン 式 に デー タ が で き 


策 方 


リス ト 1 は PSG を 読ん で , デー タ を 作る プロ グラ ム で , 
ジェ ネ レ ー タ と 言い 。 リス ト 2 は で きた デー タ を 演奏 する 
プロ グラ ム で , シー ケン サ と いい ます . それ ぞ れ , SAVE 
MMM.G/、&H4000, &H418C。 &H4000 と SAVEMTM 
M.S"、 &H4200, H42E4、 SH4200 で モー ブ し て くだ さ 
し ゝ 

使い 方 は 非常 に 簡単 . BASIC の PLAY 文 で , 音楽 演奏 の 
ルー チン を 作っ た ら , この ジェ ネ レ ー タ を ロー ド し , PLAY 
文 の 前 に EXEC を H4000 と 入れ て , た だ RUN す る だ け で 
す . 音楽 が 終わ っ て Ready の 表示 が 出 た ら , |IBREAK| キー 
を 押し て くだ さい . 画面 に ^CODE TOP” と “CODE END” 
の アド レス が 表示 され る の で , セー プ す る と き は この 値 に 
従っ て セー プ し ます . なお, ジェ ネ レ ー タ を ロー ド す る 前 
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sw.⑨ 





NO 










例 1 ジェ ネ レ ー ト 例 











PLAY "T6gS115999L8CDE" 
4399:97 F8 SOUND7,&HF8 
2:gD 9@1 S1 
: 13 9B 88 5999 
11 CH-A エフ ペ ロー フ * 
91 9 25 C 
FA (Te9L8) ノ カン 
95 D 
FA 
99 99 E9 E 
FA 
g9 PSG ノリ セト 
431C:gC 99 9B 99 
4329:98 99 
4322:99 99 
4324:FF FF END コー ト ^ 








に , 必ず CLEAR, &H3FFF を し て くだ さい . も し いび Out of 

memory′ の 表 が 出 た ら , BASIC が 大 きす ぎる の で , 適当 
に けず っ て くだ さい . この まま で も , 12 氏 くら い の デ ー タ 
を ジェ ネ レ ー ト で きま す . 


CONTINUE ? に つい て 


いく つも の デー タ を 作る と き , この ^~CONTINUE?” に 対し 
て [NI| 以外 の キー を 押す と , 以前 に 作っ た デー タ の 後 か ら , 
新しい デー タ を ジェ ネ レ ー ト し て いき ます . [N| を 押す と , 
ポイ ンタ を 最初 の 値 4300) に 戻し し そこ か ら ジ ェ ネ レー 
ド し ます 。 


o ーー 
ボ ポイ ンタ に つい て 

ジェ ネ レ ー ト され る デー タ の ポイ ンタ は , リス ト 1 の &H 
4004 番 地 に , $4300 と し て 入っ て いま す . この 名 H4004 番 地 
を 書き 換え を る と , その アド レス か ら , デー タ を 作っ て いき 
ます . な を お, この 値 は リロ ケー ト し て も 変わ り ま せん . 
デー タ に つい ゆい て 

PSG の レジ スタ 1 個 に つき , 2 バイ ト の ペア と し て ジェ 
ネ レ ー ト され ます . この うち , $8001 か ら $SFEFF ま で の 値 
は カウ ント 数 で , この 値 か ら $8000 を 引い て 2 倍 し た 値 が , ms 
で 表わさ れる 待ち 時 間 に な り ま す . $FFFEF は デー タ の 終了 
を 示し ます . 例 1 を 参照 し て くだ さい . 


シー ケン サ に つい て 


ジェ ネ レ ー タ で 作っ た デー タ を 演奏 し ます . タイ マ (20m 
s) の IRQ 割り 込み を 使う 点 は , BASIC の PLAY 廊 と 同じ で 

















例 2 ジェ ネ レ ー ト の メモ リ 節 約 





① 199 FHR IT=9 TO 5 
お OPECEE'" 
129 NEXT 

② 199 EXEL &H499G 
119JBLAY ICEGS 
129 END 











る ダブ ログ ラム (ゲー など) 


お 。 DS が = っ で ジン と な 
に Ne の と の ジー ケン シン サ の 持つ ビー 


と , 同時 進行 し ます . 
ド に つい て 説明 し ます . 

LOOP ($0E727) に つい て : PSG の レジ スタ は 14 個 で , $ 
00 一 $0D ま で な の で , ある と 便利 な ルー プ を 作り まし た . 
272 の 値 に よっ て , LOOP-POOL 間 を 繰り 返し ます . zz 三 0 
と する と , 無限 ルー プ に な り ま す . な お , ネス ティ ング は 
何 重 で も 可能 で す が , シー ケン サ の アド レス ($4200) か ら 
$0000 に 向け て , 3 バイ ト ず つ 使 いま す . 

POOL (SO0F ベ メメ ) に つい て : 上 記 の LOOP に 対応 し ま 
す . メメ の 値 は 何で も か まい ませ ん が , 2 バイ ト い り ま す . 
BASIC の FOR 一 NEXT と 同じ で す が , POOL は 最も 近い L 
OOP と 対応 し ます . 

上 記 の 2 つの コー ド は , ジェ ネ レ ー タ に は あり ませ ん . 
また , ジェ ネ レ ー タ は ,SOUND 文 を ジェ ネ レ ー ト する こと 
は で きま せん . し か し , これ ら は 先 に 説明 し た ジェ ネ レ ー 
タ の ポイ ンタ の 書き 換え (&H4004) と 組み 合せ て , 容易 に 
手 入 力 す る こと が で きま す . 例 2 を 見 て くだ さい . 

① を その まま ジェ ネ レ ー ト する と , コー ド が 多く な っ て 
し まい ます . そこ で , ② の よう に 書き 換え , モニ タ か ら ジ 
ェ ネ レー タ の ポイ ンタ を 2 バイ ト ず らし ます (&H4004, 5 
の デー タ $4300 人 テ $4302). そし て , 空い た 2 バイ ト に , LO 
OP コ ー ド と 回 数 (&H4300, 1 に SOE05) を 書き 込み ます . B 
ASIC に 戻り 、 ジ ェ ネ レー ト し た 後 , コー ド ・ エ ンド の アド 
レス に , POOL コ ー ド と エン ド ・ コ ー ド を 書き 足し ます . 





CODE END=$431B…………ー &H431B,C : SFFFF 
&H431B,C : $0F00 
&H431D,E : $FFFF 





そし じ で ポポ シク を コード 
そえ ます. 


・ エ ンド 二 2 バ イト に 書き 換 





を H4004 : $4302 一 > $S431E (⑮431B 十 2) 











以上 で す が , セーブ プ す る と き は $4300 一 $431E ま で と な り , 
画面 に 表示 され た も の で は な く な る の で , 注意 し て くだ 
さい . 

つぎ に , SOUND 文 を デー タ に 変換 する 場合 で す が , これ 
は , BASIC の SOUND 文 と 1 対 1 で 対応 し て いる の で , モ 
ニタ か ら 次 々 に 16 進 で 書き 込ん を で くだ さい . 例 と し て , FM- 
7 の ユー ザー ズ マ ニュ アル シス テム 解説 8-8” に 載っ て 
いる , 『 波 の 音 』」 を デー タ に し て み ま す . 
リス ト 1 














アド レス | テー タ | コ 。 ヌメ ン ト 
4300 07 F7 OSC. set 
4302 06 45 Noise FRQ. set 
4304 08 10 Set Envelope. く part a> 
4306 0B 00 Envelope FRQ. set 
4308 0C 37 
430A 0D 0E Set envelope wave pattern. 
430C 93 88 Wait 数 (9388s-8000s) X2/1000 王 10 秒 
430E FF FF エン ド ・ コ ー ド 
注 ) マニ ュ ア ル 中 は 10, 16 進 数 で す が , ここ で は 
すべ て 16 進 数 








Wait 数 は , 次 の コー ド ($430E 一 ) を 実行 する まで の カウ 
ンタ で , 先 に も 説明 し た 通り , $8001(20ms) 一 $FEFF(65 秒 ) 
まぐ 723 す 。 


シー ケン サ の 使い方 

コー ド が (シー ケン サ の アド レス 十 $100)0 か ら の と き は , 
シー ケン サ の トッ プ ・ ア ドレ ス が スタ ー ト で , それ 以外 の 
と き は メレ ジス タ に コー ド の アド レス を 入れ て , (トッ プ ・ 
アド レス 二 2 ) を 呼び ます . 





① シ ー ケ ン サ が $4200 か ら , コー ド が $4300 ( 十 $100) の と き 
JSR $4200 (ベス クー ド ) 
JSR $4204 (スト ッ プ …… 途 中 で 止め る と き ) 


シー ケン サ を S3500 か ら ロ ー ド し た と き 


LDX $3600 (1 曲目 の アド レス ) 
JSR $3502 ( 十 2 番地 を 呼ぶ ) 
LDX $3723 ( 2 曲目 の アド レス ) 
JSR $3502 

JSR $3504 (スト ッ プ )) 














オー ル RAM 動 作 に つい て 


シー ケン サ は , シス テム の 割り 込み ベク タ ($FFF8 番地 ) 
を 書き 換え , タイ マ 割 り 込み が きた と き , まず 自分 の ルー 
チン を 通し た あと , シス テム の 割り 込み サー ビス ・ ル ー チ 
ン に ジャ ンプ し て いく よう に な っ て いま す . 割り 込み フラ 
グ ($FD03) は , 1 度 読 むと 全部 の フラ グ が 沙 さ れ て し ま 
う の で , 本 プロ グラ ム 内 で は 読ん で いま せん . し た が っ て , 
オー ル RAM 動 作 時 に は IRQ の サー ビス ・ ル ー チ ン を 持た な 
い 場 合 は , ジャ ンプ 先 で フラ グ を 落 さ な いと , IRQ が 掛り 
っ ぱな し に な っ て し まう の で , 注意 し て くだ さい .$FFF8 の 
ベク タ が $01DD の と き , 下記 の よう に し ます . 





$O1DD : 7D FD03 TST $SFD03 
$SO1E0 : 3B RTI 











( ジェネ レー ) EE 





人 dd  + 軌 +1 + す 2 オ さ 十 全 + + ら 6 +Z + 日 +9 +Q +B +C +D + ピ ォ F 
4 の の 2 の 49 の 1 DD 4 さ の の の の の の の 9 9 の の の の の 9 の 9 の 9 の の =: 
4 の 1 の の の の の の の の の の の の の の の の の の の の の の の の の 9 の の の 9 の 9 : 
4 の 2 の の の の の の の の 9 の 9 D ga 4 ミ 4F 44 45 20 54 4F : 
4 の さ の 5 の 2 の さ D 24 4 ミ 4F 44 45 2 45 4E 44 20 SD 24 4 さ =: 


4 の 4 の 4F 4E 54 49 4E 55 45 29 3F の D ga 34 1E 1 5 の 1F : フ 2 ミ 


405 の 5 ロウ 1F BB の D の 26 8 OF の 8 DC 4 DD の 6 2 2D ミ 1 : 
4 の 6 の BC DD C6 の 17 の 9 E5 さ の BC E1 31 BC BE4 B6 15 7 











4 ロ 7 の 9 B4 1 の QF 2 QD 9F FE FQ 6D 21 27 FB A6 a4 1 4E :4C 
4BO 27 D5 1 6E 27 D1 9E の 6 ご の の 1 9F 6 さ 1 BC 9 C6 :7A 
4 の 9 の ER 17 の の BE 17 の の CB 9E の 6 CC 7Z FB ED B1 9F @6 :SB 
4 の 89 6 11 さ の BD FF 6 6F 6 4 2 FE 39 BD FF 5E 6 :EA 
4 の BO の D BD の F EZ 6 4 2 F9 さ の BC 21 BF FF F 1C AF :E1 
4 の CO さこ 5 9E さ ご 4 の 2 E7 FD の E 6 の ミ E7 FD gD 7F FD の D 6 :24 
4 の D の の 1 BZ FD の D F6 FD の E 7F FD gD 35 2 1F 5 1F BB :1C 
4 の 9E の 9E OB さ の の 1 9F の BE 9E の 6 さ 1 BD FF 21 6 gD BD D2 sFB 
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リス ト 1 (ジェ ネ レ ー タ ) 


49FO E1 6 


Sumi 99 5 










4 19 の の O の O の の O の の の OO の の の の の の の の の の の の ウ の :O 
4 1 人 O OO の の の OO の の の の の O の の の の OO の ウ g : ウ の 
41EHO OO の O の の の の の の の ロ O OO の の の の の の の : の の 
41 じ O の の の O OO の の の の OO OO の の の OO の O の 9 : の の 
41DO OO OO OO O GO O Q の OO の の の OO の g の の の : の の 





add  +g く キオ + 品 6 プ 日 9 + 仙 +B + ビ +D +E ォ F Sum 41E の 
41 の の 4 BR BO ED BB1 35 の 6 の 6 の F の E の F @C :16 41Fg 
411 の EZ emacs 
4120 5 Sums 
413 7F 

4149 2 

415@ 1 の ED の 4 B6 14 AZ7 4 QAD 9F FB Fn 39 さ の :79 

人 44169 BD BD FE EC BD の B BD 9 の 9 さ 1 BD FE BE4 6 iga 

4179 の 6 Ro6 4 C6 1 の さ D BD 7 a6 の 4 gF 8BD :EC 

418g 91 日 1 39 2 さ の 2 BR の 7 7 an さぶ 9 の の の 9 :E6 





OCSETFPePzruZrKisiksaecszsimamssrdjaEejiWgPsisssessmrasssd) | スト 


Rd _ + の 1 2 キョ 二 人 オキ ロー キ 6 キ プー+ 日 すり AB キビ DTE キビ 
420O SO 14 2 の の C 2 の 47 の の の の の の の の の の 0 の の の の 9 9 
421 の さ 4 1E 1Q の 2 9C さ 4 1E 1Q 5 さ の BC ES CC の 1 9 
QB gF 9C の F 
DD の 6 3 の 8C 
9E さ 4 の 6 1 

- 4 2 FE CC 
97 FF BD @C 7F FD の 2 gF の E EC BC 9 FD FF FB 39 
B7。 3 gD FZ FD の E 
BE_9E の 2 DE 


























Em 「 リ スト ] ビ D|T ご EE 


シス テム 開発 用 簡単 エディ イタ EDIT_S [xsasseseogsaeseoeg 


2o B2 1F go OO 4F AB 5F FF : 
D1O 5O OO 3O 40 RE EE さ Q Oo AF F4 AF 

脅 T.T.S. 2 BC F: eF BO AC Eo 25 SO oo H 
この プロ グラ ム は 6809 開 発 用 に 知 か く て , ある 程度 以上 の 機能 を 持っ た エディ 203O D0 9F AE BC 17 oo 10 BC 
タ が 必要 に な り , 作成 し た も の で す . AD 9C BE 00 97 BoO 27 45 
腕 2o5o 5 03 Be B1 49 10 27 Qoo CE B1 1o 
ユー ザー は 1 文字 入出 力 ,。 エ ディ ッ ト 先 頭 , 終了 アド レス , モニ タ の ロア 2060 5 27 o1 24 54 10 o1 B1 
ドレ ス , スタ ッ ク (S,U) の セッ ト な どの バ パラメータ を (アド レス 値 と し て ) 与 える 2o07O 0 43 10 27 Q1 D7 B1 10 27 01 
だ け で , 実行 で きま す . 2o8O O 76 B1 5o 27 01 3Q QQ 


また , 256 バ イト で リロ ケー タプ ブル で す . 2 TS 


| マン ド 20BO O < 2E さ O OD QA 70 64 20 57 

1 : 現在 ポイ ント の ある 行 の 上 に , 行 を 押入 し ます . 何 も 入 力 せ ず に 加 キ ー を | 2555 SCOR OR 
押す と , コマ ンド 待ち (プロ ンプ ト "]?) に 戻り ます . 2 っ 0EO O C6 5F AD oD 
KK 層 | : 現在 の ポイ ンタ の ある 行 を 削除 し ます . 35 10 
十 ( 一 )※※[ 慰 : 現在 の ポイ ンタ か ら 十 (一) 99 ま で の 範囲 の 行 に ポイ ンタ を 移し ます . 
P メ ※ 軌 : 現在 の ポイ ンタ の ある 行か ら メ ※ 数 の 行 を 出力 し ます . 
F str 有 2 : 現在 の ポイ ンタ の ある 行か ら , ボトム ま て の 間 の 女 字 列 str を サー チレ し , 
あれ ば その 行 に ポイ ンタ を 移し ます . 
Cstr1 過 : 現在 の ポイ ンタ の ある 行 の str1 を str2 の 廊 字 列 に 置き 換え ま 00 に 23 1A 
す . 必ず 同じ 廊 字 数 に し て くだ さい . O EF 2o 
: 行 ポイ ンタ を トッ プ に 移し ます . ド 0 FE DE 2 
: 行 ポ イン タ を ポト ム に 秒 し ます . SO 
: モニ タ に 戻り ます . 10 AF 
*※・ XX は 2 桁 の 数 値 、str は 文字 列 を 示し ます . 0 1F 31 
注 ) ①1 行 の 入力 廊 字 数 の 制限 は 80 女 字 ま で で す . こ 4 

それぞれ の コマ ンド に つい て , BEEP 音 が し , ERR を 表示 し て エラ ー を 知 CE 

ら せ ま す . Q 0 BD FE 
ファ イル の 入出 力 ル ー チ ン は 別に 作っ て くだ さい . この シス テム は エディ 9 O EB Sa 

タ だ け で す . 8 8 
④ プ リン タ 出 力 は 1 文字 出力 ルー チン 内 で 行なえ ば 簡単 で し ょ う . - Oo eF ao 

エディ ッ ト ・ エ リア を オー バー する と エラ ー に な り , メッ セー ジ を 出力 し 

た 後 , コマ ンド 待ち に 戻り ます . 
⑥$22AC 一 $22FF の 間 は 1 行 入力 用 バッ ファ な の で , ここ に は 何 も お か な い 
よう に し て くだ さい . 

最後 に な り ま し た が , この ソフ ト が シス テム 開発 ,. ソフ ト 開 発 の 手助け に な れ 

ば 幸い で す . 















































アド レス ・ バ パラ メータ の セッ ト の 仕方 


2000 COLD ス ター ト 2010 一 11 | U り スタ ッ ク の デー タ を 
2002 HOT ス ター ト セッ ト 

2004 一 5 一 交 字 入力 ルー チン の | 例 
アド レス を セッ ト $1F82 か ら 1 交 字 入 力 ( エ コー バッ ク 付 ), 
2006 一 7 一 文字 出 カ ルー チン の | $1F80 に 1 婦 字 出 カ ルー チン が ある と き . 
アド レス を セッ ト 2004 一 5 1F82 

2008 一 9 エディ ッ ト ・ エ リア の | $2006-7 s1F80 

先頭 アド レス を セッ ト | s2008 一 9 2300 エディ ッ ト ・ 
$200AーB | エディ ッ ト ・ エ リア の | 200A 一 B | 3FFF エリ ア 
終了 アド レス を セッ ト | $200C 一 D | SABF4(FM-7), 82B 1 文字 入出 力 ル ー チ ン ( エ ンジ ン ・ ル ー ム 人 ) ーーem 
200CーD | モニ タ の 復帰 アド レス 8(FM-11) モニ タ 
を セッ ト 200E-ー ビ $5FFF (S ス タッ ク ) + さ +4 + フ +9 +C +D +E +F Sum 


な ッ デー ー ッ 0 Q4 BD CC 01 B2 1F DS s57 
200 ビ ーF | S ス タッ ク の デー タ を 2010-11 5000 ( り ス タッ ク ) 0 CS 当 FC B0 s22 


1F に FD 6 B7 FC :Aaa 


) F7 ps 35 04 39 34 
ファ イル 構造 O oO 05 2| 5o BO F7 : 


oO QO 















































| 行 |90| 行 行 |00|00| (ELP :End Line Pointer) 
可 1__ ELP エ ンド ・ ボ ポイ ンタ 
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FM-7 New ゴル ゴ 13: 写 王 レー ワン ダー ソフ ト Sgn 162 
FM-7 167 
FM-7 171 
175 

FM 語 詰 め 特 株:・ 補 較 半 eeeoe2 ーーー……・ 涯 土肥 一 夫 179 
FMg7I3DUEO eo 末 困 eeeeeey ・……… 寺 高畑 英樹 190 
将棋 対局 HOOOCOONPEYXY PLDDUOLC コ DSO ご CO まま PE に MAX 193 

FM-7 OCTPUS GARDEN eeenoeereennrnnninnnn Open-Reach 200 
MS7/ 抽 RISR ジ トン ・ ゲ ー 599RWRSSSMEN 果 .. . ... .. ..。) -. 吉 呈 譲 208 


写真 提供 : 東 還 東 和 「 コ ゴルゴ 13」 よ り 
と さい と う 市 廊 ロ ロタ クシ ョ ン (ピッグ コミ ッ ク 連 載 中 ・ 小 学 館 刊 . リイド 社 ) 


画面 写真 は 合成 し て あり ます . 








) 。 K コ ン パ イラ で 作っ た 高速 ・ 音 楽 付 ゲ ー ム で す . サ 
i プシ ステ ム に パタ ー ン を 送っ て 表示 (バド ミン トン ・ ゲ 
: 一 ム 参 照 ) し て いま す . 音楽 は メイ ン ・ シ ステ ム で , IRQ 
: 時 計 割 り 込 み 利用 の PSG サ ウン ド で す . ゴル ゴ 13 の 気 


分 に な っ て , 名 射撃 を 楽し ん で くだ さい . 
また , この ゲー ム は いろ ん な 要素 の 入っ た ゲー ム な 
の で , 解析 すれ ば 各種 の ゲー ム が 作れ る で し ょ う . 





ゴル ゴ 13 は , ドー ソン 会 長 が 待ち も うけ る ドー ソン ・ ビ ル 
に 単身 で の りこ み ま し た . も ちろ ん , ゴル ゴ 13 は あな た で 
す . ゴル ゴ 13 が 今回 引き 受け た 依頼 は ,. ビル の 最上 階 ま で 
行っ て , ドー ソン 会 長 と 対決 する こと で す . で も , 先 に は 
様々 の 障害 が 待ち も うけ て いま す . 

ドー ソン 会 長 は , と り わ け 腕 きき の 条 し 屋 を 3 人 座っ て 
いま す . へ ビ の よう な スネ ー ク , 全身 銀 と 金 で お お われ た :, 
不死 身 の シ ル バ ー と ゴー ルド が 待ち か まそ て いま す . スネ 
ー ク , シル バー。 ゴー ルド は ブロ ッ ク を 投げ つつ , ゴル ゴ 


13 に 人 迫っ で きま すず プロ ッ ク は と き に は , 積み 重なり ょ と 
き に は ゴル ゴ 13 を 直 責 し ます . 

ゴル ゴ 13 の 銃弾 は 。 プ ブロッ ク を 壊し た り , 壁 や ブロ ッ ク 
に は ね 返り な が ら 相 手 を ね らい ます . 39 階 で は 恐 居 の 停電 
が あり , 相手 の 姿 が 見 を ませ ん . この 階 を クリ ア す れ ば い 
よい よ 最 上 階 で , 


ドー ソン 会 長 が 一 人 で 待ち も うけ て いま す . 


ゲー ム の 方法 


ゴル ゴ 13 を 左右 に 動か し て , 相手 を 攻撃 し ます . キー 操作 
は 表 1, 得点 は 表 2 の 通り で す . ゴル ゴ 13 は 影武者 を 含め 
て 4 人 いま す 、 全員 や られ る と ゲー ム 終 了 で す . 40 階 を ク 
リア すれ ば , ゴル ゴ 13 が 一 - 人 追加 され ます . 


プロ グラ ム の 
作り 方 


①K コ ン パ イラ と ラン タイ ム ・ ル ー チ ン を ロー ド し , 裏 RA 








写真 提供 : 東宝 東和 「 ゴ ル ゴ 13」 よ り 


102 ボ @⑥ き さい と ぅ ・ プ ロダ クシ ョ ン ( ビ ピック コ ミッ ク 連 載 中 ・ 小 学 館 刊 」 リ イド 社 刊 ) 


写真 1 





M の $C000 以 降 に リロ ケー タ で リロ ケー ト し ます . 

⑨② リ スト 1 を 全部 打ち 込み ます . 文 番号 の 後に は , 必 ら ず C 
LEAR 50,&H6FFEF [RETURN| を し た 後 , バ " を つけ て か 
ら 打 ち 込 ん で く だ さい 、 

③ エ グ ゼ キュ ー タ を ロー ド し て , 
コン パイ ル を 始め ます . 





$C000 か ら 実 行き させ る と , 


④ コ ン パ イル ・ エ ラー が あっ た と き は , それ を 修正 し て ③ 
を 繰り 返し て くだ さい . 

⑤ エ ラー が な く な っ た ら , プログ ラム を ファ イル に セー デブ 
し て お きま す . 

⑥ 次 に , MON コマ ンド で モニ タ ・ モ ー ド に し て , M コ マン 
ド で リス ト 2 の デー タ を 打ち 込み ます . 必ず チェ ッ ク ・ 
サム を 確認 し て お いて くだ さい 、. 

⑦ 全 部 で きた ら , SAVEM コ マン ド で ,$3C00 か ら $6EFF ま 
で を , スタ ー ト 番地 を $5000 に し て セー プ し ます . 

⑧EXEC & H5000 で ゲー ム が 始ま り ま す . 
バグ が ある と き は , ④ に 戻っ て , 繰り 返し て くだ さい . 


( 革 | ブ ログ ラム 0 説明 





『K コ ン パ イラ 有人 象 無 象 』 で 紹介 し た テク ニッ ク を , いろ 
ん な と ころ で 使っ て いま す . そちら を 参照 し て くだ さい . 
音楽 お よび 音 は , 『 ミ ュー ジッ ク ・ メ ー カ ー』 を 利用 し て 


いま す . この ルー チン は , IRQ を 使っ た 時間 割り 込み を 使 
っ て いる の で , 音楽 や 音 を 出し て も 画面 の 方 に は 影 響 な く 
ゲー ム が 進み ます . 



























































表 1 各 キ ー の 説明 表 3 パタ ー ン ・ デ ー タ ・ エ リア (先頭 $4100) 
ゴル ゴ が 左 に 移動 アド レス シ : 4 ズ 内 才 
ゴル ゴ が 立ち 止ま る . 100 PDEL 5x16x3 消去 用 
ゴル ゴ が 右 に 移動 . - 1F0 PGBR 5x16x3 ゴル ゴ 右 向 
銚 を 左上 に 向け る . 弾 は ブロ ッ ク , 壁 で は ね 返る . 2E0 PGBD 5x16x3 ゴル ゴ 左 向 
銃 を 真 上 に 向け る . 弾 は プロ ッ ク を 壌 す . 3D0 PGBL 1x4X3 銃弾 (ゴル ゴ ) 
銃 を 右上 に 向け る . 弾 は ブロ ッ ク , 璧 で は ね 返る . 3DC PSND 1x4x3 鉱 弾 
3E8 PBLK 3X8x3 ブロ ッ ク 
際 430 PSNK 4x16x3 スネ ー ク 
呈 点 
表 2 得点 表 4F0 PeLD 4x16x3 ゴー ルド 
スネ ー ク 100 点 1 階 か ら 39 階 まで 登場 5B0 PSLV 4X16X3 シル バー 
シル バー 200 点 il 隊 か 589 府 まで 人 | 一人 で も 還 を ば 670 PDSN 4X16X3 GE 
ゴー ルド 300 点 21 階 か ら 39 階 ま て 登場 1 730 PHUP 1X8X3 上 向き 人 
ドー ソン | 500 点 | 40 階 に の み 登 場 748 IDWW ei 且 が 2 ログ ク 
返 射 銃弾 10 点 銃弾 が 壁 や プロ ッ ク に は ね 返っ て 敵 に 当る と , 790 PGBB 5X16x3 爆発 バタ ー ン 1 
は ね 返っ た 回 数 だ け 倍増 され て , 加算 され る . 880 PSNB eX 本 沿い ク コピ 
970 PSDB 1x16x3 弾 衝突 パタ ー ン 
スト 1 INew ゴ ル ゴ 13 ソー ス ・ リ ス ト EE 





1 の "CUNST PDEL=$1 の 9。PGBR=$1FO。PGBL=$2EG 。 PGBD=$ さ DO PSND= 和 まさ DC 。 PBLK=* さ 日 。 PSNK= 和 $4 さ の 。 
PGLD=$4FO。 PSLV=*BO 。 PDSN=$ ら 7 の 。 PHUP= ニ ま プ さら 。 PHDM=$74 日 。 PGBB= 和 も 799 。 PSNB=$BBO 、 PBDB= ニ 97 の 
2 の "CUNST DATA= ま 29O。 BY=2 さ 。 BACK=5。 SUBDATA=$416O。HRX=46 日 。 SSUB=$ さ CO2 。 SSTUP=$ さ CO4 。 
HASH=$ さ FGA 。 SHLDCK= ま $ さ F6F , SBACK= ニ まさ EE 。 STHEMQ=$ さ DGG 。 SREF= 和 まさ F フ E 。 1 SAVE ニ * さ F 日 A。 PFBTT=* 
1 

さ 9 "CODE * ま 19CE##。 ま 1FFF 間 5 TNIGE] 

46 "IRQ=$1DDiPDRKE IRQA。 ま 7E ェ TRDA=TR ロ A+1 3 TRDB= ニ IRQ(O) : =TSAVE: TRIA (9) = CPUKE 人 。* 
フ D,*$FDG さ #。 まさ 日 

5@ *HSC=9iGY=GY* 昌 3 GYY=GYBー 晶 

69 "Ba=DATAi MDRK=GQ+1 さ OGi AS ビ =MDRK+19』 TEMP=ASC+4 3 TRANSFER[ ]s DSCR 1[HRX 。 さ 2] 

79 "TNITi SC=Oi NBB=4: DSCR1 LHRX 。 56] 

B@ * INIT1 iQ=NBH-2』 TF > さ THEN = さ iF エ 

99 "FDR 1I=9 TU iFPUT[55+Tx6。179。 品 。16。PGBL 。 日] NEXT 

16G "FLR=Oi TEMP : 9) =ー1 3 TENP ( 王 ) ニー1 

119 * INIT2iESSTE ] 

129 "FLR=FLR+1』 IF FLR>49 THEN NBB=NBB+1:FLASHL 1 、]: GUTU INIT1jFI 

1 さ 9 "BC: の) =19j SC: 1 ) =29』 SC: 2) = さら 

149 "FDR IT=G TO 7iTEMP: 1)=GiNEXTi =EVENEFLR コ 

159 "IF FLR<>49 THEN IF FLR>=1 THEN TENMP:9) =1:TF QA THEN TEMP:9) =TEMP:9)+13FTiTEM 
P(11) =PSNKiFTs IF FLR>=11 THEN TEMP: 1 ) =1: IF Q THEN TEMP: 19) =TEMP: 19)+13FTiTEMP(12 
) =PSLViFr 

16@ "IF FLR>=21 THEN TEMP:2)=1:IF Q THEN TEMP: 11 ) =TEMP: 1 1 )+1sFIiTEMP(1 さ ) =PGLDiFI 
jELSE TEMP:2)=1』 TEMP: 11)=9iTEMP(1 さ ) =PDSN』 ASC: さ ) =59iF エ 

179 "DSCRLHRX+ 日 。 B4 。FLR] 

1B9 "LINELO。 の 。 42 さ 。 199。9。。2] 

199 "LINELO』 の ,7。199。 の 。6。2] 

299 "LINEL416。 の 。』42 さ 。 199。9。6。2] 

219 "BLDCK[ ]: CK の: GX=25』 DP=PFGBL iLR= の 

229 " INIT さ 』 NDAN=Oi NBK=1 : PF=9i MTIME= ニ 1 の iTF PEEK( ま FDGO) 人 QND PFBIT THEN MTIME= さ の OiF 
1 

2 さ 9 *FPUTLGX 。GYB, 5 16, DP , 日 ]: NDD=Oi り ソ X=Gi TEMP (9) =O』 TEMP : 29 ) = の 

249 "LUDPiCK=DK+1 3 CKK= ビ KC 上 K/ さ * さ 

256 * IF CK>=MTIME OUR PF く <>O THEN MTIME=Oi IF FLR=49 THEN CKK=23FTiSMUVELCKK]iFI 
269 "KEYINE]i GDANE] 

279 "IF NDD=1 THEN GTD GENDiFI 

2B9 "IF NBK=O THEN BUTU FENDiFI 

299 "ITF EVENECK] THEN SDANF9]i SDANE 1 ]: SDQNL2]』F エ 

さ 399 "IF NDD=9 THEN BOTD LDOFiFI 

さ 19 "GENDi IF NBB く >O THEN FDR エ =9 TO 2』TF TEMP:1) THEN SSETLTEMF: エ + さ ) 。 TEMP : +9) 。 の 
1iFTiNEXTiGUTU INIT ミ ijFI 
さ 29 * IF SC>HSC THEN HSC=SCi DSCRLHRX 。 さ 2。HSC]sFTs 

ささ 9 "BYMBDL[ 1.29。169, 1 。 1 。2。9。 "BRME DVER" ]』 SYMBDL[ 129。 16 日 。 1 。 1 、2。16。 "BAME ABATN(Y/N 
) ?"] 

さ 49 "REPEATIKY=INKEYE]』 IF KY=YY' DR KY=Yy' THEN BOT INITiFTiUNTIL KY=YN' DUR KY= 
中 

ミ 59 "PRTNT CHR$(12) :ESTUP[ ]* IRQ (9) =IRQ ロ BiEND 

さ 69 "FENDiFLASHL2』2]j BHTD INIT2 

379 FLASHiFUR 1 エ =G TU 1』SCREENE7。 21: MAITE19]: SCREEN[ フ 。7]: MAITE19]: NEXTIRETURN 
さ BO "BLUCKiFDR エ = の TO 1299』 Ga: 1)=9sNEXTiRETURN 

さ 99 『 KEYTNs - 

499 *N=TNKEY[ コー さら 

41@ *IF N=1 THEN FFPUT[GX。GY 昌 。。 16。PDEL 。 BACK ] iLR= の 』 DP=PGBL 

429 * IF BX>1 THEN BX=GX-1:ELSE BX=47FTi GTD KEYDSP 

4 さ 9 "ELSE TF N= さ THEN FPUT[BX。GY 日 。 弓 。16。FDEL , BACK ] iLR=1 : DP=PGBR 

449 * IF BX<47 THEN BX=GX+13ELSE GX=1』FTiGUTU KEYDSF 

45G *ELSE TF N> さ AND N<7 THEN VVX=N-5: MATTL1] 

469 "ELSE IF NDQN=G THEN 

479 *" IF PF THEN PF=9 


4 日 9 『* VY ミ ー1 5 NDAN= ニ 1 : VX ニ ソソ X 

499 『 IF _LR テ 9 THEN BDX=4iELSE GBDX=9』F エ 
599 『" GBDX=GX+GDX 

519 * FPUTEGDX。GYY。 1 .B.FPHUP , 1 3 ESG5[ ] 


529 『" メニ GBD Xi Y= ニ GYー1 3 Y 昌 =GYYi BND=9 

53 さ 9 『 FPUTEGDX。GYY。 1 . 日 。PDEL 。 BACK] 

549 『" ELSE MAITE1]iFTsiFIiFTiFIsFI 

559 "RETURN 

569 "KEYDSPsFPUTEGX 。GY ヨ 。 呈 。 16。 DP . ヨ ]s RETURN 

579 * BDQNs 

5B@ "ITF _NDAN=@G THEN RETURNiF エ 

599 "FPUTEX。Y 日 。 1 4。PDEL , BACK ] 』 XN= ニ X+VX s YN= ニ Y+VY 
699 "GBDAN1 3 XY= ニ YNX52+XN 
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リス ト 1 New ゴルゴ 13 ソー ス ・ ソ フト 


ら 19 "ITF YN>=2 く THEN IF XN>=GX QAND XN<=BX+4 THEN BUTU GBDEADsFTsFI 
629 "ITF YN>=25 UR YN<O THEN NDQAN=9 の RETURNsF エ 
639 "ITF XN く 1 DR XN>51 THEN ソ X ニ ー ソ Xs XN=X ESRF[ ] s BND=BND+1 3 GHTH BDAN1iFI 








649 ”" 人 =SEX (BA: XY) ) 
659 『" IF =O THEN GUTU DSPiF エ I 
669 * IF QA く <O THEN SB ニー ムー1 3 TEMP : SH ) = の 3 GSX=TEMP : さ +SB) 3: SGY=TEMP : 9+SB) 3 SYB=SYx 日 


679 ” FOR 1=O TO 5iFPUTESX。SY 日 。5。 16。PSNB 日]: ESBD[ ]3FPUTLSX 。5Y 日 。 王 。 16。PGBB 。 日 ] 3 MA 
ITE1 コ NEXTsFPUTESX。SYB。。16。PDEL 。 BACK] 

6B9 ” IF BND<>9 THEN =BND-1 3FUR 1=1 TD QiBND=BND*2i NEXTiFTi =QSC: SB) +BND : NUMB 
ERLSXx 日 。 BYB+16。』 1 。 1 。7。 さ 。 人 19] 


699 " SC=SC+Qs DSCR LHRX 。 6。 SC ヒ ] 3 NB に = の RETURNiF エ 

799 『 IF VX=G THEN NDAN= の i BDELE XN。 YN]i ESBL[ ]』 RETURNiF1 

由 の) =GR ょ XYー ロ 2xVY ) ESRF[ ] i BND=BND+ 1 

729 『" TF (人 =1 人 AND HB=1) UR (= さ AND B= さ ) THEN VX= ニ ーVXi XN=X 』 ビニ GA XN+52xYN) s 1F 


=1 DR じ = さ THEN VY=ーVYj YN=YjFI 

73 の 9 : ELSE XN=X+VXj VY=ーVYi YN=YsF エ 

749 DSPj X=XNj Y=YNj YB=Y*Bi IF FLR く > さ 9 THEN FPUTLX。Y 日 。 1 。4。PGBD 。 日 5F1 

759 * RETURN 

76 の 9 *BDEL』 AA=Aー1』FPUT[ メ 1--AA。 ん 2 テ 日 。 さ 。 日 。 PHDM。 BACK] 3 XY=XYーaA 

フ 79 * BAi XY) = の ji Bs XY+1 ) = の 53 GA XY+2) =Oi RETURN 

7B@ "DSCRLTNE[%1 。 2。 久 1+ さ 9。 フォア 。 の 。 1 。2]3 NUBEREZ1 。 2。 1 1 。7。 5。 さ ]』 RETURN 

799 : DSCR13LTNELX1 2。 1+47。 フォ フ 。 9。 1 。2]3 SYMBDLL 1+49。 2。 1 。1。7。1 "の" ]sRETURN 
B99 * SMDVE』 IF TEMP:%1)=O THEN RETURNiFI 

B19 "ADAN=TEMP: 1+1 日 ) 3 SX=TEMP: ん 1+ さ ) : SVX=SEX (TEMP: ん 1+6) ) 3 BY=TENP: ん 1+9) 3 SYB=SY*BiD 
8S=TEMP (1+11) 』 SH ニー(%1+1) 3 RND1=RND (2) 

B29 "BNX=SX+SVX』 IF SX く <>9 THEN FPUTLSX。SY 日 。 4 16。PDEL 。 BACK]5FI 

B39 "IF SNX>=1 AND SNX<=4 THEN 1J=SYx52 


B49 * IF SVX>9 THEN 人 Q= ニ 1 ゴ +SXs IF CHKBKEQ+4] THEN SVX=ー1 3 SNX=SX 
B5@ ? ELSE GAzA)= の 』 G+52) = の 』 Bs Q+4 ) =SB3 Gi Q+56) =SBiFI 
B6@ ? ELSE 人 =IJ+SNX』 IF CHKBKEA] THEN SVX=1 3 SGNX=SX 

B79 * ELSE GA:zA) =SHi GA Q+2) =SHi GA Q+4) = の 3 GA A+56) =9sFT』FI 


BB@ *ELSE SSETLSX。SY』9]』 RND1=1 
B99 "SBVX=RND (2) *2ー1』 SYB=SY 日 』 TF SVX=ー1 THEN SNX=4BiELSE SNX=13FTi 1=1:MHITLE 1T<=48 
3 IF SCHKESNX。SY] AND SCHKESNX。SY+1 ] THEN SSETLSNX , BY 。 SB]: BUTU SMDVE1:FTi1=I+1jWE 
NDiRETURNjFI 
eo BMDVE1j 5X=BNX 
919 "IF ADQAN=@O THEN IF RND1=1 THEN SX1=SX/ さ * さ +1』 BY2=BY+23 IF Y=SY2 THEN IF X>=SX1 
AND X<=BX1+2 THEN BDTD BADDjFTsFI 
929 "IF SCRBKLSX1 ,SY2] THEN ADAN=1』SETBKESX1 。SY2]』 TEMP: メ 1+12) =SX1 3 TEMP ェ ん 1+15) =SY 
2ESRFE]jFTiFTjFI 
93 の "SADDi IF FLR く > さ 9 THEN FPUTESX,SY 日 。 4, 16。 DS。 日 ]』F エ 
949 "TEMP ェ 1+1 日 ) =QDAN TEMP 1+ さ ) =BX 3 TEMP ェ 1+6) =BVX』 TEMP ん 1+9) =BY3 TEMP (1+1 1 ) =DS 
959 *RETURN 
969 "CHKBK3 IF SEX(BQ ェ 1))=O AND SEX(BA: ん 1+52) ) = の THEN 1=O ELSE %1=1:FTiRETURN 
276 ・BBET3 BMDRK=%2x52+13FDR MM=O TD くぅ GA:SMDRK+MM) = ん さ } BR: BMDRK+52+MM)) ニル さ 』 NEXTs R 
9Bo SCHKI SMURK= ニ 1+%2*5523 MM= ニ OiMHTLE MM く <= さ 』 IF SEX(GQ: BMDRK+MM) ) =O THEN 1=1』RETUR 
NjFTi Mi=MM+1 3 MEND』%1= ニ の: RETURN 
999 "SDANi ADAN=TEMP: ん 1+1 日 ) 3 IF ADAN=G THEN RETURNjFI 
19o9 "AX=TEMP: ん 1+12) : AY=TENP ん 1+15) : AYB=AY*B 
1 の 1 の "AaYN=QY+1 
1929 ITF NDAN=1 THEN IF Y=AYN THEN IF X>=AX AND X<=AX+2 THEN RETURNiFTiFTiFI 
193@ "IF RND(2) THEN IF QAYN=29 THEN IF AX<BX DR AX>BX+4 THEN BUTD SDAN1:sFTFIsFI 
1949 "IF AYN>=2 さ THEN IF BX<=AX AND AX く <=GX+4 THEN DELBKLAX,AY]i BUTD GDEADiFTjFI 
1o5o *IF AaYN=25 THEN DELBKLAX。AY]i BUTD SDAN1jFI 
1969 "IF GA:QX+52*QAY) = の THEN BOTU SDAN1jFI 
1979 "IF SCRBKLAX』8YN コ =O THEN BHTU SDAN1jFI 
19B9 "DELBKEAX QAY]iQY=AYNi SETBKEAX。AY] 
1999 "TEMP ェ 1+15) =aY 
1199 "RETURN 
1119 "SDQN1j TEMP:%1+18B) =9』 RETURN 
112 の "SCRBKI%1= ル 1+Z2x523 MM=O』 MHTLE MMW く =25 ITF GA:1+MM) く > の THEN 1= の iRETURN』FTi MM= 
MM+1: MENDI 1=1: RETURN 
113@ "DELBKjFPUT[X1。%2x 日 。 さ 。B。 PDEL BACK コ 
1149 "1= ル 1+252』 MM= ニ iMHTLE MM く = ニ 2 Br 1+MMl) の 』 MM= ニ MM+13 MEND RETURN 
115 の 'SETBKiFPUTL%1 2x 日 。 さ 。 日 。PBLK。 日 ] 
1169 "1=%1+Z2x523FDR MM=O TO 23GA ん 1+MM) =MM+1 3 NEXT RETURN 
1179 'BDEADIFUR 1=@ TO 5iFPUTLGX。GY 日 ,。 16。PGBB。 日 ESGD[ ]』FPUTLGX , GYB,5, 16,PSNB。 2 
]j MAITE11jNEXT 
11BO "1T= の iMHILE 1<=2』 IF TEMP: 1T)=1 THEN SX=TEMP: エ + さ ) 3 SY=TENP : エ +9) iFPUTLSX。SY* 日 。 4 。 
16, PDEL , BAPK]』 SSETLSX 。 SY。 9] ョ FT エ = エ +1 MEND 
1199 "FOR 1=@- TO 2jTF TEMP: エ +1 昌 )=1 THEN DELBK[TEMP: ユ +12) 。 TEMP: エ +15) ]sFTiNEXT 
12 ら 6 "TIF NDAN=1 THEN FPUT[X。Y 日 。 1 4。PDEL 。 BACK]』FI 
121 の "FPUTLGX 。 GYB。 5。 16。PDEL 。 BAEK ] 3 NGB=NGBー1 3 NDD=1 3 F NGB>O AND NGB<5 THEN FPUTE4 
9+NBBx6。 179。 王 。 16。PDEL 。 1 ] ぅ FTs RETURN 
1229 *(* REFLECT S ロ UND *) 
12 さ @ *ESRFi BEEP[ 1 ]: MATT[ 1 ]: BEEPLG]』 RETURN 
1249 "(* TEHMA MUSIC *) 
125o *ESSTiCUDE $*BE、STHEMA#。 $BD , GSUB 共 』 RETURN 
126@ *(x BODLBD SHOOT SUND *) 
127 の "ESBB』CUDE $BE。SHASHA##。 $BD 。 SSUB 香 3 RETURN 
12B の *(* BLUCK BREAK SOUND *) 
129 の *ESBLjCDDE *BE。SBLUCK 埋 。 $BD 。 BUB 間 3 RETURN 
1 さ 99 *(x SDUND ST ロ P *) 
1 さ 1 の 9 "ESTUP』CUDE $BD,SSTUP 間 5 RETURN 
1 さ 29 *ESGD: SDUND[7, 7 コ 
1 ささ の "SDUNDEB。 6] 
1 さ 4@ *SDUND[9,7]』 SDUND[ 19, 
135 の "FDR T=1 TO 19 
1 さ 69 "SDUNDE6,T]』 MATTE1 コ 5 NEXT 
1 さ 7 の "SDUND[ 1 の の]』 SDUND 日 。 ら ]3 SDUND[9。 の] RETURN 
13BO "SDUND』PDKE$*FDOE 。 ん 1 3 PUKE*FDOD , さ % PUKE*FDOD 。 O』 PUKE*FDGE , ん 25 PDKE*FDOD , 23 PBKE$ 
DeD, 9 RETURN 
139 の ” BEEP』 IF ん 1=1 THEN PUKE *FDO さ 。$ 日 1 3ELSE POKE *FDO さ 。*BOiFTjRETURN 
149 の "EVEN』 ん 1 ニル 1 一 ん 1/2x23 RETURN 
141 の "MAIT』CUDE $ さ 27 日 共 3 さ = さ GO』 TF PEEK(*FDOO) QAND PFBIT THEN さ =5 の OFTj ん 1= ニ 13 MHILE 
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リス ト 1 New ゴルゴ 13 ソー ス ・ ソ フト 











ん 1 く = ル 5 ん 2= の 3 HILE ん 2 く = ニ ん さ 5 ん 2 ニル ん 2+1 3 MEND』 ん 1= ニ ん 1 二 13 MEND: CUDE まさ 26 日 革 5 RETURN 


1429 
14 さ の @ 
144 の 
1459 
1469 
147 の 6 
1489 
1499 
1569 


151 の 9 


154 の 9 
155 の 9 
1569 
1579 
15 ヨ 9 
159 の 


s M2) jNEXT5 SUB[ ]』 QDDRES=QDDRES+ ま 4 の 』 MM 十 あ 49s NEXTi RETURN 


* SCREEN』 DMIY=CDMPL 2*16+ ん 1 ]3』 PUKE $FD さ フ 。DMY』RETURN 
> CDMPL』 CUDE $E66 さ #。 $ さ 。 も 4F』 RETURN 
*LINEHLT[ ]』 CPUKE ADDR。$1 コ 。 6。 5。 1 音 2 昔 。 久 さ 香 。 4 音 。 久 ブフ 5 SUB[ ] RETURN 
> BTDD』 CUDE $ さ 27 日 守 3 ん 1=1 3 ん 2=Os 7 
MMHTLE ん 2 く =4』 ん 6 ニ グロ / メ さ 』 ん ロニ メロ ー ん の O* さ 』 ん の ニル O+$ さ の 

> TF 1=1 THEN IF の =$ さ の O THEN の =$293ELSE ん 1= の FTjFI 
2 DMY : 2) = の 』 メ マニ ル さ / 1 の 5 ん 2 ニル 2+ 1 』 MEND 3 CUDE $ さ 26 昌 # RETURN 
> NUMBER3 BTUDLX7。 MDRK] 
? SYMBUL[ 1 2。 さん 4。 45。%6, MDRK+5ー メ 6]』 RETURN 





さ =1 の の 6993 DMY=Z6 


> BYMBOL 3 CDDE $ さ 27 昌 HLT[ ]』 CPUKE ADDR』 19。 9。 の 。 の 。 7。 日 。 内 。 ら 音 。 久 1 の 5 DMY= ル 115 
1=OiREPEAT』 ADDR: 1) =DMY 1) 5 ん 1= ル 1+13UNTIL ん 1= ん 1 の 』 SUBL ]』 CUDE * さ 2 日間 5 RETURN 
152 の "INKEYj =PEEK($FDOO) RND *BO3sTF 人 THEN PF=QjFTsKY=PEEK($FDo1 ) 5 RETURN 


153 の ?HLT}jCUDE $B6。 る FDO5 共 。 も 2BF 日 祝 。 多 1 人 04 の 韻 。 日 6 の 六 。 争 昌 7 。 証 FD の 共和 $B6 。 FDG 昔 。 2AFB#3 ADDR 
=$FCB2 5 RETURN 
7 SUB:PUKE FDG5。 の 』 RETURN 


MC 撤 エ エメ エメ エエ エエ メ エ コ 


* TRANSFER 』 B=SUBPRD[ コー12』 SUBMITEB。 の ] 
?FUR 1I= の TO 14』QDDRES=SUBDATA+$ ま 1 の 9 の TsSUBMITEADDRES。 1 ユ +1 ]sNEXTs RETURN 
7 (。 導 導 着 光 赴 基 電 区 基 基 GUBMTT XX 区 区 ) 
? SUBMT Ti = まじ 99 の G+ 生ま 199x ん 23 QDDRES= ん 1 FUR MM1= の 9 TO さ 』HLTE]s CPUKE DDR。$ さ SF。 TYP 人 
MR UP ビュ 7 日 "1T あの 1 。 も D さ 9 さ 神 。 罰 祝 。 49 祝 。 あり の 3FUR WM2=O TU まさ FiADDR: M2) =QDDRES 


16 の OO ”( 。 光 小 基 光 基 基 基 PUT XX 区 % 基 基 ポ ) 
1619 "FPUTiM=X1+BOx23HLTE 1』CPDKE ADDR。 まさ FT YU ビ 日 T あの 1。 各 
あじ OOO 昔 。 の OO7 祝 。 も りさ 。 あじ OOC 草 。 あの 。 MM 福 。 さ 。 2425 ん 6 SUB[ ] 3 RETURN 

日 


DS96 


* (# XX FPUT PRUGRAN TRANSPURT 


> BUBPRD』 CUDE $ さ の BC 失 。 あの さ 。1F1 の 昔 。 あさ の 

7 CODE $ さ 4。 ま さ ア 。 和 日 6。 負 D4 

> CDE の 9。 CD。 ま PO 。 OO 。 生 三 さ 。 $ 日 ビ 。 ED 。 ED 
? CUDE *BC。$ED。$1F。 和 の 1 。 ま 6F。$B じ 。 EE ビ 。 あ 1 
7 CUDE $ ロ 1 あら 9』 ま 日 ビア 。 名 仙 ら 。 日 。 4 。 日 1 
7 CDDE $ の 日 。 あ 26」 も の 2 まさ 。 ああ 人 6。 日 じ 。 $D ら 
> CODE $ 日 1 。 あの 日 。 24」$OP 。 AE 。 日 じ 。 DO 。 5 
* CODE *BC。 も D1。 和 26。 あの 4 日 6。 ま 2 の 。 あの 。 あの 2 
> CUDE 日 6。 も 21 。 あ 7 。 も B。 多 1 さ 。$ 三 6。 日 じ 。 
: CUDE $4F 。 和 $ 巨 さ 。 も 日 じ 。 まあ H4。 あ 1F あの 2。$E ビ 。 日 ビ 
? CUDE $B1 。 4 の 。 生 ED 。 和 $B じ 。 生日 4 。 6。 市 。 日 1 
7 CUDE 20。 ま の 4。 生 人 OB の 。 ま 2 の 。$ の 1 。 名 4F 。 各 和 7 
> CUDE $Q。 ああ 2D 。 4 。 あさ 1 。 名 日 。 名 の 。 名 ら 人 
* CDDE *BC」 人 QO。 ま 2 の 6。 ビワ 。 も 仙 ら 。 日 じ 。 $91 。 日 
7 CUDE 4 の 。 ま 7。 ま BC 日 。 ま 2 の 。 $ 人 QB 

* TNIBiPRINT CHR$(12) 

?LTNE[ 424 。 の 。 6 さ 9。 199。 の 』 1 。2] 

> SYMBODLE476。16』1』1』7』4。"High" コ 

* SYMBL[476』24。』 1 17。5。 "scor" コ 
SYMBOL の, さ 2。 1 」1』7。1。 "の"] 

> SYMBOL[ 476。 4 日 1 。 1』7。5。 "Score" コ 

? SYMBDLE5 の 56。 1 。1。7。1。" の "] 

: BYMBL[ 476。 79』 1 。 1 。7。5。"F1oor" コ 

* RETURN 





+2 + さ + 人 4 + 品 +6 + ブ +8 
Bo 92 Go 2 9 83 @a 
Bo 21 @Q oD 9 42 9 


TRANSFER ※ 半 基 基 基 基 基 基 ) 


ユエ さま う / 

















す ② 1 + + さ +4 +55 +6 + ブ プ + 日 +9 +Q +B +C +D +E +F Sum 

















リス ト 2 New ゴ ル ゴ 13 マシ ン 語 ダン プ ・ リ スト 








9@9 


99 
99 
99 
99 
99 
99 
9@9 
99 
99 
9@9 
9@9 


9@9 
99 
99 
@@ 
99 
99 
9@ 


99 
99 
99 
@9 
99 
@9 


9@9 


99 
99 
99 
99 
99 
99 
99 


@9 
99 
99 
99 
99 
99 


99 
99 
99 
99 
99 
99 


99 
@9 
99 
9@ 
99 
99 
9@9 
99 
99 
99 
9@@9 


99 
99 
99 
99 
99 
99 
99 
99 
99 
99 
99 


99 
9@9 


@9 
@9 
99 
99 
99 
99 
99 
99 
9@9 
99 
99 


99 
99 
99 





+9 
69 


+1 
E ミ 


+ さ 
FF 








Add 
4599 





+@ 
eo 
55 
@9 
FF 


+ の 9 
C@ 


+1 
99 
54 
9@9 
EA 


+1 
15 


+2 
99 
2 
99 
1 に 1 


49 


+2 
59 


+ さ 
55 
1A121 
9@9 
FF 
RF 
6F 
FF 
99 
@ ら 9 


+ さ 
97 


+4 
Ce 


+5 
9a 


+ ら 6 
2 


+8 
に 【C】 


+ ワ 
1 


+ 仙 
15 


+8 
9@ さ 3 


+ ヒ 
B9 


4529 FF 9O 1 7F FF E9 7 FF FF F@ 4F FFPFF 


4516 GO 7 75 63 CO GO AR G3 E9 @69 54 6F F 
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+F 


+F 
に よ 1 
1F 
FF 





























dd  +② 1 +2 + さ +4 + 品 +6 +Z + 日 9 + +B +C +D +E +F Sum 
4BO9 FF FF GS FF FF FFPF FD FF  FF FE 上 ド だ TEE FFP"FF 3 日 史 
481 の O FF FF FF FF FF FF FE FF FF FF IFF FC FF_FF FF FF EE 
42 の BE 1F FF DF FC 97 9@7 FF CF CF 1 @3 9F C1 E1 CO@ sB7 
4 コ 3 の FE 97 @G さ F1 CO F1 E3 F 1E @GF F9 EG9 69 9@7 ヒビ 7 F siDF 
4H4 の 99 6 の 9 9@9 E さ ビ 1 Q 46 91 E1 日 ミ 15 ヨミ 9 FG C6 99 s97 
4B5G 1 CO さじ @C GE さ C @3 C2 GF 1 さ 3 B@ EG さ SF 6 99 saE 
4B69 6 の 79 @F 99 93 日 1 C1 91 E9 1 ささ @3 @3 CO_ 99 1C ss32 
4879 71 EGO 7E 2 の GS FB FB 1F FG 3@ 7ZE FC 67 FE 1E SF siSD 
48 ヨ の FF FF ヒ 7 FF FF FF FE GF FB さ F FF FC @7 EG FF E ミ iCA 














ーー で ーー マー ペー マー 


この ゲー ム は , ナイ フ , 丸 ノ コ , ガラ ス , ハサミ を よ け 
な が ら , ひたすら 進む ゲー ム で す . キャ ラク タ に よっ て 動 
き の パ ター ン が 違う の で , か な り の 反射 神経 が 必要 で す . 


テー トー セー で トート と ー テ テー トー タート や セー > を トシ ーー 














[4 [] の キー で 船 を 動か し て , ISPACE キ ー で ビー ム を 発 
射 し ます . この ビー ム は 二 連 装 で , 発 ま で 画面 に 存在 し 
計 す な 

敵 は , 3500 点 周期 で , 点数 に 応 し て ROUND, SAW. 
MIRROR, SCISSORS の 順 で 出 て きま す . 











亀 KNIFE (50 点 ) 
常に 上 か ら 下 へ 落ち て きま す . な か な か 当たり ませ ん . 
@ROUND SAW (70 京 ) 
ジグ ザ グ に 降り て きま す . 
旬 MIRROR (150 点 ) 
6 つ 東 に な っ て , 高速 で 前 方 か ら 突 
@SCISSORS (100 点 ) 
絶対 に 避け られ ませ ん . 


っ 込ん で きま す . 


早 目 に 撃ち 落と し まし ょ う 


写真 1 初期 画面 


SCONE  : 09008 
HI-SCORE: 992139 


KEY 


BERM : SPRCE 


放 属 





| / と 一 難病 に 7 I 
了 / ブ ログ ラム に つい て 


ウーor っ uc 線 


由 了 し L 
相 盛 人 


爺 症 / 


/ 


プロ グラ ム は , $5000 一 60C4 で , 
が 。 へ 00 で リロ ケー タブ プル で す . 

音 出 力 は , PSG が な けれ ば スピ ー カ か ら 音 が 出る よう に 
な っ て いま チ (519B で フラ グ を 作っ て いる の で , 音 が で な 
いと き は 。 こ を 変え て くだ さい ). 

60 1.2MHz の モー ド で 動か さき な いと , MIRROR 
が 速 す ず ぎ て ゲー ム に な り ま せん . 

サブ プ シ ステ ム に 送っ た プロ グラ ム は , JMP 〔$D380〕 で 

各 処 理 に 分 岐 し て いま す . 


送 最後 に > 


この プロ グラ ム は エディ タ ・ ア セン プラ V2.0 を 使っ て 作 
り ま し た だ た. ソー ス ・ プ ログ ラム が , MAIN 側 で 12KK バ イト を 
越え を まし た が , ALL RAM の カカ が 発揮 され まし た . FM-8 の 
人 も RAM FILE の 改造 を され た ら ど う で し ょ う . 

し か し , これ を 作っ て いて , ディ スク や プリ ンタ が 欲し 
く な り ま し た だ た. だ ただ で 雛 5 いか な ぁ 
参考 文献 
1) ALIEN FALL 1I/O'80 年 11 月 号 
2) バ “CRASH′ ゲー ム の 本 [4] 
3) バシ ー ソ ー ゲ ー ム ? I/O'82 年 10 月 号 


スタ ー ト は $5000 で す 





写真 2 ナイ フ の 間 を 丸 ノ コ が … 


SUONE 02649 
HI-SCORE: 902133 


KEY 


al に 1 it ヨコ 
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FEYING SCISSORS 


表 1 エン トリ と 処理 表 2 ワー ク ・ エ リア 

































5000 サ プ シ ステ ム に SUB TOP 以 降 を 転送 デー ニタ に ・ エ リア や られ た か の フラ グ 
5089 サ プ シ ステ ム HLT 5A75 サ プ シ ステ ム の プログラム 乱数 ワー ク 
509F ー 行 出力 (U よ り ) C000 MAIN と コマ ンド の や り と り を する スコ 2 
50B7 A= 乱 数 C019 D401 に キー コー ド を 格納 ハイ ・ ス コア 
50C7 スピ ー カ ー か ら 音 を 出す (U よ り ) C022 全 画面 消去 桁 数 
50D2 / (A, X) C039 1 行 出力 SOUND ワ ー ク 
50EC 数 字 表 示 (D, X,<7) C09F | VRAM アド レス を 計算 する サブ ルー チン 戦闘 機 の こり 
5107 PSG か ら 音 を 出す (U よ り ) C0C3 数 字 を 表示 する . ッ タイ マ 
5113 / (A,B) C12D キー が 押さ れる まで まつ クー X 
5126 サブ プ ブシ ステ ム に コマ ンド と 座標 を 送る C136 キー を 読ん だ あと <4 を クリ ア 0D 7 放 キ ー ス バツ 
(X,D) C145 ハサミ を 描く 0E| ミサ イル ・ タ イマ 
5137 シス テム INIT.( サ プシ ステ ム DP な ど ) C151 リン 議 7 0F / ワー ク ・ ト ッ プ 
5154 メイ ン ・ ル ー チ ン C15C | SAW / 11 | ナイ フ ・ タ イマ 
5192 INITI C168 ミラ ー / 12 / 。 ワー ク ・ ト ッ プ 
51E1 INIT2 C173 戦闘 機 を 描く 14 | ハサミ ・ タ イマ 
525E テー マ 曲 C17E ミサ イル を 描く 15 7 。 ワー ク ・ ト ッ プ 
5285 INIT3 C189 爆発 バタ ー ン 1 バイ ト X 8 ドッ ト を 描く 17 | SAW タ イマ 
52E6 ゲー ム ・ オ ー バ ー 表 示 C194 1 x16 18 ヶ ワ ー ク ・ ト ッ プ 
53FD 残り を 表示 C19F 2 X16 1A | ミラ ー タ イマ 
530F や られ た と き の 表 示 ・ 音 CIAA 4 X16 1B / 。 ワ ニー ク ・ ト ッ プ 
535A 戦闘 機 C225 1 バイ ト X 8 ドッ ト を 消す 1Dp / 発生 カウ ンタ 
53A7 音 出し C22C 1 x16 1E | ACH 用 PSG デ ー タ ・ ア ドレ ス 
53E4 ミサ イル C233 2 x16 20 | PSG が つい て いる か の フラ グ YES 一 0 
554C スコ ア 表 示 C23A 4 X16 21 | BCH 用 PSG デ ー タ ・ ア ドレ ス 
5555 爆発 音 C28B | 左側 の 画面 を 消す 23 | ACH 用 タイ マ 
5578 発射 音 C2AE | デー タ ・ エ リア 34 | BCH ヶ / 
558D ナイ フ C64F 25 | ワー ク ( 汎 用 ) 
561F ハサミ 30 | 各 物 体 の ワー ク ・ エ リア 
56DF の こぎ り MAIN 上 で は , 5A75 か ら 1 
57CC ミラ ー 

















Rdd す の キ 1 + キ 2 ー+ キ 3 +4 + ロ + ら 6 +7 + 日 +9 +Q +B + ピ +D +E +F Sum Rdd  +G 1 +2 + さ +4 + ロ + ら 6 + プ + 日 149 + +H +C +D +E +F Sum 
5GGG B6 FD 95 2B FE 6 B9 B7 FD 95 BZ FD G5 CE FC 9 :a@ 5 さ So の 96 さ D CB 35 1F 9 C6 15 BE C2 さ 17 FE 18 39 BE :53 
Bo19 さ 9 BC さ Q C6 さ D a6 B9 Q7 CO 5Q 26 F9 7F FD 95 16 :96 5 さ 19 C1 QR 9 ら 5 @C C6 17 17 FE GD @GD 29 27 1HB C6 @7 さ 4 :7C ビ 
592O 91 15 さ 4 GO6 B6 FD 95 2E FE E6 61 6 9 B7 FD @95 : さ 4 329 94 B6 64 さ 4 92 BE G@9 64 17 FD 7 3 92 BG 14 26 iC2 
593Q BZ7 FD @5 EF FC FE さ Q F7 FC B9 19 BE FC BC Aa6 C9 :DB 5339 F2 35 94 5 26 E9 29 21 33 BD 97 3@9 17 FD CB 6 sz2E 
594G 7 AO 5 26 F9 BD 42 6Q E4 26 DE さ 35 6 G9 99 3F szDB 349 64 さ 4 92 17 FD 71 1F B9 B6 96 17 FD C6 BE 9F 9 6 
959 59 41 4D 41 55 43 4 49 9 さ 3 D3 BF 99 B6 D4 @H B6 :1E 5359 さ 9 1F 26 FC 35 92 4 26 EB 39 9Q OR 27 @1 39 6 :35 
So69 D4 99 7F D3 BO BE6 D4 9Q B6 D3 日 9 27 FB BZ D4 9Q :g@9 5S69 92 97 GE BE C2 3 96 @C C6 17 17 FD BE9 BE CO9 19 :E1 
5979 BZ D4 9 HB1 @1 27 GF FE DS FE 3⑨ BC 9C E6 9 E7 : さ 1 5 さ 7 の 9 17 FD E さ 17 FD 1 さ B6 FC 2 7F FD 9 1 29 27 @2 s@6D 
59BG_ CO 4 26 F9 29 DC 7E CO GG 7F FD 95 Eo6 FD 95S 2B :CZ 53B9 97 GD 96 @D B1 さ 4 27 GE B1 36 26 1@ 96 9C B1 3 :76 
SO99 FE 6 BO EZ FD 95 BZ7 FD G5 B6 FC BG9 26 EB 39 BD :7 ビ | 5399 27 Ga GOC 9C 29 96 96 9C 27 92 9a 9C BE C1 7 さ 96 saB 
SoAG_EB E6 CO BE FC B2 QA6 CG AZ7 Bo 5Q 26 F9 CC CG 39 :65 」 53AG_@GC C6 17 17 FD 9 39 BD @3 BD 1D 39 9 2 ミ 27 @1 si7E 
SoEG_FD FC B9 7F FD @5 39 DC 91 D さ @1 D3 91 DD 91 9B : さ 1 5 さ BO さ 9 6 @ さ 97 2 くさ ささ BD 9G6 65 さ 4 4G DE 1E 11 3 E1 :aC 
SOC9 92 C さ 3 9O B1 DD @1 39 6 CG 27 96 aE C1 BD 93 29 siGF SCO 27 9 17 FD 42 DF 1E 39 6 24 27 91 39 6 @2 97 si66 
59DG F6 39 97 9 Bo6 B1 9 99 97 99 BZ FD 3.D6 98B 4F :FA 53D9 24 ささ BD 96 76 さ 4 49 DE 21 11 Q さ E1 27 95 17 FD iaB 
SOE9 CO 9@1 26 FE さ @ 1F 26 EC 7F FD @3 39 さ 4 92 BD 99 :Z SE の 9 26 DF 21 さ 9 9 GE 26 GB B6 91 97 GE BD @3 BD 4 :36 
9FO 3 92 FD FC BS 96 97 B7 FC B4 BF FC B2 CC Ce CS 15 53F9 さ 9 BE C1 さ 6 17 FD 2F 17 FC BF BE6 FC B2 7F FD 95 :58B 


Sums 





dd  +9 二 1 2 + さ +4 + 品 +6 +7 + 日 +9 + +B +C +D +E +F Sum Rdd 。 +@ +1 +2 キス + 人 4 + + ら 6 +7 + 日 +9 + 代 +B +C +D +E +F Sum 
51 ら 9 FD FC BO 7F FD 9@5 39 A6 CG 日 1 FF 27 18 E6 C9 BD :BB 5499 B1 29 26 さく DE GF 5F Aa6 41 2 @1 5C 3 ミ 42 11 9 ミ sCD 
5119 92 29 F4 BE FD GD a7 @1 6 93 a7 B4 6F 4 E7 @1 :E5 5419 12 26 F4 C1 92 2 29 17 91 SE 96 @C DE @F C6 @2 :91 
5129 4 QA7 4 6F B4 さ 9 さ 4 G2 17 FF SE こ 5 G2 BF FC Bo :BD || 5429 6D 41 2 GF A7 C4 さ 4 G2 6 1 a7 41 35 92 BB G さ :D さ 
51 さ 9 FD FC B2 7F FD 95 39 1F 5 の 4 4Q 1F BB 1Q 59 ささ :7F || 5439 5 27 G4 ささ 42 29 E9 39 DE @F EC C4 5D 2E 9GB BE :FA 
5149 BD 99 32 BE C9 G9 CC 1E 3C 17 FE D6 6 @1 B7 FC :SE 544@ C2 25 17 FC E1 5Q EZ 41 2 Ga BE G9 CB さ 39 1F 26 :5C 
159 B9 7F FD @5 BD 3C 17 G9 BB 17 91 @2 17 @1 26 17 sDB 5459 FC 16 99 EE 19 9E 12 6D 4 26 29 EC 21 19 3 C4 ia4 
5169 @1 FB 17 94 2B 17 94 B7 17 95 74 17 96 5E 17 92 =: さら 5469 27 96 5C 19 3 C4 26 1C 6 @3 a7 4 EC 21 BE C1 :72 
5179 7 ミ 17 2 ささ GD 99 27 E7 17 @1 94 9a Ga 27 95 17 izDD 5479 94 17 FC B2 DC 93 CS GG 95 DD 6 さ 17 GO CE 17 @9 sDC 
51B9*@1 7EB 2 の DB 17 の 1 5F DC @ さ 19 9 さ G5 25 92 DD 95 :7B 5489 D4 16 99 BE さ 1 2 さ 3 16 9C 15 26 CC 6D a4 26 さ 9 EC :iO2 
5199 2G C4 BD さ 6 CC 99 GO DD 5 DD @B 7F FD @E Bo6 FD 77 5499 21 1 C4 27 95 4C a1 C4 26 25 E1 41 27 95 5C E1 :39 
51QO GE 日 1 FF 26 94 97 29 2 92 GoF 29 1F BB C6 さ 9 DD 6 54QG 41 26 1C EC 21 BE C1 9F 17 FC 7E 6 93 a7 a4 DC :EC 
51EG ら F ミ GO G DD 12 ビ ミ gg 12 DD 15 C ミ ge @ ミ DD 18 :4B 54EO @ さ ビ さ 3 99 9 DD G さ 17 oo 9 ミ 17 go 99 16 9 日 ささ 1 :D4 
呈 1C9 じ さ @O 9 DD 1E C6 @5 D7 97 さ ミ 9 BE CG 22 17 FF 56 :B さ 54CO 2 さ 3 1 5C 1 26 C5 6D 4 26 39 EC 21 人 Q1 C4 2E 2 s93 
51DG C6 97 ささ BD 96 CB 34 @4 17 FE C4 5 94 5 26 F6 s1B 54D9 BB 9 さ 1 C4 2D 24 E1 41 27 @G5 5C E1 41 26 1B EC =: さ D 
51E@ さ 9 BE C2 BE 17 FF 3F 33 BD @7 1D C6 96 34 94 17 so 54E9 21 BE C1 QA 17 FC さ F B6 @ さ 7 4 DC G さ CS @9 @ フ 7 :E9 
51F9 FE AD 35 94 5 26 F6 BE C1 51 CC GD @7 17 FF 26 si16 54F9 DD 93 17 99 57 17 99 5D 29 4B さ 1 25 19 9C 1E 26 is6D 
Sum: C5 1B 2 FR 5 ミ Gg GE F6 27 69 69 26 CE 5F B4 ED :B4 Sum: BB 4 RC 43 2E D さ 3 94 B9 4 41 D9 E4 品 1 CB EB EE :4 
Rdd 9 キ 1 +2 + オ さ +4 +55 +6 + プ 7 + 日 9 +a +B + ビ +D +E +F Sum | add +O +1 +2 キミ +4 +5 +6 + フ + 日 19 + 人 +B +C +D 4E +F Bum 
52go BE C1 455 CC 9D 9 17 FF 1D BE C1 5C CC 9C 9D 17 : ら 1 、 55oo C5 Co6 9G6 さ 4 9@4 6D 4 26 2 EC 21 19 3 C4 27 96 sDB 

















5219 FF 14 BE C1 6 CC GD 19 17 FF 9E CC G9 @9 DD @3 :B9 5519 5Q 19 さ C4 26 1D EC 21 BE C1 9 17 FC 9 6 96 :Q9 
229 BE 45 9 17 FE C6 DC 95 BE 45 GE 17 FE BE C6 @ さ 3 1 5529 7 4 DC 93 C さ G9 GF DD 93 17 @9 29 17 99 26 35 5 
5239 BE 35 15 さ 4 94 さ 9 9 96 99 17 FE 4D CC C1 7 ミ 3 FD 1 コ 553 の 9 94 29 GF 35 @4 さ 1 2 くさ Sa 26 C9 EC C4 BE C1 7E 17 s9D 
5249 FC 9 RF FC 2 7F FD GS さ 35 94 5 26 E6 6 94 97 仙 5549 FB E4 さく 42 11 9 さ 12 1@6 26 FE EF さ 39 DC GS BE 45 1 
S259 の 9Q BE C1 2D 17 FE CF 17 FE 2F 7F FD 95 39 @D 29 紀 5S5SG GB 17 FE 9 39 6 FF 7 41 GD 2 27 11 6 1E BE :EF 
5269 27 99 ささ BD @7 6C 17 FE SE 29 19 33 BD 9@7 @C 17 上 SS69 99 64 17 FB 6D 6 9F BE GO 64 17 FB 65 さ 39 さ 4 49 sBE 
279 FE 95 BE B2 99 3@ 1F 26 FC さ 9 BD 97 5 さ 4 19 11 4 557 の 6 ささ BD 9@4 1 DF 1E 35 CO GD 29 27 Ga 6 さ 2 BE 99 >:FB 
5289 Q さ E1 26 EH 39 BE C2 BE 17 FE 9B さ 3 BD @7 6B 1Z 2 5S5 ヨ の 64 17 FE 4E 29 @6 6 9D 5F 17 FE 8B7 39 Ga 11 26 szEF 
299 FE 75 ロ 9F 99 B4 93 97 QB 97 GE 97 11 97 14 7 17 :5 ミ 5599 GH 6 @G さ 97 11 BD G3 BD 32 39 DC 93 C さ @9 96 DE :DZ 
52AG 97 1Q 97 23 97 24 GF 1D 6 1 97 GC GF @GD 33 BD =:71 55RO 12 34 96 a6 42 1 1 26 1 く 3 17 FE @GB B1 E1 25 @9C :B6 
52EO 97 99 DF 21 さ 3 ミ 3 BD 97 66 DF 1E DE @GF 6 FF a7 41 =:24 5SBO 17 FE 94 C6 さ 9 さ D C6 FF ED 41 cF C4 さく 96 ヨミ 99 : さ 6 
52C9 ささ 42 11 93 12 26 F5S 6 1 a7 42 3 さ 43 11 93 1 :FF SC の さ 2 25 @G7 ささ 4 くさ 11 9 さ 15 26 DZ 39 DE 12 EC 41 C1 sa1 
52D9 26 F7 a7 42 さく 45 11 93 1B 26 FZ7 4C C6 G6 a7 42 sS5B 5SDO 1 26 G9 BE GO 64 さ 9 1F 26 FC 29 3B BE C2 2C 6D :EE 
52E9 ささ 4 さ 5 26 F9 さ 9 ささ BD @7 61 17 FD BE2 17 FD aF :D9 SE の C4 26 29 17 FE 49 5C ED 41 C1 18 27 2 91 @C 2D :E さ 
52F9 BE C1 2D 17 FE さ @ 17 FD 99 7F FD G5 39 96 9 C6 BB 55FG 11 9O G さ 91 @GC 2E GE C1 16 27 @G4 C1 17 26 63 @C 』79 
Sum: 2D 41 1E 51 DC FE 4 16 2C.5D 4B C9 19 79 6D C4 :5C Sum: B4 4 さ 21 69 7D QAC QB 24 ヨ 9 7F 99 CQ aF D7 Ba E2 sCA 

















1 mm ロロ よび ひい や や や や 


CE 

















FL じ YING SCISSORS 


FLYING SCISSORS マ シン 語 ダ ンプ ・ リ スト 





+ ミ 
ED 
ミ 9 


+4 
7E 
Eo 
46 
9 
95 
9 
91 
25 
4 
Bg 
96 
B7 


+5 
Ce 
D< 
24 
Bo 
<D 
EB 
BD 
96 
48 
eo 
4 


+ ら 
99 
ヨミ 
9 
99 
ささ 
BD 
9 さ 
R さ 
きき 
さ @ 


+ ア 
46 
C6 
EZ 
さ 9 
C5 
12 
7E 
ら 1 
C6 
B8 
FC 
4 ゴ 
SBD 
さ C 
42 


+9 


+ 台 
4 ら 6 
8 ヨ ら 
24 
ささ 
D ミ 
64 
さ 4 
29 
6 
ス -) 
E ミ 


+E 
ョ 6 
59 
94 
ョ D 
85 
BD 
96 


+ ビ 
7 
3D 


+F 
7 
F6 
99 
@5 
27 
>1 
由紀 
9 る 
8B9 
D1 
@F 
FF 
2g 
92 
C ら 6 
BD 


5ECG 
5EDG 
SEE9 
BEF9 


+9 


BE 


99 
1a1A1 
Eo 
121 


さ 


2 


2 
1 
3F 
5F 
2 
91 


39 


99 
9 
99 





+F 
2 人 
41 


99.。 





Rdd 

5FGG9 
SF19 
5F2 の 
5F さ 9 
5F49 
SF 
5F6@ 
5F ア 9 
SF 
5F99 
5FAG 
5FEG 
FC 
5FD9 
FE の 
5FFG 








F9 
99 
9 ビ 
さ 9 
99 


9 


99 
g1 


+C 
9 さ 
9 さ 


2 
21 
BEF 
39 
99 





+D 
9@9 
99 


る 


2 


76 
62 
99 
49 
7 ミ 
7 
92 


+F 
99 
99 


75 
9 
12 
92 
99 




















FLYING SCISSORS 


FLYING SCISSORS マ シン 語 ダ ンプ ・ リ スト 











{ 
| Add +9 1 + つ キミ +4 +5 ロ + ら 6 +7 + 日 9 +A TB + ビ +D +E +F Sum 
| ら goo D2 7 F9 @ さ 7C go qo BB go 91 1 44 Bo さ B 69 C2 sBF 
| 6919 49 94 49 6B 2D 1 2 15 oo GB CO 1B 59 BE ご GO :59 
76 2 99 GO さ 19 1C O6 GO BB 5G 29 GB 19 79 3 GC = ビ 1 
49 SB 24 RG 29 D さ 21 DB 94 99 3B 29 eo F4 CC sa 
19 GO E さ 3 69 GO GO Q1 FA CG GS3 Bo BC 29 さ 1 92 E6 :56 
695G GC Q9 4 日 7C ビ 17 12 BG さ F 49 97 
6gog 6 EA さ E 6F Bo 4C BE BB CO F さ 
697G 4 94 24 E5 GA SB D< FB 78 gg 
| eGBo 19 GO GB 71 GO gg GO 9B Geg g1 
| 6999 4B 94 49 7C さ D 1 29 35 49 99 
3865 76 52 さ 1 B7 19 1C 1F ogB BB 59 
| 















54 2E 
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RANpPOoA BOX 
FM-7 アプ リケーション ・ ソ フト 


リス ト 1 自然 対数 の 底 を 求め る プロ グラ ム ソー ス ・ リ スト 


10 CONST し =4050。 ド =10 3 * 
20 ・ A=WBOOO3P= ま 1 さ 0O 232 ・LAR11: R=Oi 1=O 
25 ・ POKE *FDOF。O 2 ミミ ・REPEAT3 1=1+1 
=0 ・ FOR I=O TO Li 2*4 ・。 Y1=R*5s Y2=Y1/N 
40 『* Pi1)=OiAiT)=Os 238 * メニ Y1 一 Y つ まき Ni X ニ X ま つ + ム AT) 
* NEXT 236 * AE)=X/N 
55 2 ミ 7 ・ 。R=X-N*Az 1) 
ー 2 60 人 Ni 1 ) =1 3P: 1 ) = つ ュ N=2 238 * 人 iT) = 1)+Y2* つ 
FM-7 用 の 簡単 な プロ グラ ム が , 70 ・ LAB2s IF N< さ OQO THEN BUTD LAB10: 239 UNTIL 1=L 


えた の で 75 ELSE GOTO LAB11iFI 240 ・GOTD LAR120 
いく つか で きた の で 発表 し ます . BO ・ LAB120』BDTD LAR2O 241 
20 * LAR1 さ OiN=N+1 249 ・LaAB20』 C=Oi 1=L 
100 IF iL)=O THEN GDTO LAB9OFI 25o REPEAT 
自然 対数 の 底 を 求め る 11o LaB2s 2eo Pi 1) =PiT)+Q T)+ ビ s 
115 27o TF Pi1)-K>=O THEN GDTD LAB6iF1i 
(リス ト 1 ) 120 1=LiREPEATi 2eo C=o 
13o TF az1)=O THEN BUTD LAB1:F1s 290 BOTU LAB4s 
14o GOTO LAB2s soo C=1i 
た = ae R 15o 1=1ー1 so * Pi 1) =P1) Ki 
10 行 の L に 桁 数 を 代入 後 ,.K ュ ン 155 UNTIL 1=o 32o 1=1ー1 
2 16o LaBOs =25 ・。 UNTIL Iso 
パイ ラ で コン パイ ル 後 。 実 行 し て 165 33O "GOTO LAHR13Oi 


* き い た だ の 桁 170 "LRR10』 R=OiT=O 555 ・ 
《 く ださい. ただし, 下 の 桁 は あま 1BO *REPEAT3 エニ エ +1 40 ・LABS03 PRINTCHRS(12) 。"E="。PE 1) "に 


言 ・ 90 "  X=Az1)+R ま に : <50 ・ FOR 1=2 TO し 
り 信用 で き ませ ん . また , あま り 2007e AO 390 *。 PRINT Pi1)i 
効率 が 良く な い の で , 時 間 が か か 210 ・ Rs=X-N を Az 1) 3 400 ・ NEXT 
220 ・UNTIL 1=L 410 ・END 


5 り ます . 10.000 桁 で 約 5 時間 . 23O ・BOTO LAB120 


電 mmm リス ト 2 vol.Copy プ ログ ラム ソー ス ・ リ スト Rm 





























Vol Copy 1000 * CODE $BE 。 も FOOO 柱 。 $F6。 多 FDOF 社 も EE6 日 4 科 も F ブ 。 ま FDOF 揚 122O * 
加 1005 * CUDE 和 ま EZBO 昔 。 も BC 。 を F じ OO 梓 。 も つら F 1 幸多 6 ら 。 ま も FDOF 析 1280 *TRCK sFOR 1=ST TO ET 
FOUR J=1 TO 32 

K=( エ ーST ) * さ 2+ ゴ ー1 
し = (ゴー1 ) / 16』 = サー し * ネ 16 
IF K>=5B THEN ド =K+16sFI 
IF ド >=96 THEN ド =K+16sFI 
MEM= ま 1000+K*256 
RCBSETLMDE 。 MEN。 1 。M。L。DRI] 


1 1010 "PRINT/" ま キネ ま まま 。 NEM VDL.CUPY まま 1290 * 
(リス ト 2 ) 1020 *PRINT/" O。 DRIVE O => O" 1soo ・ 
1030 "PRINT/" 1。 DRIVE O => 1" 1310 * 
8: テ ak Ra 1040 "PRINT/" し 宮 、 才 22 ea 1320 * 
シン グル ・ フ ロッ ピー し か が な か ' |io5o ・TNPDRDR=INPUT: IF DR<O OR DR>1 THEN 133O ・ 
Na pe 1oe0 ・ PRINT CHR$(7) 1540 ・ 
っ た 人 に は , コピ ー を する とき 。 1070 ・ BOTO INPDR 135o ・ 
中 こ 、 > lomo・ FI 1360 ・ 
出し 入れ する こと 40 回 で し た 。 を 68 ・ PRTINT// 1370 * 
還 を に ・ 109O "IFDR=1THENPRINT"SET DSK FOR LOAD & SAVE OK"/ 13BO * 
の 回 数 を 14 回 に し まし た . 11oo ・ pk] 1390 ・ 
KK コン パイ ラ で コン パイ ル 後 , 実 1110 "FI 1400 * 
Sd 63 、 1120 *FOR TR=O TO 39 STEPo 1401 ・ 
行 す る 前 に は 必ず , NEW 図 CLE |1o・ ST=TRiET=TR+5 1410 * 
まで 1140 ・ 1F TR=36 THEN ET=<9jFI 1420 ・ 
AR,&HFEE 較 を 実行 し し くだ きい 。 iiso ・ IF DR=O THEN PRINT"SET DSK FOR LOAD QK"/ | |1421 ・ 
aa に とこ 1160 ・ Kr 143O * RETURN 
な お , この プ ブログ ラム は 両面 倍 izo・ Fr 1440 ・RCBSET: ADDR=$5700 
時 、、 1180 "DRI=0iMDE=10jTRCKE] 1450 ・ POKE $FDOF 。O 
密 40 ト ラッ ク , 16 モ クタ の も の で liiso・ TF DR=O THEN PRINT"SET DSK FOR SAVE DK "/| |146o ・ 。 CPOKE QDDR、%1。0。 2 間欠 さ 4。 5 6 
ニャ ・ p 1200 『 ロ KE ュ 1470 * CODE  *$BE。,$5700#。$BD。$F17D 栖 
あれ ば , 他社 の デイ スク で も コピ 36・ Fr 14BO ・ 7Z=PEEK(*FDOF ) 
ー で き 、 デ 。 ドド 。 1220 ・ DRI=DRimDE=9:TRCKE] 1490 ・ TF PEEK($5701) く >0 THEN PRINT"ERRDR"sENDiF1 
で きま す . また , デュ アル ・ ド 1555 PRINT"TRACK" ,TR。"ー"。ET。" / COPIED"/ 1500 ・RETURN 


ライ ブ に も 対応 し , DISK BASIC |1249 "NEXT 


1250 "RCBSETEB,Q。0。O。0,01 


な し で も 走り ます . 1260 ・END 
FM-7 マ ル チ ス テー トメ ント 化 (リス ト 3) = 一 リスト 3 マル チ ス テー トメ ント 化 ブ ログ ラム ーー 一 


プロ グラ ム を 組ん で いて ,『 マ ル チ ス テー トメ ント に し て お け ば よかっ た 』 60O0O =PEEK( あ HH ささ ) 256+PEEK (を H34 ) : INPUT "START=" 。C: ITNFUT "END=" 。D 
と いう と き に 、 こ の プロ グラ ム を も マージ し ます . そし て RUN 60000 連 と す 29910 S=PEEK (A+2) *256+PEEK (人 + う ) 


TFC=S THEN E=QAs GOTO 6010O 


マル 5ー ・ 行 径 史 5 60020 IF(C<S) DR(S=60000!) THEN PRINT"ERRDR": STOP 
る と, チ ス テー トメ ント 化す る 行 番 号 を 聞い て きま す . 60030 QA=FEE ド (A) *256+PEEK (A+1) : GDTO 6001O 
プロ グラ ム の 実行 が 終わ っ て か ら リ ス 行 が つなが っ て い 60100 =PEEK(A+2) #256+PEEK (A+ さ ) 
実行 衝 ウ ト を 見 る と 、 行 4096 て いま 60110 IF(D<S) OR (S=60000!) THEN FRINT"ERRDR": STOP 

す . あま り 長 い 行 を マル チ ス テー トメ ント 化す る と , エディ イッ ト で き な く 60115 IF D=S THEN F=A:BOTU 60200 

Ke 科 陸 a 60120 A=PEEF(A) *256+PEEK(R+1) s GDTO 6010O 
な り 。 プロ デ テグ あま も で 使え る で し よう 。 60200 A=PEEF ド (E ) *256+PEEK (E+1 ) FDKE E。PEEK(F ) : PUKE E+1。PFEE ド (F+1 ) 

60210 IF a>F THEN END 
避 参 考 文献 60220 B=R: =PEEK() *256+PEEK (人 +1 ) 
3 の 6023O FOR 1=ー1TO2 ェ POKE(B+1) 、 さ 2: NEXT:PDKE (B+ さ ) , 5Bi GOTO60210 

1 ) “FM-7/8 活 用 研究 "工学 社 1 


2 ) 大 西 正和 :^ 実 用 BASIC", 日 刊 工業 新聞 


NEXT 
NEXT 
RETURN 
Ok 
DK1  iZ=GET 
0 基く て 2 
GOTn OK1 





FI 
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FM-Z 





窟 症 ア ン デ アナ が リス 





FM-8 用 に “FM ラリ ー” を 作り ま し た が , これ を 発展 さ 
せ た の が “INDY-7? で す . 名 前 に 深い 意味 は あり ませ ん が 
きっ と この 効果 音 の すご さ に 驚か れ , な る ほど と 思っ て い 
和合 





川上 II 記 昨 昨 風 車 II 風 上 上 風 利 昨 昨 山 II 

FM-7 と いえ ども や は り 5 多 量 の グラ フィ ッ ク を 高速 で 
移動 きせ る に は , サ ブシ ステ ム を ユー ザー が 乗っ 取り , 直 接 
画面 制御 を する プロ グラ ム を サブ シス テム で 走ら せる 必要 
が ある よう で す . そし て メイ ン へ の 効果 音 出 力 依頼 に つい 
て は , サブ 側 で 高速 割り 込み を 発生 きせ て 音 の 処理 を し て 
いま す . 

また だ た , BASIC の PLAY 文 と SOUND 文 が 使え を る よう に , 
メイ ン 側 で は サブ へ の プログラム 転送 終了 後 , 割り 込み 要 
求 の 受け 入れ を 可能 に し , 各種 の 効果 埋 を BASIC レ ベル で 
実行 し て いま す . で すか ら 音 に つい て 気に入ら な い 方 は 自 
由 に 変更 が 可能 で す 

ゲー ム 中 本 日 の 優良 レー ナー』 の 処理 の た め , プレ イ 
ヤー の 名 前 の 入力 , きら に は 記録 な ど が で きる よう に し ま 
し た . その だめ, INPUT 文 , PRINT 文 に つい て も ゲー ム 
を 中 断 す る こと な く 〈 く BASIC レベ ル で 実行 し , 再び サブ の プ 
ログ ラム へ 戻っ て ゲー ム が 続行 で きる よう に し て いま す . 

きら に , ゲー ム 中 いか ん を 問わ ず , 常に | BREAK | キー 
が 押さ れる と 完全 に BASIC に 復帰 し , 表 示 を 含む すべ で て の 
人 No ンド が 実行 びき ます . 

これ は , サ ブシ ステ ム で RUN き させ る ブロ グラ ム 開 発 中 に 
お いて の 有効 な 手段 と な り , 画面 状態 は . その まま で 作業 
が で き , 能率 が 向上 し ます . 
川 川 山 川 山 風 IIIIIIHIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIHIIII 


















川 吊 昨 川 吊 衝 昌和 
DPR (ダイ レク ト ・ ペ ー ジ ・ レ ジス タ ) は 高速 処理 に は 

欠く こと の で き な い レジ スタ で す が , シス テム で 決定 し た だ 
半量 6 分 離し て も な お ユー ザー 側 で 自由 に 使え な い 
ア が あり ます . メモ リ ・ マ ッ プ ( 表 1) を 参考 に し て 

02 
BREAK 





キー の 入力 情報 が DPR の 0 番地 に き て いる 











INDY-Z 










09 ュ 田高 畑 英 樹 





迫 熱 の デッド ヒー トン 





(の SG5 ほ の と リフ ア を 常に 参照 し て いれ ば プロ グラ ム を 中 断 
きせ る こと が で きま す . 

キー 入力 情報 リア は D 360 で す が , D 401 と 比べ ウェ イ 
ト 可能 で キー 入力 を ソフ ト で キャ ン セ モル で きま す . 
川 吊 川 川上 用 風 上 III 





IIIN 困 目 卓上 上 上 衝 上 上 上 上 風 風 上 風 上 風 衝 IIIIIII 
ゲー ムセン ター な ど で 古 く か ら お な じみ の カー レー ス ・ 
ゲー ム を マイ コン で 実現 し て みよ うと 思い 着手 し まし だ た が, 
スケ ー ル 的 に 本 物 に は お よび ませ ん で し た だ た. スピ ー ド 感 だ 

け は 表現 で きた と 思い ます . 

き て , FM 側 の 車 の 動き は プレ イヤ ー 側 の 車 の 存在 を 無 
視 し , 常に ラン ダム は に 方 向 転換 な ど を し ます . し か し FM 側 
の 車 同士 で は 衝突 し な いよ うに し て いま す . 

ゲー ム を し て いて , し ば し ば 相手 が 寄っ て きま す が , 決 
し て 故意 で は な い の で 安心 し て 振り 切っ て くだ きい. 目 
的 は 一 定時 間 (4 分 ) 内 で どれ だ け 多 く 走 れる か を 競う ゲ 
ー ム で す . も ちろ ん 時 間 内 で も 別 の 車 に 当っ た と き と , が 
ー ド レー ル に 当っ た と き は プレ イヤ ー の 車 が 1 つ 失 な われ , 
計 3 回 で ゲー ム ・ オ ー バ ー に な り ま す . 

記録 の 結果 は 多数 の プレイ ヤー と 比較 し て 上 位 3 名 に つ 
いて の み 氏 名 を 入力 し 『 本 日 の 優良 ヒー サー』 の ユー ナー 
に 名 を 残す こと に な り ま す . 

当然 で す が , | BREAK | キー で ゲー ム を 中 断 す る と 変数 
エリ ア が 空白 に な り , 再 ゲ ー ム で は 前 回 の ゲー ム の 名 前 な 
ど は 消 を えて し まい ます . 

な お , プレイ ・ キ ー に つい て は , 工 V 画 面 で 説明 し て い 

















る の で ここ で は 省略 し ます . BASIC か ら RUN す る と , デ 
モン スト レー ショ ン に 入り ます か ら , 適当 な キー 入力 で ゲ 
ー ム が スタ ー ト し ます 。. 


























































表 1 サ プ シ ステ ム の メモ リ ・ マ ッ プ (FM -7) 
0 
VRAM 青 エ リア 
3E80 
フリ ー エ リア 
4000 
VRAM 赤 エ リア 
7E80 
フリ ー エ リア 
7F00 
⑩ [BREAK | キー 
入力 情報 
⑪ 
⑭ 
(C) 
(E) 注 1 
) 
G⑭) 
人 着  。 ー20m5 | 
9 ユー ザー で 使用 可能 な 洲 2 
(FF) DPR エ リア 
8000 
VRAM 緑 エ リア 
BE80 
ゲー ム の メイ ン ・ 
% プロ グラ ム ・ エ リア 
CFFF | シス テム ・ ス タッ ク の 底 
D000 | シス テム て 決定 し た DPR 
D100 | ゲー ム で 使う パタ ー ン ・ 
D2BB デー タ ・ エ リア ( 木 , CAR). 
D360 1 キー 入力 情報 
D360 
Bi PF キー 入力 情報 





( ) 内 は ユー ザー 設定 の DPR 


注 1 : シス テム の 決定 し た アド レス か ら 分 離し た DPR 上 で は こ 
の 情報 は 得 ら れ な い (D00C 一 D00F を 参照 )、 
注 2 : 28H, 29H は 使え な い ? 





還 昌 日 NDY-/ 昌 ASIC 


サ プ シ ステ ム ・ フ ロー チャ ー ト (概略 ) 













復帰 








FM 側 
CAR 表 示 











プレ イヤ ー 條 
CAR 表 示 


7 の 





木立 , 3 た は 橘 
移動 

注 1) パ ター ン 表 示 の 多少 に か か わら ず 表 示 速 度 が 一 定 と な る . 
注 2) yes と z の を 交互 に 処理 する (処理 時 間 を 2 分 割 ) 





に ドニ ーー 











プロ グラ ム 、 ・ リス ト EREEEEREEIEEEEEEERBEERHBRIEIEIIEREERRIIEIE 





| 
| ド EEYxwXVWsLUCATE4 。7sFRTINT "5 カウ 
| さき ミキ "siLUCATE4 9gFRINT "ソリ レ ゾ ” し./ ホー コー 
0 "sg LUCATE4 。11sFRINT "キー ホ ド トート" ミキ " 
"LT テウ 9" サイ リョ LUCATES の 。17s FRINT "HIT anyv key": エニ エ 
NFUT ま (1) 

2 の CLS: DIMRX(15) : FUEESH6FFF 。 の : LINE (さら 5 の 。 15 さ ) 一 (6 の 8 
・199) 。FSET 。 1 。BF : SYMEOL (6 さ 、199) "STAND-BY" 。1 、1 . プ 
: SYMEOL (525 。179) 。 "RECURD" 。 1 。1 フェ SYMBOL (525 。 199) 。 
"TIME" 。1 1 。7sSYIHBOL (4 さ 5 157) "の g 8 16 
Em 。1 、1 。7: BUSUE2 さ の 

3 SYIHBOL (489 。 13) 。、 リ セー サー リ で で 。 人 4:LTNE ( さ 5 の 。2 日 ) 一 (6 の 8 
・12O) 、FSET ご.E:LINE ( さ 5 の 。 1 さ の ) 一 (6 の 8 、151 ) 。FSET 。2。B: 
ゴ =1 : FHRT ユ = ミ TUBSTEF ェ s LHCATES2 。 1:FRINTUSTNG" 揚 " ュ ゴミ ゴ ニ 
ゴ +1 : NEXT : ロニ の ロニ : ビニ の の 和 まり sE 生 リョ ビー リリ 

4 の LINE(44g、165) 一 ( 呈 67 .167) 、FSET 。9 。BF 

5 LINE(44 の 9.185) -( 弓 67 .187) 、FSET 。2 。BF : PUEES&H5CQS 。 
の 


2 "ウツ ソ プク 









6 EXEC&HG の の 

7 1=FEEKE (SH6FFF ) : TFT ミロ THENFUEE%H6FFF 。 ELSE7Z ウ 
Bg IFI=( 史 HB の ) THENSYMEOL (159 。 1 の の 9) "START" 。 そ 2 ミミ し 
TINE(495。149) 一 (575 。 15 の) 、FSET 。 の 。BF : FUKESH5C2 、 4HB の 
: FURI= ロ TU2 の の: NEXT: BHTU6g 

7 の IF エニ (SHB1 ) THENSOUINDB 。 ウ : SDUND9 。 り : SDUND19 . り : SYNM 
EOL (1 さら 6。1 の 9) 、"GaME VER" =PEEE(&H6FFD) *1 の 


コー っ ょ 
レイ ピピ 












] 
1 CULOR7Z 9: MIDTH4 ウ 。 ミ の : LOCATE1 さ 。 さ : FRTINT "xxFLAY [ の: コ = ニ FEEK (SH6FFE ) : ゴ ニ J*4: エニ エ +J LHCATE さ 1 、14: CODLDRS 
1 上がり | 
ノ テ ィ シ リス | 
ウツ テウ キー デ " フ 昌 


:FRINTUSING " 提 神 提 幸 井 m"s TsEHLUR7= FURJ= ニ TU79 の の NEXTEL 
SE18g 

1 の IFI:Q THEN ビ =B: H ニ = 内 1 : ビ 三 己 可 = 日 本 人 R 和 ま BUSUE17 の s 谷 
和 $= ニ IT 和 ま : GUTO14 の 

11 の IFI:B THENC ニ BE: ピ ニ 1 : じ ま ー ニ ER : GUSUE 1 7 の H ま = ニ T ま = GUTD1 
4 の 

12 の IFI>C THEN ビ =1 = GUSUE 1 7 の: じ ま = ニ 1 まま =: GUTO14 の 

1 さ 3 の GUT049 


14 ウ CULUR2 LHCRTE24 。 さ : PRINTUS ING " 揚 提 電視 若 m" ェ AsLOUCRT 


E2 ミ 。4:FRINTUSING"%& 2 4 ト 】 

15g LUCRTE24 5:FRINTUS TNG " 章 章 電電 韻 m" EsLUCATE2 ス 。6』 ピ 
RINTUSING"& 20 

169 LUCATE コ 4 。7=PRINTUSING " 章 提 埋 提 提 ms じ sLUCATE2 マ 。 日 :F 
RINTUSING"%& &" ュ じ ビ ま : FURY= ニ 4BTUBBSTEF2 の * 








LINE ( さ 5 の 。Y ) (6 の 。 Y ) 、FSET 。2s NEXT: LTNE ( さ 51 。9 の ) 一 (69 


7 。119) 。PSET , の 。BF : COLLUR7 GBDTD49 


| 
| 
| 
| 
| 
| 
| 
| 


179 LUCATE22 1 の:gFRINT"TIN FUT your name"sLUEATE22 


・11:T ま =ーINEEY ま : INFUTI ま :RETURN 

18 ウ IFIX11THENCAR=T ェ エニ 1 1 一 1』 SUUND の 。 T* さ : SDUND1 。1:8 
UND6 ,&H1F : SDUND7 。: SHUNDB 。 &&H1 の 9 SUUND 1 1 。 TX15+15* 
SUUND12 。9: SDUND1 ミ 。 晶 

19 の TFT エ =12THENSUUND の 。 2 の 9: SHUND 1 。 の = SUUND6 。7』 SUUNDZ 
>9: SUUNDB , 15:FUR ユ = ロ TU2 の の gs NEXT : SHUND , 9: ユニ CAR s GUT 
0189g 


| 
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Iimh 人 4 


INDY-7 BASIC プ ログ ラム ・ リ スト 





2 の の IF1 エ =1 さ THENCAR=15: SDUND7 。7: SUUND6 ,%H1F : SDUND8 
>%&H1 の : SDUND 1 1 。1: SDUND12 69: SHUND1 さ 4 の : GHT0U7 の 

21 の IFI=14THENPLAY "15T1 の 9L さ 2"sFUR エ =1TD4:FLAY " ロ 5 
CDE " : FORJ= の TU の: ド = ニ PEE ド (SH6FFF ) : IF ドニ 1 さ THEN7gELSEN 
EX 本 : NEXT1 : ユニ CAR : ゴ ニ =PEEK ( &H5C の 2 ) : IFJ= ニ の THEN7 の ELSE 1 
8 の 

2 の BUTQZa 

3 ミウ の RESTURES4 の =FURX= ミ BTUD479STEF2 つ の: FURT エ = の ロ T ロ 15:RE 
ADAZ(1) :NEXTT:PUTG(X 。1 の ) 一 (X+15。25) 。QZ FPSET . 4: NEX 
TX:FURX= さ BTH4795TEF の : FUR ユ = ロ T ロ 15:RERDAZ(T) :NEXT 
IsFUT@(X 。1 ミ さ )ー(X+15.148) 。RZ、FSET 4:NEXTXERETURN 
2 っ 4 の DATA256 。 つ 王 6 。 づら 6 一 2 。 つ 品 6 。 6 日 、 昌 96 。 1 さ 44 。 ご ささ 6, さら 
2484 。- さ 25 の 6 。 日 1 76 。 6 。 2 らら 6 。 そら 

25 の DAQTAO の 。 ロ 14 41 の 4 。41 の 4 、41 の 4 41 の 4 .B1 ビ 4 、4104 。 和 4 
1 の 4 .41 の 4.41 の 4.41 の 4.81 ヨ 4 .41 の 4 .@ 

うら 6 の ウ DaQTAO 、 の 、 づ の 16 、 ご の 64 。 人 4 さら 。 4 己 6 日 7 の は 。 1 ら ワ の の 、 1 6 ら ワ 9 
。17412。17416.1844、1 ご ささ ら 6 .44 コ 9. の 








ミ 7 ウ DATA4 の ワム 6 。 ら 142 、 8 さ ご ロロ 。 1 6 さそ ヨ の 。 こら ロワ 。 ご 96 。 一 4960 。 
ー2 の 4S 1 の 941 の 。BB ミ 2 、946 日 日 44 日 9 の 日 1156 。 日 416 1 の 6 


5 
ぞ 


2Bg DaTA25o 、 コ 56 日 184 、41 の 4 、41 の 4 、B14 .4T の 4 、41 の 4 。81 
8B4 、4 の 96 4616 4 そら 6 、42 ロ 6 . 呈 696 、619 ミ 。- 晶 17 

9 の DaTR 。 16 さ ア 6 。 ヨ の の 日 . 日 ロロ の 。 B29 の 。 BZ の 。 1 と 
さ フ 6 。 の 9。 の , 2 の B の 4112 2 の の 16 ミ 7 日 の 

さき さ gg DATA256 、64 、 1 BB , 2 の 8 の 、411 つ 。B2 ウ の 12 さ 14 の. の, さ 
ラフ 69 。B 。 16 16 。 さ 2 。64 。B96 

さ 1 の DAQTAO の ご の 16 。2 の 64 、4 さ ら 6 の 。 日 4556 。 昌 79 、 1 69 の の 。 1 59 の 
、17412。17416。1 ヨ 449, 12 さ さら 6 。44B の 。 の 

ミ さ 2 の DATA2B672 ,5 の 8 4 1 の 2 の 。4 4 。- の 44 5 の 8 178 。 っ 5 
6 256 。 一 1792 。 一 さ の 464 、- さ 9462 179 。- さ の 466 

ささ の DATA4 の 96 。1 の 492 17412 。- ユ 2764 、 さ 1996。41g、41 の 9 。 
ー551.4 4112。4244 、21592 、2152 の 9 。21592 。4244 、7442 。- 日 144 





マシ ン 語 プロ グラ ム ・ リス ト ERBREE 

















+F_ Sum 


36 iD6 
DO_ giF4 
さ 36 』97 
ント 0 
3B is12 
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INien ん 
















ZD 5 EE 6 
88 品 | 
軌 引 6 


52 6 3 C5 44 BI 1F 





g 選 アゲ 
MO 中 
44 CC 
ED の 9 
11 
EE 
FE 
FC 
III 
@C 
F 史 
51 
C@ 
FF 
4C 7F 


97 4 さ 























FB 6 gE 96 
FS BE ea 4a 
サウ ア 1 りら 
=D 9gF 1 ら 
ES2 3 
5 CE 6 5 5 
人 96 19 
17 の 1 
?9 1 


EC EB 1 ら 8 





































1 中 后 キ 6 より 中 巨 泊 
16 F9 7 DC 2 ご 24 gD 
* 1C DD 1 ビ 1F の 3 9。 








= 2 C+ ED : 
1E EC 44 ED EbU 





2 DF 2 EC C4 
EL 43 ED の 2 E 






5BE F に コミ F Cg 
5EC@ 


















| 26 ロ B Ba の 5 3 さじ 97 =B ga 24 1 smpa 
IF Q7 ge E7? 3 OS5 6F ge 6F BB | | 5EEg 
9 7 AB 1 5g *1 4e 
3 の 6 2B っ pe @5 9 97 
32d 2A g2 Bo E QR 7 4 さ a7 
BB 5 さ 1 aB CB 5 9a 1 26 D5 


9 7 69 9596 2 1n 9B 2B 97 2B CC 
ED の > ED 4 ED 6 ED の 8 7 ga 4 19 
9」 ED の 32 ED の 4 ED 6 ED 8B ED の 35 
AB 1 る CC FF ED En ED 品 SE ED 
ED 42 n7 44 EZ っ ] 49 41 ED 
ED 4 ED 4 ち 5 ED 4 ミ 1 PB 








3 四 




















ZF FE ag1 7 99 
t1 キラ は ミス 上 引 + + ロ +9ー+ 全 TE + ビ +D +E +F Sum 
1 530 CB Sg 11 ミス E 9 の マテ 2 の 1 人 8 26 n1 DF さり > の ア 1 
se 





17 條 


金 $$ ぐ を 
どこ か の 国 の どこ か の 村 . 天気 も 良い の で ファ ー マ ー 
さん , 心 う き う き 胸 弾 ま せ て , 今日 も 元気 に 農作業 . 

手塩 に か けた バナ ナ に リン ゴ , プ ド ウ に メロ ン に トマ 
ト に エト セト ラ . 雨 土 御代 の お 上 恵み と 思い き や , 突然 


メロ ン が 化物 に … 
【 ス ムペ べ ム へ ム ム ム ム スム ススム ム 4 


4 aa 

ト 下 計 右 それ ぞ れ |gl2]4]I6| の キー を 使っ て ファ ー マ ー さ 
ん を 動か し て くだ さき さい. も し 進行 方 向 に 十 草 の 東 が あ れ ば 

( 苗 色 の 四角 ) それ も 同 方 向 に 動き ます . つま り , ファ ー 
マー さん が 十 草 を 押す 格好 に な る わけ で す . 

この 十 草 で メロ ン を つぶ せ ば 良い の で す が フ ルー ツ と 生 
曹 の 間 に メ ロン を 挟ん え で つぶ すこ と は で きま せん . 定 草 の 
中 に は ,。 ボー ナス ・ プ ロッ 4 を ます . これ を そろ 
える と 200 点 が プラ ス さ れ , フル ー ツ も その 種類 に 応 
点数 が 加え られ ます . た だ し , メロ ン が フル ー ツ を 食べ た 
場合 は マイ ナス と な り ま す . 

画面 中 。TNT と 午 か れ て いる の は ダイ ナマ イト の 点火 
スイ ッ チ な の で ,。 ファ ー マ ー さ ん は も ちろ ん の こと 。 メロ 


ン 送 に も 触 わ ら せ な いよ う 注 意 し て くだ さい . 



















メロ ン を すべ て つぶ せ ば 5000 点 プ ラス され , 面 ク リア と 
な り ま ず 。 じ し か し ょ プロ ジン)( に つが され で や 3 ラウ ほ らく する 


と 再び 現われ る の で , 全部 の メロ ン を 殺す に は 一 度 に す ば 
や く や ら な けれ ば な り ま せん . これ が この ゲー ム の 難し い 


と ころ で す 。 


バニ ッ ク 状 能 に 落ち 入ら ぬ よ う 慎 重 に そし て 


ジ だ つつ はじ で で だ きい 
プロ グラ ム に つい て 


プロ グラ ム は , FM- 7 用 K 言 語 で 書か れ て いま す (K が ね わ 
か ら な い 人 は FM- 8 活用 研究 を 参照 し て くだ きい ). 
デー タ 部 分 は $701Bー$78FF が キャ ラク タ ・ デ ー 
タ , $7900 一 $7A30 が 音楽 デー タ と な っ て いま す . また 
コン パイ ル 後 の オプ ジェ クト は $701 B で 終わ る よう に 作 
ソー ス の 改造 は し な い ほ う が よ いと 思い ま 
す . も っ と も デー タ 部 分 を アド レ ス の 低い ほう に 移せ ば , 


改造 も 可能 と な り ま す . コト テン シタ イム ・ ル レー チ ナン を 


計画 に , 





RI 
に 











っ て ある の で , 





【 て て る 4 天 コ 枯 ! 、 問 ご 、}(v 張 陸 ナ ルッ 2 









ーー 
ワ 


や ヾ の 





ジィ 
<2 ( 


0 
料 %7: 
トク ルリ (7 


ト て て る 仙 コ W, 、 証 <, 、! (っ 旨み ナラ 】 





の 関係 も あ - 
うと 思い ます 


> て , オプ ジェ クト が きわ め て 長く な っ 
この プロ グラ ム の 場合 , デー タ は すべ て 高 
中 か れ て いま す . 

コン パイ ル 後 は , $4D00 一 $7A30 を SAVEM し て < 
だ さき さい. スタ ー ト ・ ア ドレ ス は , いつ も 通り $5000 で す . 


アド レス に 


免 参考 文献 
FM- 8 活用 研究 
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バイ ラ 用 ソー ス ・ リス ト EE 


Y 











1 の "UTDT=$7999』 BBB=HTDT+$119 | 74@ "1F 1 の = さ THEN ZB[]』GOTO R さ 』FI 
29 "INITE] コ | 75@ *IF QBS(IO) =5 THEN Z9[]5FI 
さ O "SG=$ さ の 9 の 9』 P=QB+25O』 ロ =P+12P(O) =O ロ (9) = の sP(1)= | フ 769 IF To=- さ THEN Z9[]jFI 
ー さ 2 (1) = の 5P(2) = の ロ (2) =163P( さ ) = さ | フ 79 *R さ 』 IF E く 1THEN RETURN3ELSE BT R25FI 
2 Q( さ ) = の 5P(4) =95 ロ (4)=ー16 | 7B9 *Z さ IF RND(19) >7THEN IF Y>M(L) THEN MT(L)=2 
49 "PP=Q+12』D=PP+12』PP(O) = の 3 QR (の ) = の iPP(1)=ー15BQ ELSE MT(L)=45FTIGUTD R5ifi 
(1) =OIPP(2) = の 3 DD(2) =17』PP ( さ ) =13 ロ | 799 "IF RND(19) く 4THEN IF X>U(L) THEN MT(L)= さ ELB 
Q ( さ ) = の 3 PP (4 ) = の 』 DR(4) ニー175HSC=Oi BC= E MT(L)=1jFTIBOTO R5if ュ 
5 の "STTIMIDE]iLUCF さ 5。 4』7]3PRINT "Hi gh" ま LUCE さ 5。5。 さ Be9 *MT(L)=RND(4) 
]i PRINTHSCi LUCE さ 5。7。7]i PRINT "BCo B19 *R5s T=AS: MA(L)+PP (MT(L) ) +QR (MT(L) ) ) | 
re"sSCRE の ] B29 IF 1=4 THEN GTD BANsFI 
6 の ?LINE2。 1 さ 5。 1 。1。 さ 4。24。 1 B さ の "IF 1>5 THEN SCRE ( さ -1 ) *1 の 6]』 MUSE5]5 GUTU Z75F 
79 "LUCE5。 の 。 呈 ]5 PRINT" くく くく MELDN PANIC >>>>" 則 
B の O "FOR し L=5T ロ Bi Y=9 の + (し ー5 ロ ) *25 B49 "IF 1<>OTHEN MT(L)= の iFI 
99 "PUTL576。Y+4。599。Y+1 日 。591 。 695, し ] | BS59 *BOTD Z7 
199 "LOCL さ 6。 Y/+ さ 。 呈 ]』 ?( ヒ ー ク ) *19 の | B69 *Z43TF E=1THEN LINEEO』CX』CY。 CX+ さ の 』CY+14。2]# 
119 "NEXTiLUC[E さ 6。Y/ 日 + さ 。 呈 ]3 ?1 の の | ロ T ロ ENFr 
129 "FOUR し =1BTO216』 QB:L) = の NEXT B79 ”FUR し =1TO45 IF MA(L)=AD+Ex(PP(T) +QQ(T) ) THEN 
1 さ の "FOR し =9TO17』 ABsL) =13 NEXT BOTO Z12iFI5NEXT 
149 "FOUR し = の TO17』AB: ま CC+L ) =1 NEXT | BB9 *Z12』 1=AS: MA(L) +PP(T) +QQ(T) ) 
15 の "FOR し =OTO12j AB 17*L ) =1 』 NEXT B99 IF 1 エ =4 THEN BOTD BANjFI 
169 "FDR し = の OTD12』AS』 11+17*L)=1INEXT | 99@ "TIF T>5 THEN BOTO Z7』FI 
179 "FUR し =1TO65I X=RND( 12) +2』 Y=RND (9) +2 | 916 "IF IT<>@THEN SCRE199]jGOT ロ MDsFTjMT(L) =T 
189 "Ss X+17Y) =2 929 "ZZ7 ミ CU(L) =U(L) iCM(L) =W(L) 
199 "LINEL6, X# さ 2。YX16。 XX さ 2+3 の 。Yk16+14,2]5NEXT | 939 ”U(L) =U(L)+P(MT(L) ) iM(L) =M(L) +Q(NT(L) ) 
2 の の " X=RND (9) +55 Y=RND (7) +4 949 "LINEEO』CU(L) 。 CM(L) 。 CU(L) + さ 9』 CM (L) +14。2] 
21 の ” X1=Xx さ 2+165 Y1=Yx16+ 日 959 PUTEU(L) 。M(L) 。U(L)+14。M(L)+14。U(L)+1 き 』U(L)+ 
229 "PUTEX さ 2』Y16。 X* さ 2+14。Y16+14。X* さ 2+15。 X* さ 2+ | 29。 昌 
29, 41 96@ SsMA(L) ) = の 
| 





239 "LINE[6。(Xー1 ) * さ 2。Y#16。(Xー1 ) \ さ 2+ さ の 。Y※16+14。2] 979 "MaQ(L)=MQ(L) +PP (MT(L) ) +QGQ (MT (L) ) 

249 "LINE[6。』(X+1 ) *X さ 2。YX16。(X+1 ) * さ 2+ さ の 。Y16+14。2] 989 "AaSzMQ(L) ) = さ 』 RETURN | 
25 の "LINEL6。X# さ 2。(Yー1 ) *16。 XX さ 2+ さ の 。(Yー1 ) *16+14。2] 999 “MDiLINEE の 。U(L) 。M(L) 。U(L)+ さ 9。M(L)+15。215IF T 
26 の 9 "LINE[6。X* さ 2。(Y+1 ) *16。 X% さ 2+ さ の 。(Y+1 ) #16+14。2] 1 く 2THEN T ゴ =9』ELSE T ゴ =115FI 

27 の 9 ' ASi X+17 テ XY) =4 1 の 69 の 9 "PUTEU(L) 。MM(L) 。U(L) 14。MM(L)+14。U(L)+15。U(L) 





2B の ' AS』Xー1+17Y)=2』 ASs X+17x(Y-1 ) ) =2 | +29。TJ] 

290 ' AS X+1+1 ブ 7Y)=23 Ss X+17X(Y+1 ) ) =2 | 1 の 91 の "PUTEU(L) 。M(L) 』U(L)+14』MW(L)+14。U(L)+15。U(L) 

3@9 ?FDR し =1TO さ +29。 

さ 19 "ZZ X=RND(12)+ さ 』 Y=RND (7) +4 1929 “LINEL の ②。U(L) 。M(L) 。U(L)+ さ の 。 MM(L) 155。2] 

329 ' IF SsX+17xy)=5 THEN GOTO ZZ』FI 1@ さ の "PUTEU(L) 』M(L) 。U(L)+14』M(L)+14』。U(L)+15。U(L) 

ささ 9 ' Si X+17xY) = +29。 TJ+1 1] 

さ 49 QA=X さ 25BmYk163R1[]5NEXT | 1949 "PSG[ 1 。1 の 13 MUSE 11 

さ 59 'U=$ さ 3 の の 』 =U+253 CUmM+25』 CmCU+255 MT=CM+255MF 1o5o *AS:kMA(L) )= の OMF(L) =295RETURN 

=MT+25』 MQ=MF+25』 E44= の 1@6 の 9 ”Z115U(L)=(RND(1 の 6) +2) * さ 28M(L) =(rnd (9) +2) 16 

369 *FOR 上 =1TQ45 NMF(L) =1 MA(L) =U(L) / さ 2+M(L) /16*173CM(L) = 

さ 79 "Z11[]INEXT WM(L) 5』 CU(L) =U(L) 

さ 9 の " X= さ 23 Y=165 CX=XICY=YiT=O5 AD=1 昌 』T1= の 1@7 の "Im=AS』MA(L) ) 』 IF 1<> の THEN BOTO Z115FI 

499 !Z15 | 1689 "AS』MA(L) ) = さ 

41 の 6 "PSGE12。1]!PSGE6。 1 ]3 PSB1EBBB:E44) ,BBBE44+1) 19 の >PUTEU(L) 』M(L) 。U(L)+14,W(L)+14。U(L)+15。U(L) 

。 名 F 日 ]』 44=E ビ 44+25 IF BBBE44)=255 +29。]』 RETURN 

THEN E44= の 5FI 119 の 6 "ZZ1 さ E] 

429 "INKE ]』 IF KY=52THEN =1』T1=OjFI | 111 の 6 "LINE[6, 人 QB, 人 Q+ さ の 。 B+14。215 RETURN 

439 "IF KY=54THEN T= さ 』T1=15FI | 112 の ?Z95Z1 さ [ コ 

44 の 9 "IF KY=5OTHEN =25T1= く 5F エ 113 の 6 ”R1ILINE[ 1 。Q。B。 人 Q+ さ の 。 B+14。2] 

45 の "IF KY=56THEN T=4jT1=2 ョ FI 114 の 9 "LINEL6。 人 Q。B。 A+ さ の 。 B+14。 の ] 

46 の "EE= の 』 AC=O』 11= の 』 2Z2[] 115 の "LINE[6。Q+ さ の 。 B。 人 QB+14。 の ] 

479 "AD=AD+PP(T) +QQ(T) 116 の "LINE[2。AQ。B。 人 + さ の 。 B+14。1] 

48 の 9 " X=X+P(T) 5 Y=Y+R(T) 117 の *RETURN 

49 の 6 "LINEL の 』CX』C ビ Y。 ビ X+ さ の 』CY+14。 2] 118 の *Z19』IF ASAC〉 く >5THEN RETURNIFI 

59 の 6 "CX=X3CY=Y 1199 *1F SiAC-1) く >5THEN BOT RZ』FI 

519 "PUTEX』Y。X+14。Y+14。X+15。 X+29。 本 1] 129 の "TIF ASiAC-2) =5THEN GOTD EN13FI 

52 の 9 "G1= の OiFUR し =1TO4 121 の "IF BAC+1 ) =5THEN BUTD EN1jF1 

3 の "IF MF(L) >1THEN MF(L)=MF(L) 11F MF(L)=1THEN 122 の *RETURN 

Z11[]!G1mB1-18FT3B1=B1+18BUTO N 」 123 の "R73 IF SAC-17) く >5THEN BOTO RB5FI 

FT5Z さ [ コ | 124 の "IF QBiAC- さ 4) =5 THEN BUTO EN1sFI 

54 の "IF X=U(L)THEN IF Y=W(L〉)THEN BUTD ENjFI5FI 125 の "IF ASsAC+17)=5 THEN GUTOD EN1』FI 

55 の *NiNEXT | 126 の *RETURN | 
| 5e の 6 "IF G1=4 THEN BUTO EN23FI | 1279 "RB IF AS:AC+1) く >5THEN GOTO R9』FI 

7 の "IF RND( さ 9) =1 THEN FRE]jFI | 12BO IF QS:AC+2) = THEN BOTU EN1』FI | 

SB の * ABSz AD ) = の | 129 の "RETURN 

59 の "IF QAC く <> の THEN Z16F]iFI 13 の の *R93TF AS:AC+17) く >5THEN RETURN5FI 

69 の "GOT ロ Z1 1 さ 19 "IF ASsAQC+ さ 4) =5 THEN BHT EN13FI 
| 61 の "Z2』E=E+1 1 さ 2 の "RETURN 

62 の * 1=QS:s QD+Ex(PP(T) +QG(T) ) ) 1 さ 3 の ”Z1 さ 』PSG1[5 の , の 。 DC]』 人 =X+P(T) * (E+1 ) # B=Y+R(T) 

63@ "IF エ =1THEN T= の RETURNjFI (E+1 ) # RETURN 

64 の 9 "IF TI= の THEN BOTU R25FI 13 さ 4 の "FRjPSB1[7 の 。 1 の 。 $F15 FX=RND(14)+1』FY=RND(1 の 

65O ”IF 1=STHEN Z4[]』BOTO R2jFI ) +1 

66 の 6 "IF 1I=4THEN BOTO BANjFT 135@ "IF AS:FX+FYx17) く > の THEN RETURN5FI 

679 "IF IT=5THEN QAC=AD+ (E+1)*(PP(T) +QGQ(T) ) ぉ FE 1 さ 6 の 6 "IF RND(4) = の THEN F1=75BOUTD FsFI | 

689 "IF I>5THEN IF E=1THEN SCRE (エー く ) x*1 の 6 の 1 MUSE21 1 さ 79 "IF RND(4)=1THEN F1=64GDTOD FSiFI 

5FT3ASsQD+E* (PP(T)+QQ(T) ) ) =93 BOT 、 138 の * F1=5 

0 R25FI | 139 の 9 ”FS』QSsFX+FY17)=F1+1 

69@6 "BHT Z2 14 の 9 "FX=FXX さ 2』FY= ニ FY16 

7 の 9 ”R2』 1=QS: AD+(Eー1 ) x (PP(T) +QQ(T) ) ) 5 AB』 QD+E ォ (PP 141 の "PUTFFX。FY。FX+14。FY+14。FX+15。FX+29。F1 コ 

(T) +QQ(T) ) ) = 142 の "RETURN 

7 フ 1 の "1 の =11 一 1 1T1= ニ Ti ビニ ピー1 143 の "SCR3 SC=SC+X1』LUCF さ 5。B。4]』 BC 

72@ "IF To= の THEN BOTD RS』FI 144@ " IF SC>HSC THEN HSC=SCLUCL さ 。, さ ]』 ?HSCIFT 

73 の "IF QBS(T の )=2 THEN ZBF]3GOTO R さ 』FI 5RETURN 
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1459 ”EN1iNHUSEB]』 SCRL2999]』 FOUR し =18TO216』 IF AS:L 
) =5THEN AS:L)=2sFIsNEXTiRETURN 

1469 "EN2sFHR し =1TU5O9』PSG1[59。 9,*$F コ ]』 SCR[ 1 の ]』 PS 
B1[9。,9。$FB1INEXTINUSE フ 7]』 BUTO STT 


1479 "ENIMUSE6] 

1489 ENE』MUS[9]』 REPEATI ITNKE ]i IF KY=*E*' THEN ENDF 
TiUNTIL KY='S' 』 SE=9iGDTD STT 

1499 "SBYiHLTE ]: ADDR=$FCB23 CPUKE ADDR ,*19,%1.9,9 
1 1 。 ん 2 失 。 多 さ 共 。 1 。 43 SUB[ ] 3 RETURN 

1599 "SYMiHLTL ]』 ADDR=$FCB23 CPUKE ADDR ,*$19。%1。9。 
の 』 ん 2。 ん さ 。 ん 4 昔 。 錠 昌 日 。 メ アブ ュ ん 日 。 9。 ん 19。 ん 

11 12。%1 さ 。 ん 143 SUBF ]』 RETURN 

15819 "MIDIHLT[ ]i ADDR= 多 FCB2s CPDKE DDR 。*1.9。4 の 。2 
5, 9, 25, 9 の 。 1 。 93 SUB[ ]』 RETURN 

1529 "LUCIHLT[ ]i ADDR= 和 FCB2s CPUKE DDR , まさ 。5。$12。 
1 。 ん 2。 ま 11 。% さ ISUE[ ]s RETURN 

15 さ 9 LINIHLTE ]i ADDR=FCB2 CPUKE ADDR, も 29 1 。 2。 

3 提 4 提 。 ん 昌 祝 。 多 6 昔 。 7 SUB[ ] 3 RETURN 

1549 'HLTICUDE $B6。*$FD, ロ 。 あ 2B。 日 。 日 6 日 の 祝 。 $B フ 。 も FD 。 
5, Bo , ま FD 。 王 。 あつ 。 FE 。 まさ の 

155 の * SUBiCDDE * ま 7F。$FD, 量 $ さ り 

1569 "LINE3HLT[ ]』 ADDR=$FCB2 CPUKE ADDR, ま 15 ん 1 。9。 
2 二 ん さ 。 4 蘭 。 量 幕 。 65 SUB[ ] 3 RETURN 

1579 " INKiHLT[ ]』 DDR=*FCB2 CPUKE ADDR。*$29,9ISUBL 
13HLT[ ]:KY=PEEK ( ま FCB さ ) 』 PUKE *FCB 

2, まさ Fi SUB[ ]』 RETURN 

15BO "PUT』Q1=* フ 91H+175 ォ フミ HLTL ] 』 DDR=$FCB2I CPUDKE 
ADDR, 1E。 ん 1 昔 。 ん 2 持 。 さ 壮 。 ん 4 祝 。 の 。 の 。 日 

5FUR No=GTUB7i ADDR: NG ) = 人 1 : NG) i NEXTI SUB[ ]i RETURN 
1599 "HLTE ]』 ADDR=$FCB23 CPUKE DDR,1E。 社 。 2 韻 。 多 ら 

昔 。 4, の 。②。 昌 7iFUR nO=BBTO175』 ADDR 

: NG-BB) =1 :n9) 』 NEXTI SUB[ ]』 RETURN 

169 の "BANI TNIT[ ]』 PSBL[ 1 ,$1F]iPSG[ 12。$69]』 PSG1E9。 の 
DC]iLTINEL9。CX』 CEY。 CX+ さ 9。 ビ Y+14。2 

] 

1619 "PUTEX』Y。 X+14』Y+14。 X+1。 X+29。 丁 1 コ 

1629 "FUR J1=@TD さ の i BAX1=X1+J1*4: BAX2=X1-J1 4 BAX 


さ =X1+J1x2』BAX4=X1-J1*2 

16 さ の BAY1=Y1+J1x23BAY2=Y1 1*25 BAY さ =Y1+J1』 BAY4= 
Y1-J1』FD=RND(299) +19 の 9』 BC=RND (5) 

1649 "BYE7。BAX1。y1。FD]』 BY[4。BAX2。Y1,FD]iBYE コ 。 X1。 
BAY1。FD]iSYL2。X1。BAY2。FD]iSY[ さ 。B 

RX さ 。 BAY さ 。FD]』 BYL2。 BAX4。 BAY4。FD]i BY[ さ 。 BAX さ 。 BAY4。F 
D]』SYL2。 BAX4。 BAY さ 。FD] 

165@ ”SYLBC。BAX1。y1。FD]iSYLBC+2,BAX2,Y1 ,FD]iSYEB 
C+1 。X1。BAY1。FD]BYLBC。 X1。BAY2。FD 

]』 SYFBC, BAX さ , BAY さ 。 FD] 5 SYFBC。 BAX4。 BAY4,FD]』 SBYFBC+ 
1 , BAX さ 。 BAY4,FD]j BYLBC。 BAX4, BAY さ 。 

FD] 

1669 *NEXTi INITE]』GOTD ENE 

167@.* MUS』PSB[ 12。19] 

16BG *TF 1=1THENSND= の i』 MAT= さ 』F エ 

1699 ”TF 1=2THENSND= ま 293 MAT= さ ョ FI 

179@ * TF ん 1=4THENSND=$ さ の 』 MAT= さ 』F エ 

1719 "1F ん 1=5THENSND= ま 45 MAT= さ 』F1 

1729 "IF ん 1=6THENSND=$6 の 』 MQT=6』 PSGLE 1 。 さ ]』 pggE さ , 1 コ 
5FI 

17 さ 9 * 1TF ん 1=BTHENSBND=$7 の 』 MAT= 昌 FI 

1749 ”TF ん 1=9THENSND=$E の i MT= 昌 3F エ 

175G ITF ん 1=7THENSND=$99』 MAT=BFI 

1769 "SND1=SND+OTDT 

1779 "NBALSND1 。 MAI]』 TNITE]3RETURN 

17B@ * ロ NB SDUN=%1』 REPERT 

1799 "PSG1FSDUN』 1 ) , SDUN: 2) 。 $F 昌 ] 

1B99 *FUR LL1=1 TD SUUN:@) jFUR し LL=O TO X2x5OOiNE 
XTiNEXT5 SDUN=SDUN+ さ 

1B19 "UNTIL S ロ UN @) = の 』RETURN 

182 の INITIPSGL6,$1F]iPSG[7。$F 晶 ]5 PBB 日 名 1F]5PSBE 
9,$1F]』 PSB[ 1 の 」$1F]jPSB[ 12。19] 

18 さ 9 *FOR LL= の TO 5iPSGFLL,9]』 NEXTi RETURN 

1849 "PSG15PSB[7,% さ ]5 PSBEO』%1]』PSBL2。 215 PBBL 1 さ 。 
さ ]』 RETURN 

185G *PSGiPUKE$FDOE 。 ん 1jPDKE$FDOD , さ # PUKE*$FDOD, の 』P 
UKE*$FDoE , %23 PUKE$FDGD , 23 PDKE$FDO 

D, の RETURN 





還 昌 昌 昌 昌 間 ラン クダ 音楽 デー タダ ダン プ  ・ リス ト EE 








dd 。 +O +1 +2 + さ +4 +5 +6 + プ + 日 +9 +a +B +C +D +E +F 
7010 OO0 OO OO OO OO OO OO OO 00 00 00 4F FO 00 00 00 
7020 OO 00 00 00 00 00 QO OO 00 00 OO 0O 00 00 00 00 
703O OO OO OO OO OO QO0 0 さ FO 0O0 OO OO 7C QO 0QO0 00 0O 
7040 QO 00 0O 00 00 00 00 00 02 00 00 
7050 OO OO OO 0O3 FO 0O0 00 QO 00 00 
706O 3 さ E OO 7F FF FB QOS EO 1F CO SF 
7070 03 FO OQ OO OO OO0 OO さ 3F B1 FC 
70BO OF FO OO OO 00 00 OO 00 00 06 
7090 1F 日 1 FF FC さ F 1 FC OO e0 00 
7ORO_ F9 FF FF E7 FF CF C6 O1 BC 03 
70BO OO さ F 1 FC QO 60 OO OO 00 00 
70CO E7 FF CF C6 0O1 BC 0O3 さ 38 7E OO _Q 
70DO 1F BQ QOC OO 7E QS FF 1F EO 00 
70EO 60 CO C1 B1 日 S F さ FB OS3 F1 FF 
7OFO QO QO QO OO 00 QO FF FF FE 7C 











人 dd +O 〇 1、 + つ + る +4 +55 +6 + フ + 日 + オ 9 + 人 Q + 日 + ビ +D +E +F Sum 
7200 0QO_FB O9 FC 17 FF E3 FO Q1 O QO FF 1 FF 3 8BQ :29 
7210 O4 OO OB OO 10 CO 27 EQ DF C1 BF FE 7C OO FB 09 sBD 
220 FC 17 FF E3 FO O1 8B0 00O _QO Q1 FB 1a OO 3C Q00 70 
72 さ O 00 DF 1 AO _ 03 40 OO OO OO OO OO QO QoO OO 0O90 0QO 
7240 00 OO OO OO OO0 OO F1 FF E2 OF C4 Q7 0 OF 1F FE 
7250 20 FC 40 7 OO QO OO QO OO QQ O0 OO _QQO _QO 00 QQO 
726Q0 OO _QO _QO F1 FF E2 OF C4 Oo7 BQ QF さ F FE 60 FC CO 
7270 79 00 O2 OO 04 OO 0 OO 10 OO E3 FF CZ FF FC CO 
7280 0O OO _QO QOS 1 7 CF QZ7 FE OF 3C 1 60 00 OO_ 00 
7290 00 0O OO QO QO QO QQO QQO OO QQ QQ_ 00 QO OO 18 0Q 
72A0 3 さ Q0 Q1 EQ QF FO 7F EQO SF CO 66 OO_QC QO 18 Q0 30 
72BO OO OO OO QO QQO _QO QO QO OO QQO OO _QO QO OO Q01 8O 
72CO OF OB 7E 10 3C 20 6O 40 0O Q 01 QO _O2 QO Q4 0Q0 
72DO QE OO 1F FE さ F FC QO Q3 FE Q7 FC QO QB OO 10 0O 
2EO. さ EEO。。ZE。 に に た に に EEF 、 EF 1 FE CE フラ ア 。9E。 プ ブヒ 。 ヒ EE、E ヒ 


ロロ QmND ヒ や 0 ロロ お 
ppDm ご ーmOD 加 お ょ EmQO 








72FQ 










フミ BO OO Q1 FF FE 7F CO OO 3 日 7F FO QQO_00 
フス CO OO OO QO OO QQO 0O QO 00 QQ 00 QQ 0Q 
フミ DO FE 7F CO OO 3 7F FO QQO _QQO QO0 40 00 
フ 73EO 07 EO QQO OO QQ OQ OO QO 01 80 03 80 
QO 1F 





Sum: BO D4 8B6 11 75 72 2 7D 44 a4 AE 40 Q4 E1 FF 5S :B6 


Add +O 1 + つ キス +4 +5 + ら 6 + フ + 昌 +9 +Q +B + ビ +D +E +F 
フ 40O OO る E OO 3F O1 FF BF FF FF FF E7 DE さ F さ F F1 F4 
741O OF BoO 7C 1F CO OO OO QO 1F QQ OF FC 
742O さ F O1 FF BF FF FF FF EZ DE さ SF さ F F1 
74 さ O 1F CO OO QQO QQO QQ QQ QO OO QO_ 00 QO 
744Q0 CO O1 BO 03 OO _ OO OO _QO OO 0O0 QO_QO 
745O OO OO OO OO OO OO OO oO _QQO oO QO 20 
7460 O さ 7F EE1 FF FF FF FE FF F3 FF E1 FF 
7470 OO0 OO _QOO OO OO _QQO OO QO 20 00 CO Q1 
748QO OO QO OO OO OO _QO OF EQ _Q3 CO _QO QQO 
7490 OO FO Q6 OO OB OO OO _QO OO OO 09 QO 
74AO OO OO OO OO0 OO OO OO QO OO OO Oo9 QO 
74BO OO OB OO OO OO QO1 FO QOS3 F O7 F1 FF 
74CO OF FO 1F CO 3C OO OO OO OO 18 QO FO 
74DO OO OO OO OO QQO 0O OO _QO OO 0Q0 QQ 0O 
74EO OO OO OO _QO QQ FE OO QC OO 7 07 aQO 
74FO _O3 FF OF 3 O6 03 EO OC 6O OF 10 00 





DE 7 


dd +O 1 + キ 2 ー+ さ +4 + 品 +6 + プ + 日 19 + +B + ビ +D +E +F GSum 
75OO 70 OO FE QO OC QO 78 OZ7 aO さ F 40 7C 4E Q3 FF OF :F3 





753O OO0 OO OO OO OO OO OO QO _QO OO QO BC FC QO QQO_QS giBB 
754O OO O7 EO 0O7 FB 1 さ BE さ C さ F 18 FE C4 7 1E QOO FE 20 
755O O4 FB OF BO 1F OO 3 OO OO FC OO _QOO QOS QQO _Q7 EO iCB 
756O OZ FB 13 BE 3C 3F 1B FE C4 78 1E OO FE QO4 FB OF iz94 
757O_ ヨ O 1F QO 3 OO OO FC OO OO OO OO OO QO OO _ 00 OO giD さ 


75BO QO OO QO OO OO OO OO OO OOQ 00 00 00 00 009 00 00 s00 
7590 OO OO QO OO 40 O1 CO OO OO OO0 OO FE 03 BE QOS FB :BB 











キャ ラク タ & 音 楽 デ ー タ ダン プ ・ リ スト 





75AO OO OO QQ QO OO 00 OO QQ OO0 00 QO QO QO 1F FC OO :1BE 
75EBO_ 00 40 01 CO OO QO OO QO FE 0 さ FE 03 F ヨ 00 _QO_ 07 :iO2 
75CO FE 0O1 FC OO QB QQ0 QQ 00 Q0 QQO 1F FC QQ OO QO Q0QO siE 
75DO _QOC 07 FB FF F3 FF FF BF FF FF FF FF 7 品 OO 7E 00 :7C 
75EO 1F FO 1E 3O 3C QO F 1F FC OO CO O4 QO 1C QQO QQ szBC 
75FO 00 OO QO FE O3 BE 03 F 晶 OO OO0 00 QO OO QO 0 QQ BA 


dd +O +1 +2 + さ +4 + 品 +6 + プ + 日 +19 +Q +B +C +D +E +F Sum 
760O 0Q QO QQO OO QO 0O1 FF OO 04 00 1C QO OO QO 00 QO 20 
761O FE O さ FE QS FB 0Q0 00 FF C1 FE Q2 QQO QO 00 0OO QO BA 
7620 00 OO _O1 FF OO OO O1 O 03 FC 07 FF BF FF 5F BF :42 
763O_FF FF FF FF QO 3C O1 F1 FF O6 3C OO 7 00 F ヨ 01 :DC 
7640 FF OO OO QO OO 00 OO BO 02 BO Q4 O 09 QO 14 QO ia2 
7650 10 OO QO QO OO 00 0O0 OO0 00 00 OO OO OO FC OC OO :18 
7660 00 QO 00 00 0 03 8O 07 BO OF OO 1C OO 1O OO Q2 CZ 
767O 0O 1C QO 18 QO 10 OO0 00 OO 00 FC OC OO 0OC 00 FC 54 
76BO 03 FB OE FO さ C EO 79 CO F7 1 FF 0O さ FC Q3 EO OS saA 
7690 EO_ 03 EO 03 60 06 40 FC OC ES OO QO QO QO 40 O1 s9 
76QO 40 O4. BO 0O9 OO Oa OO OB 0O0 OO OO0 OO 00 QO 00 00 iDF 
76BO OO OO OO QO 07 EO OO OO OO OO OO 40 O1 CO 07 0 seF 





Add + さ +4 +5 +6 + フ 7 + 日 +9 +Q +H +C +D +E +F Sum 
77oo QO OO 0Q さ O OO CO Q さ QO 4C 01 EQ 60 0Q szBO 
7710 OO 0O OO QO 20 QO 4Q OO FE OO QQ QO QO =:a6 
772o さ O OO CO Q3 QO 4C O1 EO OO 02 QO Q4 QO =:26 
773o QO 60 OO BQ QS BO 07 QoO Q6 OO QC OO QB :BC 
7740 20 OO 40 O1 EO OC OO QC OO 60 03 OO OO CC 





7750 OB OO QO OO 20 0O OO さ F 0QO QO QO 00 OO QO 06 OO si6D 


7760 OO OO QB QO 10 ziD9 
7770 06 OO 06 10 0Q6 =:B1 
778Q0 に QO OB QO 38 OO siOBH 
7790 10 OO 3O QQO QO sgFF 
77QO 1C 20 OO 00 00 giEC 
77EO OO OO QO_O0 0Q iQ 
77CO 00 0 さ FE QO QO zi90 





77DO_QO_ 07 FC 0O QO 00 00 00 QQ QQ QQ QO QO QQ QQ QQ iQ さ 
77EO_ 00 00 3F E7 1F FC 3F FF FF 7C QO 1F FC FB 0o7 FC si10 
77FO_QO OO 0O 00 00O QO 0QO C1 OO 0O QQ _QO OO QZ QQ 07 iCF 


Sum: E6 4D 49 EB 5C 19 7 QO DE 92 19 An1 BA 2A B9 21 :O6 











Add  +O 寺 1 +2 + さ +4 + コ + す 6 +7 + 日 +9 +a +B +C +D +E +F Sum 
7800 F ヨ 07 C6 QO1 OF OO QO OO OO 0O OO 0OO OO 1F FO 0O siE4 
7B10 OO QO OO OO QQ QO OO QO OO 00 07 OQ9 Q07 FB 07 FE sOQB 
フ 7B2O O1 FF OO OO FF EO QO OO OO 00 1F FO OO QQ OQ _OQ siEE 
7B さ O OO OO OO QQO OO QO OO QO OO QF FB 1F CZ7 SF OF FF si さ Sa 
7B40 FF OO 1D FF EO 03 EQO 1F FO QO QO QQO QQO QQ _QQ 6 si4D 
7850 OE 6Q0 1C 78B OO QO QO OO QO 14 QO QQO QQO _QQ QO 00 si16 


78B0 OO 10 03 EO Q4 QO F 昌 01 EQ 0O OO QO OO _QO OOQ_ OO iDO 
7B90 OO O7 EQO 77 FF FF BO OO 07 CO OO _QQO QQO_QO 0Q0 00 si 人 3 


人 Add  +O +1 + つ + さ +4 + +6 + フ プ + 日 +9 + 人 Q +B +C +D +E +F Sum 
フ 7900 O2 E7 B7 QO2 74 59 Q2 EZ7 B7 02 74 59 02 EZ7 B7 0Q2 sBQ0 
フ 910 74 59 OO QO QO QO QOQ QO 0O0 QQ 0QO OO 00 QO 0O 00 iCD 
7920 Q1 74 00 01 99 OO O1 B フ 7 QO O1 E7 QO OO _QO_QoQ _QQ saF 
79 さ 0 O2 E7 BEB7 02 74 59 02 EZ7 B7 02 274 59 Q2 EZ7 B7 Q2 siBO 
7940 74 59 QO QO QQ Q2 74 Q0 02 70 00 Q2 74 QQO 02 70 iD 
7950 OO O2 74 OO 02 70 OO 02 74 OO QO OO QQO_QO OO 0QO_sSE 
7960 Q2 74 74 Q2 79 79 Q2 O 0 02 BB コ ヨ 0Q QO 0O QO giF2 
7970 02 E7 E7 O2 EZ7 74 O2 74 99 02 B7 99 Q2 EZ7 E7 02 si60 
79O EZ 74 O2 74 99 02 B7 99 00 OO 00 OO QO 00 0QO 0O siBC 
7990 OB 99 B7 0O6 BZ EZ7 02 AaC CD O8 99 BZ 08 EZ7 E7 Q2 iRaZ 
79AO CD FO O2 BZ EZ7 O2 aC CD Q2 99 BZ 04 AC CD 04 B7 ie62 
79BO EZ 10 CD FO Q2 B7 EZ7 O2 AC CD Q2 99 B7 02 AaC  :5Z 
79CO O4 99 7 QO4 99 B7 QB 74 99 08 99 B7 04 aC CD Q4 gi96 
79DO BZ EZ7 Q6 CD FO QO2 EZ7 EZ7 10 EZ7 E7 OO OO QO 0O O0 siOF 
7?EO Q6 BZ EZ7 0O2 aC CD OB 99 B7 06 CD FO 02 B7 E7 OB siE2 
79FO _AC CD O4 BZ7 EZ O4 B7 E フ 7 0O2 CD FO O2 B7 E7 02 AC iCA 





FM-7/11 代 コ ン パ イラ 用 三角 関数 サブ ルー チン 


KK コン パイ ラ 用 に SIN, COS 関 数 を 作っ て み ま し た . 
@⑱ ステ ー ト メン ト の 文法 
*SIN [角度 〕 
*COS [角度 〕 
ms リリ スト ] 三角 関 政 サ プ ル ーー チン EEE 





" (* ドーTRRGBUNUMETRICRL FUNCTIHN SUB-ROUTINE 


) CHS』 THET=99ー ス 1 1 BHTO QLFHA 
YSINi THET=X1 
* aLFHAi THETA=MUDFTHETA。 さ 69]』 IF THETAX9 THEN 
THETA= THET T 
1949 "FPSBT=THETA IF FSI:27 の 9 THEN FSIT= さ 69-FPST is BHTQ 
EETAiFI 
1959 "IF FSI ジ 1 ヨ B9 THEN FPST=PS エ 1 ヨ 89s GOTO BETRsFI 
1969 "ITF PSI:9G THEN FS エ =18 ウ ーPSTFI 
1979 BETAsFHI=FUCNEFST]i IF THETA1 ヨ 9 THEN FHI=ー 
FHIiFI 
* DNY=FHI iRETURN 
FUCN* CUDE まさ 9⑨ も BD 。 も OO 。 も の 。 ま E ビ 。 ま ら で 。 ま E ら 。 も BE 。 


1199 SBODE の 。 2。 さ 。 コ 。 ブ 9。19。12。14。17。17。19。21 。2 さ 。2 

4 ょ そら 。 s2 ワ 。 さ 1 。 34 36 さ 7。 さ 9。41 42。44。 45。47。 4 
9'52! 5s)54.56' 57, 58. ら 69。 62。 6 さ 。 ら 64 。 66。 67。68。69。71 。 ア 

2、7 さ 。74。75。77。 7 日 。79。Bo。B1 、B2。 日 ミ 、B4 5。B6、B7 、 ヨ 7 

B,B9, 9 の 。91 ,91 92。9 さ 。9 さ 

111@ "CHDE 94.95。95,。96。96。97。97。97。 9 日 。 9 日 。 9 日 99。9 

9.99。99。.199。19 。199。199。199 

1129 "MODiDMY= ニ 1 一 ん 1/X2xZSNRETURN 








較 渡 辺 誠太郎 


機能 : 与 と られ た 角度 の SIN 関 数 、 COS 関 数 を 得る . F-BASIC と 
異な り , 角度 に は ラジ アン で は な く 度 を 用 いる . 得 ら れ た 関数 は 。 
本 来 の 値 0 一 1 の 100 倍 ( 0 一 100) に な っ て いる . し た が っ て , 
メイ ン ・ プ ログ ラム 側 で リス ケー ル す る こと . 
例 : A= ニ SIN 〔60〕 

B=COS 〔 一 750〕 


2 参考 文献 


1) “拡張 コン パイ ラ ” FM-8 活 用 研究 社 
2) KK ュ OS ラ 用 グラ ラフ ィ ッ ク ・ サ プ ル ー チ ン * FM-7/8 活 用 研 
究 , 


の ・ 正 毅 ・ 余弦 表 * 応用 数 字 。 日 本 午 院 


Em |) スト の デモ ・ プ ログ ラ /、 ERR 








19 "CCLSL9。7。91 

29 "FOR L=9 TO 紀 

さき の * FOR TO さ 6@ STEF 2 

49 Y=199ーBOX5GINLR+69xL]/199 

S@ “* FSETER+199。Y。7] 

69 『 NEXT 

79 "NEXT 

Bg *END 

99 "CLSiHLTE]: CFOURE QRDDR。 ま 92。 ん 1 ん さ 。 42 SUEB[ ]* RETU 
RN 

199 "FPSETiHLT[ ]3 CPUKE ADDR。 ま 17。 1 。 ん 1 揚 。 ん 2 揚 。 ん さ ょ の 58U 
EE]i RETURN 

119 "HLTiCOUDE まま Bo。 ま FD9 ロ も RF 時 iFPUKE まま FDG5。 ま 9 
DE Eo6。 ま FDG 韻 。 ま FE DDR= ま FCB2iRETURN 

129 "SUEIFOUREE ま FDG5。9iRETURN 
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る FM- フ 


_ 交 症 数 大 .。 ウタ ウタ し レ て る と 練 店 歴 誠 


将棋 






$|$1$|1$1$1$1$1$1$1$1$1$1$1$1$1$1$1 ぐ 1$1$1$1$141$ 
詰将棋 ゲー ム は 以前 ,。 ベス ト セ ラー に な っ た こと も ある 
ほど で , 思考 型 ゲ ー ム の 中 で は 麻雀 の 次 に 人 気 の あ る も の 
で す . し か し , 市 販 さ れ て いる 詰将棋 ソフ ト で は , 問題 数 
が 少な すぎ て , さっ ぱり 楽し め な か っ た 方 が 多い と 思い ま 
まず: 
今回 , 問題 数 , 機能 , 美 し さ の 点 で も 数 段 上 まわ る (と 


私 は 思う ) も の を 作り まし た の で , 発表 し た いと 思い ます . 


ROCK2K2K2K3K3K3 
> ニー ーー ペー ニー デー ニー ニー ニーー ーー ニー ーー ニ バ 8 ーー 
特 徴 

詰将棋 ゲー ム は , すでに 何 本 か 市 販 さ れ て いま す が , 大 
ISGS 
⑩⑯ プ ログ ラム に あら か じ め 問 題 が 内 蔵 ほ きれ て いて , コン ピ 
ュー タ が 問題 を 出し , 人 が それ を 解く も の . 
@ 誠 数 に よっ て 自動 的 に 問題 を 作っ て , 人 が それ を 解く も 
の . 
@⑥ 人 が 問題 を 出し て コン ピュ ー タ が 解い て くれ る も の . 
が あり ます . @ の レベ ル は まだ 高く な く , 内 容 的 に は 大 
変 興味 深い ちゃ ものの, まだ 使い 物 に な ら な い の で は と 思い ま 
す . や は り 楽 し め る も の と いえ ば , 倫 の タイ プ の プロ グラ 
ム に な り ま す . 
し か し な が ら , 失 の タイ プ の も の に も , 現時 点 の レベ ル 
で は , 2 つの 大 き な 欠 点 が あり ます . 
@ 問 題 数 が 少な す ぎ て 楽し め な い (20 問 以下 の も の が 多 
い ). 




















ウッ ノ こ の 手 も ダ メ か 











| 画 土 反 一 夫 





疑問 手 (つま り 間 違っ た 指し 手 ) に 対し て , 1 手 分 し か 
相手 を し て くれ な い の で , どこ で 間違え た か , すぐ に わ 
が っ つっ で し まう 。 
これ ら の 人 欠点 は , 詰 手順 の デー タ が 充分 に 圧縮 され て い 

な い だ た め に メモ リ 容 量 不 足 に な っ て し まう こと と , プログ 

ラム 曽 で の 工夫 が 足り な いこ と が 原因 で ある よう な 気 が し 

ます . 

⑬ 駒 が 動け な いよ うな 位置 を 間違え て 入力 し た り , 王手 に 
な っ て いな い 位置 に うっ か り 駒 を 動か し た 場合 で も , あ 
た か も 本 気 で 指し た よう に 扱わ れ て し まう . 
今回 制作 し た 詰将棋 プロ グラ ム は , これ ら の 欠点 を 克服 

する た だ た め に . 

⑯ プ ログ ラム で , 王手 チェ ッ ク や 動け る か どう が の チェ ッ 
ク を する . 

@ 詰 手順 の デー タ と し て , 動か す 駒 の 元 の 位置 を 省略 する 
こと に よっ て デー タ 量 を 減ら す . 

あま り 見 込み の な い 手 は 無駄 な み 手 と し て 登録 せ ず , デー 
タ の 爆発 的 増加 を 防ぐ 

@ そ の 代わ り , 疑問 手 で も 2 手 以上 相手 に な っ て 応じ る 手 
を 指す よう に する . 
この こと に より 問題 数 , な ん と 60 問 を 実現 し まし た (100 

問 まで 可能 ). ま た 表示 は 大 変 美 し く , この 点 で も 相当 レベ 


ル の も の で す . メッ セー ジ も 的 確 に 出す よう に し ,『 詰 み ま 
せん 』,『 正 解 で す 』 の ほか に 「『 動 か せま せん ょ ,『 成 れ ま せん 』, 
『 最 短 手順 で は あり ませ ん 』 を 場合 に 応じ て , 漢字 か な まじ 
り で 表示 し ます . 
特に 必要 で は な いか も 知れ ませ ん が , バッ ク ・ グ ラウ ン 
ド で 音楽 を 鳴ら し て , ゲー ム と し て の 楽し さき を 増す よう に 
や っ た ノノ これ で 詰まっ た 
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も し まじ だ 。 
も う ひと つ 私 が 狙っ た の は , 


詰将棋 ゲー ム の シス テム 化 
ア の 私 が 作る こと も 骨 の 折 
2 we 

、 デ ー タ 作成 コン パ 


で す . 60 問 の 詰 # き 棋 を アマ チュ 
れる こと で す が , それ 以上 に , 
ー タ に 変換 する か が 問題 で し た . そ こ 








イラ な る も の を 作っ て , デー 2 のど ス を 減ら し 
ま も な 、 

も し あな た が , き 棋 を 作る 力 が あれ ば , 詰将棋 コン パ 
イラ の 助け を 借り て , 容易 に あな た の 『 詰 将棋 道場 』 を 作 
る こと が で きる わけ で す . 





後日 , 新しい 問題 と 共に 
だ た いと 思い ます . 


= プロ グラ ム の 入力 と 起動 = 


プロ グラ ム は 3 本 構成 に な っ て いま す . ま ず ,『 シ ョ ウ ギ 』 
の BASIC プ ログ ラム と 『 シ ョ ウ ギ SB」 の マシ ン 語 プロ グラ 
ム を 入力 し て , それ ぞ れ , 





SAVEK^ シ ョ ウ ギ ン | 

SAVEM` シ ョ ウキ ギ SB”, &H5500, を H7DFE, を H5FOO | 
と し て 1 本 の テー プ に 入れ ます . 

さら に 『 シ ョ ウ ギ DT』 を 入力 し て 








SAVEK シ ョ ウ ギ DT?, &H6000, H745F, H6000 





結 人 が 

次 の こと を 注意 し て くだ さき 

① プ m ク ラム を テーブ か ら pー ド する と き 
モー ト 端 子 を つなぐ . 

ロー ド す る 前 に 1 度 リ セッ ト す る . 
③RUNI_RETURN | で 起動 する . 

プロ グラ ム を 途中 で 止め た り , 終了 し た り し て か ら 再 び 
走ら せる に は , た だ RUN[CR | と する だ け で 元 ど お り 正 常に 
動き ます . テー プ の 再 セ モッ ト は 必要 あり ませ ん . 


テレ コ の リ り 











遊び 万 


ソル 方 式 で []-[@ キ ー で 動か し 





ー 操 作 は 8 方 向 の カー 



































ます .『.』」 を 使っ て 駒 台 と 盤 を 1 度 に 移動 きせ る こと が で 
きま す . 
駒の 動か し 方 
① ま ず 動 か した い 駒 の 位置 に 点 減 する カー ソル を 動か し ま 
す . 
②[CR 」 キ ー を 押し ます . 
③ 動 か みす 先 に カー ソル を 動か し ます . 
④ 成 ら な いと き に は [CR] キ ー, 成る と き に は [QI キ ー を 押し 
ます . 
他 の コマ ンド 
[PEL」… 元 の 図 に 戻り た いと き に 押す . 
[ESC |… こ れ 以 上 解け る 問題 が な いと き に 押す . 
[CLS]… 1 問 前 の 図 に 戻り た いと き に 押す . 





IHOME|… 1 | 
な お , 起動 時 


問 後 へ スキ ッ プ し た いと き に 押す . 
に た ず ね て くる . 実力 と 問題 数 に [CR | で 答え 


た と き は それ ぞ れ 4 級 , 5 問 に 設定 され ます . 
級 が 高い と や さ し い 問題 が 主体 に な り ま す の で , と き 


き 級 を 変え て や っ た 方 が 面白 味 が 増す と 思い ます . 
キー 操作 

















99 CLEAR 399。&H554FF s SCREEN プ 7 、 プ =: MIDTH49。 つ 5 
: CDUNSULE り 、25、9 

199 RANDUNMIZE VaL (MID ま も (TIME も $。4。 つ ) ) 69+V 人 Q 
L(RIBHT ま も (TINE ま 。 つ ) ) 

129 DEF INTA-Z: DEFSNG S 

169 IF PEE ド I5F ら 9) =%H2O THEN さ 399 

299 LOADM " "EXEC 






DEF FNXF 





1949 
1979 DEF FNSS ま (X) 





EEEFP 1199 =19s YST= 











サイ ィ 。 

さ PRINTsPRTINT "テー フ * レコ ー タ ~ ノー スイ ウチ ヲ イレ テ 、" 1291 
9 PRINTsPRINT "リト" し テモ キー ヲ オシ テ フ タ "サイ 。 リ 
ら K1 ま =INPUT も (1 ) : GHT ロ 419 


COLORZ 。 1 : CLS 
1292 LINE (79。5) (556。 さ ら の) 。、PSET 。 さ 。 BF 





1265 LINE 










1999 DINM BD(9。 日 ) 。 
・PFB(N ら 、3) 、 CB ( さ 2) 

1929 MRS xH55 ら 2 
1939 MUST=SzH56@ 
NMUST+ ミ : DEF USRS 


BDG (9. 日) 。DT (199) 。 DR (15) 1296 PRINT"DEL 
DEF USR=HRST 
EF USR1=NMUST : DEF USR つ = 


NMUST+6: DEFUSRK4= ニ NMUST+ マ 9: = 






1 さら 9 LUCATE9。 2 
シー メル トキ ハリ ソノ ホカ ノ キー"s 
1 さ 1 ら に ま =INPUT も (1) 














ら : DEF USR5=CGST 1 
EF 
ココ USR9= KDR+4: ド OHQA=KDR+ ム 6 

DEF FNR(X)=INT(RND(1)*(X+1) ) 
(X)=INT((X+13) 
DEF FNYFS(X)=INT((X+13)\9) 1 

RIGHT ま (STR も (X+1 の 9) 。 つ ) 









ST+XGP*9+1 
ら の 4 : C ヒ LMG=Z = NESGPYG= ニ フ : MESPYE=19 


TMX=MUX+XGFP+16: TMYS=59: TMYE=197: TNGS 


2 INPUT "パリ ノ テー フ % ./ モン タ ^ イニ シマ スカ 。 (Y/N) " 1119 日 
・ ド に 1115 X=XST+XGP*9+1 の 
395 IF INSTR("Y ッ フリ 。 LEFT も (K も すり リ 。1))=O TH 1129 MESFX 
EN 4 の 9 Fd 
さ 1 の 9 PRINTsPRINTs PRTNT "モン タ ~ イ ヲ ニュ ウリ ョ フ シマ ス 1139 
F=18 
さ 29 PRKINTs PRINT "モン タイ ノノ テー フ " ラ ヲ や セ ゅ ト シテ フタ ~ 1149 

1299 *ー 


(79。5) (559。 


1298 PRINT"ESC ・・・・ モウ コレ イシ ~ ョ ウ トカ ナイ リ " 






ド K=ASC (に ) -%zH さ の 
IF ド >=1 AND ド に =<9 THEN PURE &H569C。9 
ーK: GUTU 1 さ 399 

1799 BUSUB さ 599 

1795 CULUR7。9= WIDTH49。 255: CUNSULEO。 2 つ 5。 9 
1719 BCL=1:LTINE(O。9) 一 (639、 199) 。、PSET 。 2。BF 
1899 BUSUB 19999 

19 ら 9 PM= の : NUU= ニ NMX+1 

ニー らら : YSP= ニ ラマ 1 1919 SCURE=9 

IDY=YST+YSP 1955 BUSUB 18999: BUSUB 4999 

1969 LUCATESCX 。 SC ヒ Yー2s PRINTRTGBHT も (! ドコ 
STR$(SCNX ) 。4) 

1979 LINE (SCX16。(GCYー2) # 日 )-( (SCX+4)#16ー 
1 。 (SCY- つ ) * 日 +6) 。 DR 。 BCL 。 BF 

2969 GOU10 2919 
2995 『" 

2996 BUSUB 11699 
2969 日 GUSUB 4999 
2 の 1 の “ 

< 1 ド =PB(PM。 う ) : TIM も = リ "の ら の 





USR DEFUSRB=KDR 


MOD 9)-4 





さ 3@) 。PSET 。 7 。 8 リ +FNSS ま も (に K\69) +" 








IF PEEK(&H5FFF) THEN 429 1219 Y=1 の = X=1 の OO:FUR K=&HS4 TO &HSB FNSS ま (K NHUD 6 ら 9) : MCT=9 
9 LOADN " "s BEEP 122O GOUSUB 日 さら の X ニ X+1 : GUSUB 日 さら の = X ニ X+ マ 9 GUSUB さ 999 
29 PUKE &H5FFF 。 1 | 1239 NEXT さる BUSUB 11G99 
5 の 69 INPUT "アナ タ ノ ジー リリ ョ フ ハ ナン キュウ テ ~ ス カカ (1 一 || 1235 LINE (39 の 9 ) - (55 の 。59) 。 PSET 。 2。BF GOUSUB 12999 
9) 0 KK 124 の Y= ニ 4 の =: X= く 1 UR に K=&HSC TO &HSF ら MISC= IME ま =T IM も : =USR 1 (の ) 
595 IF に $="" THEN LVL=5 ELSE IF に K$ く "1 0 125 の GUSUB 日 さら の : X ニ X+1 : GUSUB 日 さら 9 = X ニ X+6 さ BOTU 2925 














R ドド $>! ウ ! THEN 59 の 6 ELSE LVL=ASC (に) 一 HG 1269 NEXT *ー redo 

519 PRINT:PRINT = INPUT "モン ター イズ ウ バル ナラ フ モ フ ニシ 1265 LUCATE5。 19: PRINT "キー ソウ サ " DDRG=RDDRG9= GUSUB 11599 

マス メカ" 。K 事 127 の 9 PRINTsPRINT" 1 一 9 ・・・・ ウ コ ~ 7: NISC=2 

515 IF に = リリ THEN NMX=4 ELSE IF LEN(K$) > 1275 PRINT" 。 ・・・・ "フン ベー> コマ ター イリ 0 

ご THEN GOTO 1 ら ELSE NMX=VAL (も) 一 1 1289 PRINTsPRKINT" CR ・・・・ カフ ニンフ " F= ら 

SO IF NMXSO_UR NMX テ =199 THEN 519 1299 PRINT" 9 ・・・・ ナル リロ BUSUB 299 

919 DIM FTN (SO の 9) 1292 PRINT:PRKINT "HOME・・・・ リキ " ノ モ フ タ トー イリ BUSUE 19999 

999 NO の =199 1294 PRINT"CLS ・・・・ マエ ウン 4 IF AF THEN IF AB=ー-1 THEN 2179 ELGE 






1 rF RB=1 


・・・・ ヤリ ナオ THEN 215 ら ELSE IF QB=9 THEN PMO= 
ト F FM: BU1U 1 らら ELSE 1F QB= ニ 2 THEN PMO=PM: IM 

RINT "オン リョ ウ チョ ウ セ リウ (1-9) =9: GHTU 2189 
2 の 649 IF MISI の THEN GUSUB 7 の 999= IF UK= の 






THEN BUSUBc : BUSUB199: GUDTU 2199 








180 





請 将棋 道場 





リス ト 1 ショ ウキ 








294 コ IF OF AND NXF=G AND MISC>1 
FRF : HHIS ビ =1 

294 日 IF MIGC= ら 
2959 BUSUB 999 の 9 
9 IF MIGC= ら THEN FQAF=FA: GUSUB BG9O: 0 


THEN FA= 





THEN FUR IT= の TOU 999: NEXT 





ら O 
BODSUB 6999 
IF EF THEN 2129 
IF _ MISC=1 THEN MISC=NIS ビ ピー1 
BOTD 29325 
DDR=ADDRKG 
BOT0U2922 
tsumi 
FM ウ =FU 
K=USR1 (2) 
FAF=5: GUSUB 日 1 ら 99 
PB (PM。 2 つ ) = ニー1 
MM=NMM-1 =: IF MM=O THEN 
2159 *-s=tep 
2152 IF FL THEN PB(PM。2) =ー1 : =MM-1: IF NM 
= ら THEN 2269 
2155 PUG=PM 
2169 PM=PM+1: IF PMS>NMX THEN 2175 ELSE IF 
PB (PU、2) く > の THEN 216 の 9 
2165 BOTO 218 ら 
の 37 の .? 
2171 PMO= ニ FM 
2175 PM=PMMー1 : IF PM<O THEN 2169 ELSE IF ビ 
B(PM、2) く >9 THEN 2175 
2189 " gtep 
219 の 6 PB(PMO。 さ ) =TINE : IF PB(PMO。 さ ) >= さ 699 
HEN PB(PMO。 さ 3) = の 
2299 IF EF THEN GOSUB 3799 
2259 IF MM の O THEN 29655 
2269 IF SCOURE >SCMX THENSCNIX=SCORE 
2279 LUCATE 1 の 9。2 つ 3s PRINT " オ ワ リ ニニ シマ スカ (Y/N) "ミド 
まま =INPUT も (1) 


2979 
2975 
29B9 
2199 
321 19 
2129 
2122 
2125 
212 フ 
2139 


2149 2189@ 








2289 IF INSTR("Y ッ フン" 。 KK に も + リ = ウ THEN 1299 
2299 Q=USR2(A) 

2399 END 

さ 3999 『 一 

3 の 1 の LINE (MEX。 う ) 一 (EX+6 う 。 1 日 ) 。PSET 。 1 、 BF 
3912 に =LE \ 1 の : IF ド = ウ THEN ド K=S&H2A ELSE ド 
呈 さ 2+K 


3914 X=MEX: Y= さ : GUSUB 
39155 ド =(LE MOD 19) +32 
3916 X=MEX+ さ 2: Y= さ = GUSUB 259 

391 日 に = し ( さ +LVL ) \4 = TMB= ド 

さ 929 TMS$=STR$ も (K) : TMS ま =RIGBHT ま (TMS ま 、LEN(T 
MGS$) 1 ) : IF LEN(TMS$)= ニ 1 THEN TNG ま = リ "の"+TN5S 


259 






"+THS も +" 
TMYS+TNMSP テ 
STR*$(PM+1 ) 、2) : GUGUH 19959 
さ 924 X=TMXs TMYB+TMSP ォ 6: KK つま =MID ま (TMS$。4 

っ) : GDSUB 19959 
3925 FOR I= の 9 TO 1 
さ 926 X=TMX: Y=TMYS+TMSPT2 ょ KK つま も =NID ま (TII 
ュ ・T* さ +4。2) : BUSUB 1995 ウ 


LN 





つま =RIBHT ま (" 














392 NEXT 

3939 LINE (TMX-1 。TMYS+TMSP*4) 一 (TMX+57。TN 
YE+1 ) 。 R。 さ 。BF 

3949 RETURN 

3599 "ーー 

3519 NM=9: ド =&H6 ら 94:K1=1 

3539 『* 

さ 54 ら PB(N。9) = ド 

3545 PB(M。 1 ) =PEEK (ドー2) *&H1O9+PEEK (ドー1 ) : ピ 


B(M。2) =9:PB(M。 さ ) = の 

さ 354 コ K1=PEEKR (ドー4 ) X&H199+PEE ド (ドー3) : ドニ ド + ド K1 
3559 NM=M+1: 了 F に 1 く <> ら THEN ささ 9 

3699 NBD=Nー2: IF NMX>NED THEN NMX=NBD 

さ 692 NMX1=NMNX ォ 2: IF NHNX1>NBD THEN NHX1=NB 


D 

さら 619 FOR 1=9 TO NHX1 

さ 3615 J=FNR (NBD) 

さ 629 SMAP PB(1。9) 。 PB (J。 ら ) 

3621 SMAP PB(1I。1) 。PB(J。1) 

さ 639 NEXT 

さき 647 『" 

さら 64 日 IF NMX1= ら THEN 3682 

3659 FUR J=9 TO NMX11 

さ 655 FOR 1!=J+1 TOU NNX1 

3669 IF PB(J。1) >PB( 1 エ 。 1) +&H1O ら THEN SMAP 
PB(T。 の 9) 。PB (J。9) : SMAP PB(T。1) 。PB(J。1) 

さき 679_ NEXT 

さ 6B9 NEXT 

さ 6 コ 2 NMS=(NMX# (し ソレ ー1 ) +NHX 1 (ワー し LVL ) ) 日 -NN1 
X 

さ 6 ヨ 4 FUR 1= の 9 TU NHX:J=NNS+ エ 

366 PB( TI。9) =PB (J。9) 

36 ロ 7 FB( 1 、1)=PB(J。1 ) 

さ 3688 NEXT 

さ 699 RETURN 

さ 3799 ーー セイ セキ 

さ 797 TNM=VAL (MID も (TIME$。4。 つ ) ) 

さ 719 N1=SCORE : N1 ま =STR$ も (N1 ) 

さ 715 GC1=( し V+11 一 LVL)#(11O\(NMX+1 1 ) ) # つ 
3729 SCORE=SCURE+SC1 一 (TM く <TMB) * (SCE1X(((TN 
BーTN) *1 の ) \TNMB ) ) 堂 1 う : N つ も =STR ま も (SCORE ) : SCDRE 
=SCURE 

さ 725. N さ =N1 

さ 739 N さ =N さ +2: LUCATESCX 。 SCY: PRINT RIGHT も ( 
1 "+STR ま (N さ ) 。4) 

3749 IF _N3<SCORE THEN GOTOU 37 さ の 

さき 799 RETURN 

4 の 99 "ーー 

4995 QRDDRO9=PB (PM 、 9) 

4 の さ の K= ニ PB (FMW 。 1 ) : し ソニ =K\H1 ら 9 ょ し ビー ド K MOUD &H19 
9 


4949 RETURN 












らら 9 "一 

らら 9 弓 IF EF THEN RETURN 

ら 99 日 IF XS2=9 THEN に に ビニ ーNN つ = BUT692 つ 9 

らら 1 ウ KK ニーBD (XSG2 つ 。 YS つ 2 ID(XG2。 YSG2) = ら : PSX=X 





2: PSY=YS2: NN= の : Fc 
6929 IF KK<= 日 QND FF2 
ら 

ら 9255 IF KK=1 THEN XUH=XD2: YUH=YD ろ 
6 さら BD(XD2。YD2) =ー に ド 
ーKK: NMF=9: GUSUE 1799 
6199 RETURN 

7999 *ー 
7919 
79155 
7929 


IHSUB 17 の 99 
NMOD つ =1 THENK ド = に に + 









Ok : NXF= ら :FQF ニ = の 
NUM=PEEK ( QDDR ら ) 
RDDR=RDDR ら + 1 

7 の 39 F1=ー1: GODSUB 7B99: IF _N<>BD(XS。Y ら 5) 
EN F1 ELSE NN1=N:FF1=F 
7 の 44 け 9 5U5UB プラ の os 1FX く >XD UR Y< 
= ウ ELSE XD1=XsYD1=Y 

795 ら IF FF1 AND 2 THEN XS1=9: YS1=1 : GUT ロ 7 
96 ら 9 

7952 IF (FF1 QAND )=9 THEN IF F1 THEN GO 
SUB 7 さ の 99: BUTU 7954 ELSE 7962 

7953 GUTO 7955 

7954 IFF=9 AND( FF1 AND 2 つ )=9 THEN XS1= ウ =: 
YS1=1 : BUT 7 の 69 ELSE 7969 
ア 955 BUSUB 7999: XSG1 ニ Xs YS1=Y 
7 ら 69 IF F1= ら THEN 796 つ 2 

7 の 61 1TF((XS=X5S1 AND YS=YS1 )〉 


TH 





YD THEN FI1 





DUR (XS=9 AND 














XS1=) ) AND NF=(FF1 MOD 2 つ =1) THEN 7199 
7962 FF つ =PEEK (ADDR ) =: D=2 

796 さ IF FF コ = の THEN D=1: GUTO796 ヨ 

7964 IF FF2 AND %H2O THEN D=2:GOTO 796 晶 
79655 IF (FF2 AND &H4 ら ) THEN D=1 

7 ら 66 1F(FF2 AND &H ヨ 9G) THEN D=D+1 

7968 ADDR=ADDR+D+1 

7 の 7 の 9 N=FEEK (DDR ) : IF N=9G THEN RETURN 
7 の 8 の 9 BUTU 793 ら 

7199 “ー0K 

7 フ 1 1 の UK=ー1 

71 さ の GUSUB 7 の の : NN コニーN : FF フ =F s IFN=G QAND F 
= ウ THEN EF=ー1 : KRETURN 





7 フ 132 IF FF2 RND 2 THEN GUSUB 7 ワウ 99= XD つ =X: 

YD : XG2=9= YG2= 日 : BD (XS2。 YS2) =NN2s BUTD Z 
159 

7134 IF FF2 AND 4 THEN XD2=XD1:YD2=YD1 E 

LSE BUSUB _ 799 の: XD コ =Xs YD つ =Y 

71 さ 36 IF( FF2 QAND )=9 THEN GUSUH 7359: IF 
F=9 THEN XS : YS2=: BD (XS2。 YS2) =NN2 EL 

SE Q=QA ELSE GOUSUB フワ 99: XG2=X : YG つ =Y 

フ 15 ら 9 FQAF=PEEK(QDDRK) : IF FQF>=&HBO THEN FA 

F=FQAF 一 HO: NXF=9: RETURNELSE NXF=ー1 : LN=FA 

F 

7169 ADDR9 ら =QDDRK9+NUN 

7 フ 179 LN=LN-1 : IF LN> ら THEN _NUN=PEEK (ADDR9 
) : GUTO 7169 

7299 RETURN 

7399 “ーー 

7 さ 19 XB=XD1 : Y ロ =YD1 : に KG=NN 1 : D=ー1 : GUSUB 749 








XS1=XQs YS1=YA 
RETURN 


XB=XD2 つ = YH=YD つ : KG=NN つ : D=1 : GUSUB 7499 
XS2=XQ: YS2=YA 
RETURN 





F=9 

PORKE KOMA 、 ABS (KS) : N1=USR9 (9) 

FOR !=1 TO N1 

K=USR9( 了 エ XQ= ニ XB ロ ーDxUSRZ( 1 ) : Ya=YBーD テ U 
SRB(I):IF Xa> RND Xa<= 日 QND YA>=o AND 
YA< く = THEN IF BD(XR。YA)= ニ KS THEN 1!=N1 : ビ ニー 
1 

74 さ 9 NEXT 

7435 IF F THEN RETURN 

449 N2=USR9(N1+1) = TF N2=O THEN 7 プ 475 
7445 FOR 1=N1+ つ 2 TU _N1+1+N2 

7459 X=XBsY=YH 

7455 X=X-ーDxUSR フ 7( 1 ) : Y=YーDxUSR 日 (1 ) 

7469 IF X<G OR X> 昌 OR Y<9 OR Y>B THEN 74 
7 の 9 

74655 IF 
N1+1+N2 
7467 IF BD(X。Y)=9 ら THEN 7455 

7479 NEXT 

7475 RETURN 

7899 ツー N 

7839 XY=PEEE (QDDR ) : QRDDR=QADDR+ 1 
7B49 N=XY MOD16:F=XY 笠 16 

7859 RETURN 

7999 ツー XaY 

7939 XY=PEEK.(QDDR ) : QRDDR=ADDR+ 1 
7949 X=(XY 壮 16) 一 1 =Y ニ (XY MD 16)-1 
7959 RETURN 

Bo ら 9 一 

8B ら 62O GOUSUB 99 

Bo25 X=HESPX = Y=MESPYS 
639 FOUR K=NMS(FAF、9)〉 
934 GOSUB 日 さら 9 

949 Y=Y+16 

B9 ら 59 NEXT 

ヨ ら 6 紀 IF MS(FAF 。2) ぐ 9 THEN B999 
B979 FOR ド =MS(FAF、2) TOD "MS(FAF 、 う 3) 
974 BUSUB 日 さら の 

Bo89 Y=Y+16 

9 ヨ 5 NEXT 

ヨ ら 9 の RETURN 

19 の 6 “ーー 

119 BOTO 929 

8B2G の O *ー 














BD(X。Y)=KS THENXRA=Xs Ya= ニ YsF= ニ ー1: エニ 


TO _MS(FAF 、1 ) 











219 LINE (MESFX、MESFYS) 一 (MESFX+ さ 1 、MESFY 
E) 、PSET 、 1 、BF * 

229 RETURN 

B259 * ・ 
B269 LINE (X、Y) 一 (X+ さ 1 、Y+1) 、PSET 。 BCL 、BF 
B279 GOSUB 日 99 

8289 RETURN 

3 ら 9 *ー 

8B319 POKE CGST+ つ 。 ド に: ビ =VQRPTR(CG (の ) ) : ビ =USR 
5(C)〉 
8329 
B3 さ 9 
GO99 
9919 
99329 
99 さら 
994G 
go45 


PUT 尽 (X。Y) 一 (X+ さ 1 。Y+1) 、CG、PSET 。6 
RETURN 
"MOVE 


IF XG=9 THEN 
ド KK=BD(XD。YD) 
IF KK=9 THEN 9 
IF KK<-BTHEN 
959 BD(9。ME) =ーKKs Ni 
9969 MF=ー =X5: FPSY=HEー1 : NN=- ド Fs GUSUB 
17999 =: MF ニ ー1 

9199 * 

1 1 の MF=9s ド に =BD(XS。 YS) : BD(XG。 YS) =O: FGX=X 
: PSY=YSG: NN=9 ょ BUSUB 17999 

9129 NMF SGX=XD:PSY=YD: ド KK= ド KK-NF 6: BD(XD 
: BUSUB 1959 


9299 














・YD) = ド KK : NN=KK s BUSUB 17969! 
9199 





RETURN 


KK=BD(XS。YS) 








FOUR !=9 TO NE-1 
294 IF KK=BD (9⑦。1) THEN YS=I: 1=NMEー1 
9296 NEXT 
9219 FOR エ = ニ YS TO ME-2 
9229 BD (9。 1 ) =BD (9。 エ + ォ 1 ) 
9239 NEXT 
9249 BD(9、MEー1 ) =9 
9245 NMF=ー1 
259 FOR 5 TO NHE-1 
マコ o9 PSX= " ら Y=」 : NN=BD (プア 。【) = GUSUB 1/ の 9 ゆ 
9279 NEXT 
ワ 275 MF=9: NE=NEー1 


9299 BUTOD 9129 


IF INKEY ま くう リ THEN 19992 
PSX ら =9: PSGYG=9: GF = の : FL し = の 
FSX=XUH:PSY=Y0H 

FF=9: BUSUB 19599: ITF RF<>9 THEN 1932 





16997 
19919 





19915 THEN 19919 
1 の 926 
199 さ 9 


1F BD(PSX、FSY) < く = 
RC GOSUB 19 昌 








KG=BD (PSX 、PSY ) : XG=PSX : Y5=PSY 
19949 FF=ー1 : GUSUB 19599: IF AF く <>O THEN192 
IF_NF AND((YS AND YD>2)OR XX 






KR BD(XS。YS) > 日 ) THEN FQF=4:GOSUE 日 196 
9: GOTD 19999 

9 IF OK= の 9 THEN FRAF=3: GHSUH B199:GUSU 
ら 9: GOUTD19999 

199 ヨ 9 BUSUB 16999 

199 ヨ 5 GUSUER 19299 

19 ら 9O IF UK= ウ THEN FAF= 
19999 
191go 


:BUSUB 1o9:607『0D 





RETURN 


192 の 6 ーー 


19219 


FGX=X5:FGY=Y5= R じ し = マコ : GUSUH 1 らら 9 


RETURN 


人 AF : RE 
ー19sJ=1s 
ド ま =INKEY ま も 
1F1=1 THEN IFTIM* く >TIME ま も THEN TIHNS 
IME ま : BODSUE 19999: IF F THEN 
ーッ 

1F ド K ま THEN 
J: R ビ L=6: BUSUB 





195329 ら : BUSUB 19899 


*CL 








に ま =CHR ま (1 1 ) 
19549 





F 1< く の 9 THEN 1= 
BOTO 195 さ 9 EL 


エ = エ ー 
1 9 日 9C 






】 
IF J THEN RCL= ら 6: GUSUE 19 ヨロ 99 


1955 ら 


19552 GOSUB 19 昌 69 


19: FPSX1=FPSX:PSY1=FPSY 








16554 IF HR ま (27) THEN AF=ー1 : QB BOT 
019549 
19555 ら 5 IF ド に ま = ビ HK ま (1 コ 7) THEN QF=ー1 : ロニ の = G0 
TO19649 
19556 1F ド に ま =CHR も (11) THEN RF=ー1 : AB=1 = GOUT 
01964 ら 
16557 ITF ド ま = ヒ HK ま (1 つ ) THEN RF=ー1 : QB ニー1 : GU 
TU19649 





1955 昌 IF ド ま =CHR ま (1 ミ 3) THEN BOTD19649 











1955 ロ 9 1F に K ま ="O" AND FF THEN NF=-1:GOTO 1 
649 

19 ら 9 1F に も ="。" THEN SMQAP PSX1 。、PSXS: SMAP 

PSY 1 、PSYS: SF=1 SF 

195 1F INSTR("12 K ま ) THEN PSY1=PSY1+ 
1 

19579 1F INSTRK("7B9" 、 に ま ) THEN PSY1=PSY1 一 
1 

195 ヨ 9 IF 1INSTR("147"。K 多 ) THEN PSX1=PSX 1 一 


1: IF PSX1= 日 THEN PSY1=PSY1+1:IF SF THEN 
5F=1 一 F =: PSX ら = = ビ SYG= の 
1 ら 659 の 9 IF INSTR(" う 69" 。K 多 ) 
1:IF FSX1=9 THEN PSY 


PSY 
19699 IF PSX1=9 AND FSY1: 
HEN 


196 ご の 
19619 1F PSX1<@G OR FSX1> OUR PSY1< ら 6 OR ビ ピ 
SY1 > 日 THEN 19529 
196 ご ら の 


1 らら 6 さら 


PSX=PSX 1 : PSY=PSY 1 : GU10 19529 
19649 『" 
1 ら 659 RETURN 





THEN PSX1=PSX1+ 








9 AND PSY1< 昌 T 








181 


請 将 棋 道 場 















































リス ト 1 ショ ウ ギ 
19Boo 「ー | 12gBo GOSUB 17goo D &H199) 
1oBo5 IF PSX=9 THEN MF=ー1 ELSE MF= ゥ 12699 NEXT 17926 IF N1=9 THEN N1=15 ら 
19B19 BUSUE 17Bog 12199 RETURN 17927 ド に =VQARPTR (PTN (9) ) 
1oB2O LINE (X メ キラ 、Y+1) 一 (X+XPー1 、Y+YSP-1) 、XO || 15ooo *ー | | 1793e FDKE RST+32、N1:FPOkE HKST+ さ 、 ド HH19O 
FR、RCL 、BF 15991 DK= の :PDKE MRST+4、 ド MOD &H199 
19B39 RETURN 1599 さ に K1=BD(XS、YS) : IF YD=G AND (K1=5 OR 179 う 7 K= ニ USR (K) 
1 095 ド 1=6) aND NF= ら THEN RETURN 1793 日 PUT (X メ + ラ 、Y+1) 一 (X+XSPー1 、Y+YBPー1 ) 
19852 IF MCT< さ ウ THEN R=USR ミ (人 Q) 159o4 1F YD< RND に 1=4 QND NF= ら THEN RE TN、PSET 
19B54 SUND 7、%HFF:SDUND 9、24:SUUND 1、 ら : TURN 17949 RETURN 
DUND SOUND さ 、9: SUUND 4、26: SDUND 5、 15G65 ドラ =BD(XD、YD) : IF X5=9 THEN 1F 17B9 の *ー 
SUUND 6。2: SUUND 日 、1 SUUND 9。16: SDUND THEN に =ー1 : RETURN ELSE RETURN | 1719 IF MF THEN X=NOX:Y=HDY+PSYxYSP: RET 
19、16: SDUND 13、9: SOUND 11、 UND 12、109s 15997 IF K1> 昌 AND NF THEN RETURN URN 
SOUND 7、&HF の :FDR I1=G TO 59:NEXT:SDUND 7 15919 XX=XS-XD: YY=YS-YD 17826 X=XSGT+PSX*XSP: Y=YST+PSYYSP: RETURN 
WMHFF : SDUND 7、%HBo:FUR 11=O TO 39O:NEXT: 15o29 ITF XX=O_ AND YY=G THEN 15299 18999 ーー 
SOUND 7、%HFF | 15o3 の IF K2>O THEN 15299 | 18go6 PSX=o:PSY=9: NN=15: GDSUE 179GO 
19B56 TF MCT< さ SG THEN SDUND 7。.%HF 日 : =USR4 || 15os5 XY=XX+YY*9 18o ら o ら B FUR J=YST+1 TO YST+YSPxB+1 STEP YS 
*Q) | | 15os7 POKE KONA、KS:N1=USR9 (9) FP:FDR =XST+2 TO XST+XSPB+2 STEP XSP 
1o85B RETURN | | 15e5e FOR 1=1 TO N1 | 1Bgo9 PUTeA(1、J)ー( エ +XSP- さ 。J+YSP-2) 、PTN、 ピ 
19B6G 『 | 15 ら 6 の に =USR9( 1 ) : IF K=XY THEN UK=ー1 | SET 
19 ヨ 61 IF MCT< さ 9 THEN =USR さ (NR) 15979 NEXT 18o19 NEXT:NEXT 
19B64 SDUND7、&HFF: SDUND 9、 DUND 1、9:5 159B9 IF OK THEN GOTO 15299 1B911 LINE (MDX 、YST+YSP-1) (MOUX+XSP+1 、 YS1 
DUND 8B。16:SOUND 9、16: SUUND 19。16:SOUND 1 15 ら 9 の N つ =USR9(N1+1) : IF N2=O THEN 15299 +YSP*9ー1 ) 、FSET 、4、BF 
3、9: SDUND 11、9: SDUND 13. さ :GDUND 7。%&HFE:F 151G9 FOR 1+2 TO _N1+1+N2 1o12 FOR J=HOY+1 TO MDY+YSP* フ 7+1 STEP YS 
DR 11=9 TO 49:NEXT: SHUND 7、%&HFF 15119 X=XSsY=YS F 
19B67 IF MCT<S の THEN SUUND 7、&HFB: =USR4 15129 X1=ーUSR7(1 ) | | 18g1 ミ = FUT@R (MDX+ ラ 、J)ー (MDX+XSPー1 。J+YSP- つ ) 
*Q) 1551 さ ら Y1=ーUSRB ( } ) | | 、PTN、FSET 
19 ヨ 6 RETURN 15149 X= ニ X+X1 = Y= ニ Y+Y1 | | ie14 NEXT 
19999 『ー 1515 ら IF X<9 DR X>B UK Y<O OR Y>B THEN F 18915 FDR J=2 TU 4 STEP っ 
94 の K ド 1 も =TIH 和 を:F= の =ー1:GOTD 15199 18916 LINE(XST-J、YーJ) 一 (XST+XSP* ウ +J。 YST+Y 
IF MID も (に 1 ま 。4。 つ ) く >MID も (TING も 。4 、 つ ) 15169 K=BD(X。Y) SP*9+J ) 、PSET 、6 日 
=TMX: Y=TMYS: に つも =HTD も (K1 も 。4、 つ 2) = GS 15179 IF X=XD AND Y=YD THEN UK=ー1 : 1=N1+1 1891 プ 7 LINE(XST-J+1 、YーJ+1 ) 一 (XST+XGP#9+ ゴ ー1 





UE 1 の 9 紀 ら =s 1TF K1$>=TNS も THEN F=ー1 

1993 ら NX =: Y=TMYS+TMGP ォ 2 コ ェ に つも =MID も (K1 も 。 ア 
・2) :GUSUB 19959: IF MCT< THEN MCT=NCT+1 
E nA=USR2(RR) 














19949 RETURN 

16959 *ー 

199555 ドド =ASC (MID ま も (K2 も 。 1 、1) ) 19:TF ド = さ 2 
DUR ド K=16 THEN ド =&H2A: GUSUB 日 25②: メニ X+ コ 4: BH 





SUB 259: X ニ =Xー12 ょ GUTO 1o965 ELSE GOSUEB25 
9: メニ X+24 


19965 K=AGC (MID を (K2 ま 、 つ 、1) ) HI1G 
16979 BUSUB 日 2 紀 ら 

199 ヨ 9 RETURN 

11999 "ーー 

11919 FOR X=9 10 9sFOR Y TOD 8 





BD(X。Y) =9』 BD9(X。Y) 
NEXT:NEXT 





1194 DDR=ADDR ら 9 
1959 No=PEEK (ADDR ) : QDDR=ADDR+ 1 : DT (9) =NG 
つ RDDR ら =QADDROO+NG 
INE= ら 
FOUR 1=1 TU (NO\2) * さ ー1 STEF 3 





11979 
D16: NN=FEEK(QDDR+ 1 ) : QDDR=ADDR+2: IF NN>=1 
2 THEN _NN=NN-256 


FSX=PEEK.( ADDR ) \16: 





'SY=PEEK (ADDR) MD 


11971 
NN 
11972 
11974 
119755 
11976 
119 昌 9 
119 ヨ 5 
=IHE 
11999 RETURN 
11199 * DaTA 
11195 DaTA さ 。 弓 。 つ 
11119 DaTA 1.5。4 
11569 "ー 

11519 
E NMF=9 
11515 FOR J=9 TO 日 

11529 KK=BD9( 1 。J) siFKK く >BD (1 。J) THEN 1F 
(1=9 AND J= 昌 )= ら THEN NI <K: PSX=I : PSY=JiG 
USUB 17999= BD( ! 。J) =K に K 
1153 ら NEXT:NEXT 

11549 XUH=XDUH9: YUH=YOUHO: 
11559 RETURN 

11699 "ーー 

1161 ら FUR != ウ TO 9=: IF 1 エ =9 THEN NMF=ー1 ELS 
E NMF=9 

116155 FOR J=9 10 8 

11629 IF BD(I、J) く の THEN 1F 


DT (1 ) =PSX 一 1 :DT(1I+1 ) =PSYー1 = DT( エ + フ ) = 


TF NN=ー1 THEN X ロ H=PSXー1 : YUH=PSYー1 
IF PF5X=1 の 「HEN ME=NE+1 

BD(PSX-1 。、PSY-1 ) =NN 

BD9(PSX 一 1 、PBY-1 ) =NN 

NEX1 

DDRO9=QDDR9: XUH ウ =X0H: YUHO=YUH: ME 





FOR 1I=9 TO 9:IF TI=9 THEN MF=-1 ELS 





NE=ME ら の 


(1=9 AND J=B 









)=9 THEN NN=9: FGX=T: PSY=Js GUSUB 17999 
11639 NEXTsNEXT 

11649 X ロ H=XUHO: YUH=YDHO: ME= ニ ME の 

11659 RETURN 

12999 “一 

1295② N9=DT (PS) 

1296 の 9 FOUR エ =PG+1 TO PS+( (NOー つ ) 半 つ ) * さ +1 ST 
EP さ 

12979 T(TI) : PSY=DT( エ +1 ) s NN=DT ( エ + ォ ラフ) 
12975 : IF PSX=9 THEN NF=ー1 








+N2: BDT ロ 1 弓 199 

1518 の IF ド =9 THEN BOTD 15149 
1519 の 9 NEXT 
15299 

15219 RETURN 
16999 『ー 
16992 IF XS=9 
DK= の : RETURN 
0K= ら 

IF KS<=B QND NF THEN KS=KS+6 
XX=XD-XOH: YY=YD-YOH 

ITF XX=O AND YY=9 THEN 1629 の 
XY=XX+TYY*9 

FDKE KOHA、KS:N1=USR9 (9@) 


THEN IF BD(XD、YD) ぐ >:G THEN 











16959 FR !=1 TO N1 

16969 ド = リ USR9( 1 ) : IF K=XY THEN UK=ー1 
16979 NEXT 

169 ヨ 9 1F Ok THEN GUTOU 16299 

16 ら 9 ら N2=USR9(N1+1 ) : IF N2=O THEN 1629 の 9 
16199 TO _N1+1+N2 

16119 

16129 


161 さ 9 
16149 X= ニ X+X1sY=Y+Y1 

16159 IF X<9 _UR X> 日 DR Y<9 0UR Y>B THEN F 
=ー1 : GUTU 16199 

1616 ら K=BD(X。Y) 

16179 IF X=XUH RND Y=Y0H 
16199 
161 ビ 9 
16199 
1 6299 
16291 
16 つ 9 つ 








THEN 0K=ー1 =: GUDTO 


IF K=9 THEN GUTOU 16149 
NEXT 


TF OK THEN RETURN 
IF XS=9 THEN RETURN 
1625 の BD1=BD(X5。YS) = BD2=BD(XD、YD) 

162 つ 6 の BD(XD。YD) =BD 1 : BD (XS、YS) = の 

16399 “一 

16319 FUR J=9 TO Z 

16329 DX=DRK (J ォ 2) : DY=DR (2+1 ) 

16325 D=DX+DY#9 

1632 フ 7 X=XUH: Y=YOH 

16 さ 33 の 9 FUR N=1 TO BB 

16349 X ニ X+DXsY=Y+DY: IF X<9 UK X> 日 OR Y<G 
DUR Y>B THEN N= ヨ : BUTU 16499 

16359 IF BD(X。Y)= ら THEN 1649 の 

16355 IF BD(X。Y)< く ら THEN N= 昌 : BUTU 16499 
16369 BUSUB 16599: N= ヨ 

16499 NEXT 

16419 NEXT 

16429 BD(XS。YS) =BD1 =: BD(XD、YD) =BD2 

1645 ら RETURN 

16599 『" 
16529 K D(X。Y) 

165 さ 9 PUKE KONA。K: N1= ニ USR9 (の) 

















N2=USR9(N1+ 


1 ) : IFN2=9THEN RETURN 

16549 FOUR 1=N1+2 TU N1+N2+1 

1655O に =USR9( 1 ) : IF K ド =D THEN ロ K=ー1 

16569 NEXT 

16579 RETURN 

1799 の 9 *ー 

1791 の 9 ”* 

17929 BUSUB 17899 

17925 N1= ニ NN: IF N1 ぐ < ら THEN _N1=&H199+(N1 MO 








・ YST+YGP*9+Jー1 ) 
1 ヨ 91 ロ NEXT 

5 ら FUR Is=9 TUD 

18c LINE (IXSP+XST 。 
YST+YSPX9-1 ) 。PSET 。9。 晶 
18939 NEXT 

1 ヨ 94 ら FOR JI=9 TO 
18959 LTNE (XST、IxYSP+YGT) 一 (9xXGP+XGT-1 。 
YST+YSP*T) 。PSET。9 

189 ら 9 NEX1 
1 ヨコ 979 LINE 


。 PSET。2。B 











YST) (TXGP+XGT+1 。 


(HIESFX- さ 。 MESF YSー つ ) - (MESPX+ マ 
NESPYE+ つ ) 、PSET 。 1 、 BF に 
1 ヨ GG LINE (MESPX- さ 。 MESPYSー- ラ ) (MESPX+ さ 4 。 
NESPYE+S) 、PSET 、5。B 

18199 LINE (THMX-}1 、TMYSー 
) 、PSET 。 1 、BF 
18119 LINE 
) 。、PSET 、6。B 





マコ) ー(TNX+56、 THYE+S 





(TIMX-1 。TMYS- う ) 一 (THMX+56。TMYE+2 





18112 LINE (HEX-2。9) 一 (MEX+1 2 日 。 22) 、PSET 。 1 
・BF 

18114 LINE (MEX- う 。 の ) 一 (HEX+1 2 日 。 22) 、PSET 。6 
・B 

18129 FOR J TU 1:X=TMX+155 TMYS+TNSP 
+TMSP ォ J 1 * フ ェ ュ ド 2 ビ +J 1 : GUSUE 日 さら 9 ら s NEXT 

1 コロ 139 MYS+TNSP+TMSP#4 = に =&H さ 2: GOD 






SUB 3@c ささ : BUSUB 日 39 
18149 MX+15: Y= THNYS+TMSP+TMSP*6: に ド =&H2C 
: BUSUE 日 さら 9 
18174 X=NEX+ 9: GUSUB ヨミ 99 
18176 X=MEX+ 1: GUDSUE B399 

181 ヨ 9 LUCATESCX 、SCY-1 :PRINT "コア ー リ 

18199 LINE(SCX#16。(SCY-1 ) 日 )-( (SEX+4) 16 
ー1 。 (SCY-1 ) * 日 + ) 、 XUR 。6。BF 

182OO_ RETURN 

19O99 "一 

19 ら ら 1 RESTURE 19599 

19992 FOR 1I=9 TO Z 
19993 READ DR(TIx*2) 
19994 NEXT 
1911 ら RESTORE 
19122 READ NO 
191 さ の FUR 1= の 9 
19149 FOUR J= の 
19159 NEXT 
19219 RETURN 
19599 * 
19519 
>1。 
2eeg9 *ー 
つ 22299 
26321 の 9 DQTA 6、 ら 。19。 一 1 。 一 1 。 1 1 。 1 日 。 日 。 19。19。24 
> 日 。 1 の 。2 ロ 。 27 。 日 。 19。 2 日 。 つ 9 。 日 。 19。2。。 一 1 。 一 1 















。・DR (TX2+1) 
9299 


TO _N9-1 
IEAD MS(1I。J)sNEXT 





1。ー1。9。 一 1 1 、 ら 。ー1 9。1 、1。 一 1 





リス ト 2 

















ーー PICO シ ミウ キビ で = 
Rdd す の 1 + つ る 二 全 すら す 6 + プ + 日 + す 9 +Q 41B + ビ +D+E+ ィ F | 29 の 9 GO G9 の 9 99 の 9 G9 99 =: う 1 
55go 55 55 55 55 55 55 AR QR aa AR QR QQn 55 55 SS5 55 1Q 5G B7 FD GF E6 BC F3 19 :EE 
551o 55 55 QA QQ QQ QA QR QR Oo 99 99 5 らら らら 49 5 49 5B 49 58 49 5 49 :4C 
552o 2O o5 94 さ 9 96 BB OO 34 91 1Q 5 の BZ FD ら F EE BC Bo C6 9 4 34 91 69 21 69 :SD 
5539 F< ao BC EE 2B Ga 19 BE O1 68 BD 49 BD 1B 29 14 5 26 F9 31 2 っ 2 6 E4 26 E6 :BE 
54 ウ 4@ BD 42 49 BD 13 39 C4 BD 29 39 BB 78 BD 1B 39 F 呈 35 F6 さ 4 36 ヒ 6 7 31 5 :89 
555o BB 7 BD 16 B6 FD 9F 35 1 34 76 Co6 B4 6 89 87 69 Q4 4 26 F9 66 B@ 31 3F :o8 
呈 6 ウ 9 CO Q6 ヨウ QA7 C ウ QA 2 つ 6 F5 355 F6 34 36 ヒ C6 7 31 5 s4B | | ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
557o さ 1 さ 3F 554 6 GB 66 B4 69 Q4 4 26 9 3F Sum: 94 55 ES B1 5B 4 7 :F4 
5S5B9 SQ 26 F9 355 B6 34 96 ヒビ 6 7 4 3D BB 
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リス ト 2 ショ ウキ SB 

dd 。 すす 1 オ す 3 + 人 4 +9 +A + 日 すじ +D + す E+ ォ F Gum Sum: BE 1B 5 の 日 1 さ 7 7E 93 EE SQ BS B3 7 BF 7F QAE BE =:1 
9699 16 99 99 16 99 
5619 ?D 5Q ?D 5A D3 

Rdd  + の す 1 オ つ + さ + す 4 + す 日 + す 9 + す 内 す 日 す オビ +F Sum 

5BG ら 9 99 3 BF 3F BD BD 99 さ 2 BF 33 ぅ BF フウ 

5B1G ミ 2 = BF BF 3Q ヨ D 3 8D 99 :aE 

5 た Bo 17 99 

に 9 1 ア ら 

紀 B7 FD 

紀 Bn 9 

5 99 9 ら 9 

紀 99 

9 の 9 

5 99 

に 99 9 ら 9 

5 の 9 の 9 

紀 99 9 の 

に る 99 

ョ 9 ら 9 

5 の 9 99 


人 dd 

799 
8719 
5729 
5739@ 
5749 <: 
5759 
76@ 
85779 
57 昌 9 
5799 
57A9 
7B9 
7C9 
7D@9 
57E9 
57F9 


年 + ピ +E Sum 
93 
11 
EF 
RE 
96 


91 





ロロ で ひひ で ひひ OOmD 





9 人 8 





64 


BE 


キク + フ 
HZ 
9 
61 


DB 5a 
Sg 
99 
99 








+8 
BD 3 
3F 


99 
99 
99 


+1 
8F 

99 - 
BF 
@9 42 
38 
41 
38 
4F 
4F 
99 


+ 晶 
99 3D 
3 


+ 
BF 
99 
BF 
99 


+ じ +D 
BF 3D 
38 
41 
38 
41 
BD 
44 
46 
5g 
9 の 
4D 


Sum 
: BZ 
ミ さ F 
HLA 
: う 
: コ 4 
99 
: CR 


F 
ヨ F 
99 
8 
FF 
ら g 


38 
41 
38 
49 
49 
4B 
FF 
46 
4 
44 


99 43 
BF 44 
BF 
46 


3C 


FD 
38 
BD 


BD さ 3 


3F 3F 

















Add 

5D99 
5D19 
5D29 
5D39 
5D49 
5D59 
5D69 
5D79 
5DB9 
5D99 
5Da9 
5DB9 
5DC9 
5DDG 
SDE ゥ 9 
5DF9 

















Add 

5Feo 
5F1o 
SF29 
5F さ 9 
5F49 
5F5g 
Fe 
5FZ@ 
5F8@ 
5F9 ら 
5FA@ 
5FBo 
5FC ゥ 





+ け 
29 
ED 
8D 
39 
A5 
ら 9 
SE 
F7 
@55 
@9 
71 
FF 
FF 
F7 
98 


+ ら 9 
る 9 
7Z 
19 
29 
99 
99 
99 
99 
99 
ら 99 
らら 
99 
99 





99 


99 


+1 
9 の 
99 





9 の 
99 
99 
99 
99 
99 
99 
99 
99 
99 
99 
99 


99 


+1 


95 









99 
9 の 
CIC】 
99 
515】 
ISIC】 
99 


+2 
の ら 
99 
9 の 
99 
99 
99 
9 の 9 
99 
99 
99 
99 
99 
の の 
99 


99 


99 


92 さ 


9 ビ 
91 
E6 
さき 
9C 
F8 
F6 
99 
9 和 4 
91 
91 
FF 
9 


+1 
9D 
1 
RC 
E 
ら 9 





59 
人 生 
SE 
SE 
FF 
F 
94 
F ら 6 
9 日 
に 1 
91 
99 


叶 妥 
22 
19 
4 
B6 
99 
99 
99 
99 
の 
らら 
らら 
99 
99 


+ る 3 
9 の 
う 


らら 


じ 】 
99 
99 
99 
99 


+ さ 
99 
99 
99 
99 
99 
の 9 
99 
99 
99 
99 
99 
9 ら 9 
99 
99 







99 


+ さ 
9F 
BD 
人 4 
に 】 
4F 
6E 
谷 ら 
91 
9 日 
FZ 
F 
9 
9 
99 
CIS/ 
99 


+ さ 
らら 
EZ 
24 
FD 
99 
99 





らら 
らら 
らら 





ら の 9 99 


E4 
















































+ 人 4 + 司 +6 + プ 7 + 日 +9 + ヒ 
99 99 99 99 の 9 99 99 
99 ロ 99 9 の 9 99 
99 99 99 99 
99 の 9 99 99 
の 9 99 のり 9 
9 の 9 99 
29 99 
の 9 99 


99 99 
らら 
99 
99 
9 の 9 
99 99 99 
9 99 99 


99 
99 





+B の 
の の の 99 
99 99 
29 99 


+4 
らら 
99 
99 
99 
99 
99 
@9 
99 
99 
99 
ら の 9 
99 
99 
99 
99 


99 99 
99 99 
99 99 
29 99 
















99 99 99 の 9 99 99 
全品 +6 +7 + 日 + す ウ +aQ +B +C +D +E +F Sum 
29 1n 99 ヨ D 25 CO 94 4F 5D 2 @1 43 =:1E 
19 1F ウツ 4F 5Q 5D 2 91 43 ED 92 39 =12 
4F 9 こ Q @1 4、 う ト 9 
に !9 さ 1 BD 99 16 19 QE 6 31 7 
CB 99 27 92 2 F9 9 @1 CB 9 さ 
SE SE B7 SE BB SE BF SE 92 s6D 
5E SE BE 5E C6 5E D4 9 F6 :8E 
98 96 F7 FF 9@1 9 99 9 99 sk23 
9 11 1 さ 3 99 の 1 99 91 99 @1 =:49 
EE F7 FF 91 @9 94 F6 FB 9 :GB 
9 日 FF 91 9 99 GOQ の 99 @6 F プ =:23 
9 谷 FF 91 9 99 OR の 9 96 F フ 7 =: さ 9 
9a F7 F FF @1 9 9 9 94 :2Z 
eg FF 9@1 9 99 9 6 sFRA 
99 99 99 99 99 99 s12 
F4 







4D 








EE SD 
全 オ + す 6 + プ + 日 + す 9 +Q + す 日 + じ Bum 
99 68 99 BO GO 6 99 ヨ 9 99 sZB 
FD GF さら 9 ヨ C E ウ E6 9 19 gE の ビ 
ら 6 6 RG 7 CO 2 ら 9 F5 Sa 27 sE5 
9F さら FZ O9 9 99 99 99 99 sFZ 
O9 99 99 99 の 9 99 99 99 99 : ら 9 ら 
99 の 9 99 99 9 の 9 GO の 99 99 99 ルン 】 
99 OO OO 99 99 9 の 9 99 CIC】 
99 ら 9 の 9 9 の 9 99 99 99 99 
9 の の 9 の の の 9 の 9 99 99 1 の 
99 の G9 OO OO ら 9 99 99 : ら 9 
2 の の 9 OO ウ 99 O9 の ウ 99 の 9 99 ら 99 
99 OO OO OO の の GO GO GO 69 99 
らら ら 9 の 9 9 ウ GO ウ 9 99 ウ 9 0 99 99 9 の 
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リス ト 2 

















ら 6499 19 ヨウ 1 の 9 GO 20 ヨウ 3F FG 99 BB 
ら 4QO GO GO 1F E9 19 99 1 の 99 19 99 19 


て 


5FD9 


5FE9 99 99 












5FF9 9 け ボ 99 64B@ 19 99 19 OO 1 の 929 1 の 9 19 19 6 日 
ら 4 じ ら G9 67 CO 6 29 19 19 1 の 9 9 19 
ら 64D ら 1 の 9 19 19 19 19 19 19 19 19 9 
ら 64E9 29 1F FG 19 19 19 19 っ 99 全 ② >・1F 
64F の BG GO 9 BO の 92 日 9 fsTc] 





99 9 59 CF 9 6 < 4 1 の 9 4 


dd 。 + の +1 + す 2 + う 和合 + + す 6 + プ + 日 キ 19 + 人 R +B オビ +D + せ E+F Sum 
ら 99 の 9 99 1 昌 7F E ウ の 1 9O9 91 GO9 @1 OO 3F F 91 の 9 91 69 =: 日 き 






























6919 91 69 FF FE 9@1 c 21 99 91 
ら 9S9 29 29 FB FE 99 ョ 
6 らき 91 FC 91 9 和 4 F9 dd す の +1 ユキ 十 征 品 キ ら 6 ユア 日 +⑦ + 人 A+ 日 + ビ +D +E +F 















Co OH 2 19 19 19 19 1 の 9 19 98 2 の 97 C9 
19 19 19 19 19 19 19 GBS の 9 ア 99 9 


6 らら 


ら 9449 の 9 
6519 


ら 69 呈 9 人 G1 


FE 91 99 
21 の 6 


91 @9 91 
321 @69 21 

















ら 6969 19 22 12 44 12 8 Co _ 98 29 19 19 1 の 9 19 19 19 1 の 19 19 
6979 フ 7F 49 @B 7F 7E 41 Do eg 19 29 19 19 19 GB 2 EoS7】 
ら 69 ヨ 9 99 91 FC BE 69 79 の 9 99 99 9 29 OO 99 

6999 の 4 の 4 99 94 GO 92 99 G9 99 99 69 GO 99 99 

ら 9n9 91 GO 84 3 FE 7 ヒビ 299 99 99 99 

69B の 9B 9 ら 6 B9 G9 BO 91 99 OO 99 99 OO 99 

ら 696C9 79 99 2 の ら FB FE の ②9 49 94 2 の 9 6 19 2 の 





G コ 92 6 ヨ g4 9 ヨ 94 9 9 日 
29 1 の 2 の 11 24 11 22 FD 
っ 4 4 6 99 9 1 の 9 19 19 
FE FC 42 94 42 94 42 9 日 
42 1 の 6 日 2 19 2 19 4 11 
の 2 91 2② 7F FC 41 @4 41 @4 41 @4 41 9 和 4 
94 プ F FC 41 の 94 91 9 9 は 1 の 2291 99 91 9 


ら 9D ら 
ら 9E ウ 


Io】 91 F ヒ 91 9 邊 上 マ 
1C B9 91 99 9 


2 の 99 


















仙 dd +9 + さ る + 人 4 + 品 + す 6 + ブ プア + 昌 + 仙 + 日 + ビ +D + ビ ヒビ + ビ ーーーーーーー ーーーーーー-~ 

ら 6199 91 Bo の 9 B9 41 さ 39 3F 91 Do9 EB1 5 CE 54 CO 

6119 9F 99 91 の 99 OF 99 11 1 1 

6129 99 49 19 29 9 29 9 日 98 

61.39 99 日 49 9 CG 6 49 9 日 98 + 品 すら 6 + プ + 日 す 9 + 人 A TB +C +D +E +F 
6149 99 の 99 91 の 69 92 99 コ 94 = 





2 OO OS OO 92 OO GO2 99 





23 9 


6159 9BE B4 19 4 29 4 69 ヨ 49 29 の 22 9 9 の 9 92 の 29 FF FE 99 99 





6169 FB S9 98 3F F B ヨ 4 BB さ Q 99 2 の 9 49 9C 49 4 年 
6179 FC 22 94 3E 44 24 9 2B Q ウ RA 19 AS 2 2 人 4 C6 
61 昌 9 FE 7C 9 の 9 5O 99 99 FC 19 






42 42 42 7E 7E 42 42 42 42 ZE 7E 


ら 199 FC 19 99 2 4 24 日 44 













22 44 44 22 47 E2 44 449 9 ら 6 
61 人 9 E9 91 99 の 1 99 91 99 3F 9 2 の 9 29 6 F ヨ 29 5② 698 
ら 61HB9 FE 91 99 91 99 91 99 91 9 日 29 9 昌 SO 68 2 3F 8 
61C9 FE 54 29 84 29 54 FC 54 29 FB FE G@9 29 G9 29 F 日 91 FC 


61D9 
61E9 @G 
ら 1FO9 9 全 


FC 54 84 54 4 54 FC ら 54 
BE 69 79 BB 91 94 92 29 92 19 
9 人 4 


FC 91 の 24 F9 94 ヨウ 94 9 
9G9 94 ヨ 4 52 44 32 4 日 19 
9 12 6 11 6 19 日 1@ 


は 
19 2 
19 3 日 





ら 6 人 9 
らら 6RH② 















ピー らら じ 9 FE F9 GB 21 9 61 F ヨ 61 BE1 9 
Sums 7 99 BS D ヨ D4 5C 11 5 _CF DC 1 C4 Ba ら 66D@ 9 27 FE 2 の GO 21 6 22 24 6 





らら 6E ウ FC 99 ヨ 9 97 FB E4 9 24 


F ヨ 24 9 24 9 227 F ヨ 59 


2 ア 7 F8 
BF FE 

















































Rdd 。 +9 +4 +5 +6 +Z + 日 + ビ ピ ーー 
ら 6299 99 4 の 9 29 29 29 24 29 2 3E a1 
6219 49 59 29 51 E9 62 3 22 24 21 
6229 94 92 3 の 9 22 CO 1F 99 94 99 9Z 
6239 144 46 9 4 GB 3 日 19 91 + + 呈 すら +7 + オ 日 + す 9 + す 人 Q +B + ピ +E + ド 
ら 2 人 4 の 9 9 は 99 CO 9 2 の 9 12 19 12 FH G フ 23 FB FQ 6 25 FB 29 Py 還 ココ 
6259 14 98 2 の の 9 29 99 49 91 FC 94 さき 1 144 E6 24 99 C4 89 1 日 
6S69 99 91 99 91 ら 9 91 99 91 の 9 99 99 9 9 0 OO 99 9 99 9 
6279 91 91 の 91 99 の 1 GO ②1 9② FF 99 の 09 99 GO 2 OO 9 99 696 ISTc ST6】 
62 ヨ 9 99 91 91 の 9 91 ト 515】 【21 と 5】 29 9 GO 99 の 9 
6299 91 91 91 99 @1 ② の 9 の 9 9 の で 9 99 6 9 696 
ら 63BAO の 9 91 FC BE 69 79 51S】 90 の 090 99 9200 GO の の ② 99 9 
62B9 94 99 94 29 92 2 [51o】 99 の 9 99 GO GO 6 99 9 
62C9 99 49 29 2 の 9 29 24 6789 らら OO 91 OO 91 GO9 91 91 9 の 
SED の 49 9 29 1 E9 62 ら 799 99 9 @1 91 99 91 GO 99 
62E の の 4 92 39 22 Cg 1F 67A9 FE oo 44 44 925 2C 44 FE 
62F9 144 42 6 日 46 @G 4 9 3 日 og 9 人 4 生 人 4 人 9 4 人 4 C 7E 
9 ゆ OO 29 OO の 2 GO の の FF FE 
9 の ら 99 99 99 9 の 99 99 99 99 
99 99 7F FC @1 @9 6@1 91 99 
9 9 49 9 人 4 29 9 日 C9 96 





dd +② オ 1 4 
6392 929 99 1 の 
ら 6 さ 19 14 19 14 
6329 96 29 FB 
633 の 9 FE 22 92 
6349 94 の 9 92 


+4 + 避 + す 6 + プ + 日 +9 +Q +B +C +D + ピ E+ ォ F Sum 2 の 
9H OO 99 CO の の 29 12 1 の 12 1 の 14 19 =7 さ 3 Sum: ヨロ 6 9 GE F2 GBP 2E 61 5 6F SE EE E9 5 16 BB 96 :55@ 
9 日 19 9 29 99 96 99 s6F 
1 の 2 の FE 2 の 1 の FE FE 22 92 22 92 22 s22 
92 22 FE 22 19 22 FE 42 19 42 FE C =:F6 Add 。 + の 9 +1 +2 + さ 


92 OO 24 G9 97 99 5B Bo 6 8 9 4 :9Z 6 ヨ 99 G9 9G 29 99 













+ 品 + ら 6 +7 + +9 +Q +B + ピ 
99 99 GO9 9 さ 3 CO 99 GO9 9 





6359 @B B4 19 19 B2 29 B9 325 O9 43 G9 42 99 99 99 :FA 6B19 @9 9 さ FF Ce 29 さ F FF FF FC 
6369 99 9 の 9 99 19 29 9 日 2 の 6 日 29 9 3E BF C9 7 49 =s9D ら 682 の 9 99 9②9 に ド 世 ビ FF 99 @1 FF FE 






928 49 6 日 9 ピロ C9 GO ヨロ 49 6 9G9 9 ロビ 99 97 FO 99 99 sk ロア 6 ロウ @1 FF 9 ゆけ 
の 9 4 日 の の 人 444 99 49 フ F FE 49 49 49 44 49 44 7E 4 日 :9Z 6 ロ 4 の 9 9F C ウ 9 97 CO 
42 4 日 4 る 2 42 2O 42 29 4C 59 49 99 3 9 ヨ ② @6 >sSF 68559 9C G9 さ F F9 
19 99 6 OB 99 2C E9 19 19 6 19 9C 19 1 日 19 =:F さ 6B6 の 9 1F CG 1@ @9 
18 28 2 の 29 6B79 @F FC 7F FF 
96 9 9 の 6BBo じき ビ さ FF FF 
99 99 69@ FF さ F FF FF 
99 99 ら 68A ら FF 7F FD FF 
99 99 6BB ら FE 7F 3F DF 
68CG F フ 2 FF FF FF 
6BD ら 7F F7 DF FF 
ら 68BE9 9F EZ CF FD 
6BFe 55 55 54 15 


FE 72F 3F CO 9@3 
9Z FF FF FF FF 
2 に eK 4 の 
の ド 。 ECRS PIE に 
FF FF FC さ F FF 
さ F FF FF CS FF 
ら G9 さ F 7F FE FF 
FD FF 99 9@9 FF BF 
?F DF F7 CO 99 99 
2C_ 99 3F F7 EF F9 
DF CO 1 の 9 99 @3 FB 
9F FD 7F FF FF FF 
日 3 C2 aa aa 55 54 

































4E 








Rdd 。 +9 を 竹 才 計 人 お ギア キ 時 の ボボ な HB に お 6E。 BE > に ーー ニー ニー ラー ニーー ニ ーー ニニ ンー ニコ ーー ラニ ー ェ ニー ニー デー ンー ジン ーー ーーー ニー デー ーー ニー ニー デーー デ ーー 
ら 499 99 9 29 19 19 19 19 19 19 19 19 Sum: 95 さ 3 QD 4F 9E BE2 D2 5C BE9 6C aF DS5 99 18 @ 晶 

6419 19 1 の 9 19 19 1② 19 9 29 97 C9 

ら 6429 99 93 99 95 99 91 91 91 69 





dd すら G 1 ユー+ さ + 人 4 + 巳 すら 6 + プ + 日 +9 +Q + ヨ + ビ +D +E +F 
69G6 15 55 aQ 日 S FF FF C2 an 55 SF FF FF FC 55 aaA FC 
6919 ら 9 GO さ F 2 54 FF FE 7ZF FF 55 QA9 FF FE 7F FF AA 
6929 55 FF 99 99 FF 95 AB FF FE 7F さ SF Ca 53 FF FE 7F 
6939 9F D5 AZ CO 99 ②9 93 EQ らら 7 FF FF FF FF E5 AF F さ 
6949 9C GO さ F F2 4F F②9 19 9E 7F F5S F FF 9C C9 CF Fa 


91 9 の 9 91 G の 9 @1 G9 @1 927 CG9 
oB 29 19 19 19 1 99 19 699 29 
94 99 9 ら 9 1 の 9 の 9 19 19 1F F9 
G 昌 2 の 9 19 16 G9 19 99 1 つの 9 2 の 
Go 1 の GG 19 19 19 6 27 C9 
G1 9 92 BG Go2 ヨ G 94 9 94 9 





ら 64 の 91 
ら 6469 99 
ら 6479 99 
649 99 
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リス ト 2 ショ ウキ ギ SB 
6959 99 G3 F9 BF ドミ 9F FC 7F FF FE 7F FF FE FF FF FC FF FF FF FF 
6969 FF FF FF FE CS ヒ 3 FF FF FF FC 3F FC さ F FF FF C ミ FB 9F CS FF 
6979 9 GOG 3C FF 3F FE 7F FC FF FE FE @@ 99 7F 7F FE FF C6 63 
69B FB FF 7F FD FF Go 99 FF BF FD FC 1F FB 3F BF FBE1 
699@9 7F FF Bo BO の 1 日 さ DF FE FF ウ F F9 FF DF FZ7 FF Bo 91 FF EF 
6 の RG 79 23 FF E6 67 F フ 7 FF FE 7F FF EF EF FE Go 99 7F F7 EF FF FE 7F 
69BO G7 FF FF FF FF EO 9GF F ラ FF F7 DF FE go FH DF FE 7F FE BF FF 
69CO 7F F9 1F FF 9C CS CF PF FE プ F FF FD BF FB Oo go 9F FD 7F FF FE 7F FF FE 
69DG 9F EZ 9F FE 6E9o の 55 55 54 15 55 55 QQ QA 3 C2 QQ AaQ 55 54 3F FC 
69EO FF FF FC 3F FF FF FF FF 6EAG 15 55 QAQ 3 FB OF C2 QAQ 55 3F FE 7F FC 55 AQ FE 
59FG FF ド E1 87 CS FF 6EHO Go OO 7F 2 呈 4 FF C6 6 ミ 3 FF 55 Q9 FF @G ら o FF AA 
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 6ECO 55 FC 1F =F 95 QB E1 Bo 91 日 ミ CQ 53 FF 9F F9 :Be 
Sum: DE 1Q 55 99 5Q GF Q5 3 6EDo FF D5 Bo @1 FF ER 57 FF FE 7F FF E5 aF FE :4B8 
6EE9 GO og 4F FF FE 2F FF F5 9F FE 7F FA :46 
6EF9 5F FE 7F F9 EF FF FE FF FC 9 4 
Add  + の +1 オ すす 3 + 人 4 + 王 +6 + プ + 日 + ウ 9 +Q +B + ビ +D +E +F Sum ーー ーーーーーーー 一 ーーーーーーーーーーーーーーーーーーーーーーーーーー 
6Q9G FF FF 1F フ 7F FE E ミ 99 GO C7 7F FD FF FE 7F FF BF :FA Sum: Bo 6 9 Bo 5F 49 29 QB D1 1D FD D5 
6Q19 FD FF Bo G1 FF BEF FF 9E 79 FF DF FB FF E6 62 : フ 1 
ら Q2O FF DF F7 FB GO GO 3F EF FZ FF FF FF FF EF EF F3 :BF 
6Q39 9C 99 3F F7 EF F9 19 9E フ F F7 DF FF 9C C9 CF FB :EB add +2 + す 6 + ア 日 +9 +C +D 
6Q49 DF CO 1 GO 93 FE BF F3 9F CF CF FD BF 6Fgg 7F FF FE 99 Go go 
6n59 2F FD 7F FF FF FF FF FE 555554 15 855 99 ら 9 9 < F FC 99 99 FE 7F 
6A69 日 3 C2 QQ QAQ 55 54 3C 3C 15 55 QAQ B3 E1 CE @1 FC go go FF CE 7F Go F 晶 
6R79 55 3F ら F F9 FC 55 AA FB FFPFF IF 2 54 @1 FF BE 79 FF Bo 91 FE 7F Be 
6QBo C7 55 Q9 FF FE 7F FF AA 1F CO 9 ミ FF FF GF FF CO Bo 7F 
6A の 9 9E 79 FF CA 53 FF E6 67 EZ FF FF E9 GF FF BF FF 9F FE 
ら 6QA② 弓 7 FF FF FF FF E5 AF F3 1F ?F ド F F 昌 1F FE 7F CF FF FBg 
6BO 7F 9C C9 CF FA ら O GO 97 FC 3F FF 3F 9F FF FC 7F FB 7F C ミ 
6ACO 9F 3F E7 9F FE FF FF FF FF FF FF FF FF FC 
6AD9 9 99 の 99 99 99 さ F FE CS FF CE 91 FC FF 
6AEG さ E3 FF C9 69 6FRO CE 7F 9 の GO9 FD FF BE 29 
6aF9 6FBO FD FE 3E 7 ビ FH Fg 1F DF FE FF 
ー 6FCG FF DF F7 FF FF EF E フ FF FF EF 
Sum 6FDo BF FF FF FZ 9o oo DF FE 7F SF 
6FEG DF FE 7F CF BF Bo 97 FD BF FF 
ら 6FFG FF FD 7F 54 15 55 55 
Add  +② +1 2 + る 4 + ロ す 6 + フ ー ーーーーーーーー ーーーー ーーーーーーーー 
6B99 ら 1 BO 3F B9 93 FF Sum: 24 A2 Ao 4B 22 9 B4 
6B19 97 FB 9@1 日 1 B1 E9 
ら B2O 79 99 1F F9 9F E9 73 3E 
ら 6B3 の 9 1F 9 69 99 91 FB 3F E6 dd + す 9 1 す キミ キ 人 4 す 曲 すら 6 オプ + 人 Q + す 日 + ヒ TE +F Sum 
@6B4 の 9 ら F_FD 7F FFP PFF'FF FF FE 7999 コロ さ 、 3F 5 FE AR :FD 
ら 6 ロ の ES ESSE 所 FFPFE FC SF FC 3 た に 7219 5 紀 AA FF 54 FB 99 9 s1F 
6B69 FF 3F 19 B9 3C FF FE FC FC 9F 3F 7F FE 1F 55 FF Aa 7F 95 QB F9 :BB 
6B7O さ F 7F FD FF CF 9F 3F BF FD FE 91 B9 3F FB 63 FF eGF Bo 7F FF EQ :9o 
6BBO CF 93 CF DF FB FE 49 9C 3F DF F フ 7 FB 91 弓 プ FF RF FF 4F FE Go oO: 
6B99 F7 FF FF FF FF EF EF E6 79 99 1F 7955 ら フ F F5 紀 FF Fa F HF い り 
6BQO 7F F7 DF FE 79 99 CF FB DF Bo 69 ァ o6GO GO GO SF 9F 7F FF FE :D1 
6BBO 7F CF CF FD BF E6 7F FE GF FD 7F 2929 go go eg 9 99 3F FC :FE 
6BCo 55 55 54 15 55 55 QAQ QA B3 C2 QAQ AA 55 54 3F FC =BE ZoBo FF FF CO 9 9 の 3F 3C go go FG saD 
"6BDO 15 55 QA 3 E3 FF C2 QAQ 55 SF 19 9 3C 55 aa FC =:49 フウ 9 ゆ GO FE フ ビ 7E 39 の 9 GO @1 日 
6BEO FC 9F 3F 2Q 54 F2 @1 B9 < 7gQo 1F Bo o3 FB FC 78 9 FC 
6BFo 5 FE の 1 BO 3F 95 AB FF 79Bo FE FF FF EG 6 フ 7 FB 1F EG 6F 
ーーーーーーーーーーーーーーーーーーーーーーーーーーー 7oCo GF FB 9e GO 1F ド 9 FC 7F 9F 
Sum: SE 5Q D5 99 56 B9 4F 96 ZDo 1F FB SF FF FC 7F eo 
79Eo FC 7F FF FE FF FF F FF 
79F9 FF FC SF FC SF FF C3 
+ 介 + 品 +6 + フ + 日 +9 +Q + 日 + ヒ +D ーーーーーーーーーーーーー ーーー ーーーーーーーーーーーーーー-~ ー こ 一 ーーー 
の 1 日 1 日 1 EQ 5Z FF FF FFPFF E5 Sum: EB 1D 9C D6 さ 4 BE BF 9E BC 7D E 89 B5 eo 5C 
4F Eo 73 3E 7F F5 9F FE 29 99 
@1 F9 HF E6 7F CF CF FC 3F E6 
お E ネ EzRERIRE 99 6 Add すら キ 1 キキ ミキ 4 + す 5 すら 6 オプ + オ 日 19 +a +B +C +D +E +F Sum 
99 99 Go SF FC フ 1 ら 9 FF 3F BOO @1 3C FF FE FG さ C 7C CF 7ZF FE FE 
6C59 99 3F ?F F3 FC 9@9 99 F 晶 7119 39 フ F FD FG GO 91 BZ BF FD FE 7C 79 1F BF 
6C69 FF 99 91 7129 FC 7B C4 DF FB ES FC 7C ら 1 DF F7 FF FE FF 
6C76 5F 99 3F C9 フ 13② F7 FB 99 99 1F EF EF FF FC 7F FF FZ7 EF F 9 
6CB9 97 FF FF FF FF E9 @F FE 7 フ 149 1F F7 DF F9 FC 7F 9F FE DF FB 9G9 99 1F FB BF FF :EG 
6C?O FF F ら 1F FE 7C 7F FF FB ァ 15G FC フ F FF FD BF E9 bo G9 9Z FD 7F FF FC 7F FF FE =:19 
6CA9 3F FB 9g 91 716o 55 55 54 15 55 55 QR QQ BS QR AA 55 54 3F FC :BE 
6CB9 ERRNEEWEEMEE 7179 15 55 QAQ B ミ FF FF CS QQ 55 Bo g1 さ C 55 QA FG :41 
6CC9 FF FF CS FF 71BO 3C 27C CF 2Q 554 FE 7C 7E 9 55 QA ウ F の @O @1 日 7 QA :56 
6CDo FE :FF 9F F さ 7199 55 FE 7C 79 1F 95 AH F ヨ FC 78 C4 CA 53 E3 
6CE9 6 ERBES5 有 所 フ 1QO ら 1 D5 Q フ 7 FF FE FF FF EQ 57 FB oo @9 1F E5 
ム CF の 6 FF DF F7 FF 9C 99 97 EF テ 1BO FC フ プ F ド F F2 4F F GO Go 1F F5 9F F9 FC 7F 
フ 1 ヒ 9 5F F ヨ ②9 の 9 1F F BF FF FC 7F FF FC さ SF E9 
2 4F 99 43 6D 7C DD aB 95 Q4 7 CQ :95 ファ 1D6 FF FC 7F'FF FE 9o 9e @@ @9 9@ 99 
71E の に 31 FC の 9 99 929 93 E9 9Z 
フ 1FG 99 299 FC 69 GO 7F 92 99 FF 
Rdd  + す ② 二 1 オキ 十 全 オ 避 + す 6 オプ + 日 + す 9 +R + ロ + じ +D +E+ ィ F Sum ba テー F 
6Doo GO 93 FF F7 EF FE 7 ヒビ 7F FFF フ 7 DF FE 7C 7F 人 側 99 CE 
ら 6D1O DF FE ら 9 GO 3F FB BF FF FF FF 9F FD BFFB eo9 
6D2O 9F FD 7F FF FF FF FF FE 55 55 54 15 55 55 aa 
6D39 QQ QA 55 4 3F FC 15 55 AQ B3 FF FF C2 す の オキ 1 オラ ニー キミ +4 15 6 オフ + 日 す 9 + +B +C +D 4E +F 
6D49 55 3F 9F F3 FC 55 an FB 93 FF ogF フ F oo ら 1 FF CG 9@ フ F Bo 91 FF ヒア 1C 7F 9 9 さ FF 
6D5G FF 55 Q9 FE 92 g9 1F AaQ 55 95 AB Fo らら 7F C9 BF FC 7F C9 @ フ 7 F 1F FG 7F E ウ 
6D69 らら コ E3 9F F ミ FF の の 97 97 FF FF FF gF E1 Bo oo 97 F9 gF 9E 1F FF 
ら D79 FF ES AF FE FF Fo 1C Zo ら 1 FB 1F BB FF F ヨ FF FB 3F F8 
6DB9 EoREEE 人 R FF F FF FC FF Fo FF FC ZF FF FF FF FE 
6D99 SF FB 99 91 FF FF FC ミ =F FF FF FF FC FC 
6DQ9 の 9・90-26 。 の の 3F FF FF 3 E② 97 FF 2 FC FF FE FC 
6DB9 F8 9F CO 99 らら GG 7F FE FF 1C 7F 7F FD FF CG 99 7F BF 
6DC9 ら o FF Ce @3 FF FD FF 1 ビ プア F BF FB ド F Co GO 7F DF FBFF BF FC :BQ 
2D BNB の OB は 世 。 9 の 7F DF F7 FB 1F FG 7F EF F? FF FF FF FF EF EF E1 :7C 
DE dE 提 選 B6 @9 97 FZ EF 9E 1F FF FF ド 7 DC 79 FC GO 91.FBR :69 
DK DF BB FF F FF FE BEF FB FF FB FF FD BF FBFF F@ QB 
っ FF _FD 7F FF FF FF FF FE 55 55 54 15 55 55 QR QQ :B6 
Bu: 日 さ ビ 2 QQ QAQ 55 5 1 FC 15 55 an 日 3 E9 9 フ 7 C2 an :59 
55 ミ F 日 7 BF FC 55 QQ FC ら 6o oo ZF 2 554 FF C フ 7 1C :Eg 
7F F Cg oo 7F QQ 55 FF ヒ フ 7 1C 7F 95 QB FF :5a 
dd の 1 キー+ キ う +4 + ロ +6 + プ + 昌 + マ +Q + ロ + ビ +D +E +F Sum = 
6EG9 1F FE 99 GO 7F FB 3F FF FE 7F FF FC 3F F 昌 99 99 =: 5B 
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請 将 棋 道場 





リス ト 2 ショ ウキ SB 





池 束 合 、 の 7 電 押 RE お 休 4 お EDEEE- ポ ピ ム う DK 1 デー ニー ビデ デニ ーー ニニ ーー どー ニテ ピー デー ニー デー で の タッ ーー ニン ーー で ーー ニー コピ ーー ロー ニー ニニ ロー 
FF BF FC 7F DB 7 F 日 1F :51 
E5 QAF E ビ 1 6 99 2 
9 の 9 91 FnQ 5F BB 
FB FF FO FF FD 


GO oO GO の G ミ 



































3 る Co OO 9 
99 29 F ヨ 7Z C4 さ ご F 
9 ヒ 7 ヨ の 9 93 FF FF 
3 BO 1F E9 9Z 

F の 9 OF FF 9F 5 
E1 F9d SF FL 

EE か に に ド 記 

PF FF EGO 3F FE 
FI 

FF 








じ FF FE F! 
FF FF BF 
DF IFBH FFP :FF で F 
























dd + ら +2 + る +4 + 昌 + す 6 
ァ 499 F ア FF FF FF EF EF EF FF FF FF Bo 
7419 FF DF FF FF FF 69 
7429 FF FF FD BF FF 2B と 8 
7439 55 54 15 55 AA : 9B OH 人 ウン の CSLoNO。Z 放 中 +F Sum 
フ 744 1 が Y FE CS2 : BC 7999 る CF FF 99 99 CO 91 C9 
59 3F gF 2 54 1a 9 5 
746o 55 93 eC 6 フ 2 : C8 PE ら 
7479 FF 7 FC 6 さ 1F ェ ア 1 E9 4 
ァ 48o 93 1F F= 4F 9F :EB F8 E 
2499 9F BC E1 BF :EB FF D 
74QG Eo 7F FF 上 ド FF FE Aa 
74Eo 99 OO GO 99 3 ヒ : 6F FF 5 RB 
24CO gg 3 99 :54 7789 FF 8 
74DO 3F G9 の 1 s D5 7779 FF 人 
E9 FF FF GF : OB 7?N9 EF 9 
79Bo FF 
7Co FF 





7?Dog 55 55 54 15 55 55 
29EG 1 55 QR B3 FF FF 
7 ウ FO 3F CF FF 2 54 Co 








dd 。 +9 キ 1 +2 
7599 27 FO 1F 


+ 人 Q TB + ビ +D + ピ 
7F ら 69 GF F 3F 

















Sum: DS 2F 4BH FZ 9 E9 





F9 FF 7F FF FF FF FF 
FF FC FF FF FF FC 3F 
FF FF FF FF FC FF FE +2 +3 +4 + 昌 +6 + フ 2 +B +9 +a 
FF FF FD FF FF FF FF 99 CO 1F 95 QB FF FF FF 9F 





755② FD FF FF 
/569 FF DF FZ 
9 がめ FE 1 折 ビ | だ ビ 
ZS5BG DF FF FF 
ZF 





7 E7 F3 CF FF EA 7 E9 @ さ 3 
FF F2 4F E9 @3 CB 9F F5 9F 
F さ CB OF F9 BF EZ F3 CF F1 
7F FF FF FF FF FE G9 99 99 
99 99 GO 99 3F FC 99 99 9@9 
99 99 7C 99 99 FE SF 1F FF 
91 FE 99 99 FF 9 9@1 FE 3F 


FF DF FB FF FF 
FF FF FF EF EF 
DF FFP FF FF FF 
PF ED'BE :FE (お だ 
54 15 55 55 aa 
RR B3 FE ささ ヒ 2 
の OF 20 54 7 
@3 oC 67 95 QB 


RT 
go 
人 ウ 











dd 。 + つ +1 
/ ら らら プ だ 
2619 9 


+ プ + に じ +D +E 
FF FF FF 


29 の 9 2 の 9 9 の うに 





KTc】 


9 





らら 


















99 IS) 29 OO FC 99 69 に 】 
F C4 91 E1 ES E ら F1 9 s25 Rdd  + の 二 1 オラ +3 +4 +5 +6 +7Z + ヨ 419 TA 
枝 医 ②F COG _ 93 FF 9 97 spD ら 6 7B ら 9 FF DF F フ 7 FF FF FF FF EF F フ 7 FF FF 
7 E ゥ 9 らら E ウ ら F FF =: る の 8 あの EE 「EF ビュ FE ゲ ーEF EEFTEEEF PFF 」FZ DE 
7669② 9 の 9 1F FC 1F FB sa6 ZB2O DE ヒ F FFPE_ PF )F ド BBF" PF FF ド F  F ビ 人 
Z679 1 日 FB 3F F9 Ff 3F FB 99 99 s4E 7B3 の 9 FF FD 7F FF FF FF FF FE 5555 8584 6 
ココ FC ド ビ に EEFS KEF こ 6 の 7B49 日 ミ C2 AR an 55 54 3F FC 15 55 aaA E 
FC 3F PE FF 5 PE 万 選 ES-E ss 六 人 7B59 55 3E 99 99 7C55 aaFE さ SF 1FFF さ 
ビビ 3 折 世 だ | 記 に FE FF FF FF =:ABE 7B69 FF 55 QA9 FE 99 @9 FF aa 55 FE SF 2 
FF FF BEF ゴー FF BF FB FF =:E フ 7B7 ら さ F 1F FF Ca 53 FE 99 99 FF D5 AZ 日 
EE : 選 戸 。 F ァ ド PE に に に PE に で ウ 人 オ 7BB ゥ 9 1F FF ES aF FE 99 99 @3 5 
7 EF EF FF RE に 7 に に お だ に UE だ 8 る の 7B99 FC 63 1 FC 7 5F FG F1 C 7C 79 BF E3 iDC 
76E ひ 9: F ビ FZ DF FF..EF IFF FF FB RE。 EE : ら 7BA9 FC _ さ E の OF FB CZ7 11 FD 7F FF FF FF FF FE sz6 
7@F ひ ② FE に FE FE FD BF FF FF PF XPーEF 2| 7BBG の 9 の 9 99 99 99 O9 99 99 9 99 9 9 
ーーーーーーーーーーーーーー ー ーーーーーーーーーーー ーー 7BCG ら 9 99 99 99 2 の 9 99 の 9 99 
Sums ?6 1B 6D DO 21 ZD 2B 4C 5F D1 7BD ら 99 99 9 の 9 99 99 99 99 99 
7BE の らら と 99 
7BF の 9 9 の 9 99 





dd + の 二 1 オラ 
7799 55 55 54 
Z719 15 55 AA 
7729 さ F F 9F 


+D +E +F Sum い 民 9 
4 3C 7 ビ :oB Sum: さ 32 OF DC 7D BGO aB 47 CE 62 7E 
55 QA FC :BC 
E9 F1 QR s1a 
+ 避 6 + プ + す 日 す 9 + す 人 A 








773 ら 55 7 9 さ FF 9 9 フ 7 :41 dd 。 2 

7749 FF D5 aa フ E5 QAF FF :5 フ 7 7C9 ら 9 ら OO ら 9 ら 9 GO 99 99 
7759 @C C ミ FF FC 1F FA 6F 9 っ の の 0 の 9O OO OO @O OO 99 
7769 5 1B Go G9 C1 F9 BF FF FC さ F FB 99 9 =GF ZC2 の 9 @9 99 OO: の 6 の 9%ERESEE IIEE 


FF FF FF FF FF FF 
FF FF FF FF FF FF 
FF FF FF FF FF FF 
FF FF FF FF FF FF 
F FF FF FF FF FF FF 
FF FF FF FF FF FF 
FF FF FF FF FF FF 


ら 9 GO GO9 99 99 99 = フ 75 ZC3 の FF FF 
99 G3 FF FF CO 9 :BF 7C49 FF FF 
FF GO 99 FF CS ド F 22BO25 に 
E1 FE 1F B② 93 FF :C9 7C69 FF FF 
97 FF FC 1F FF Eg : ビ 1 の 2 ば EE 
FF Fo 9F FE 1F FF :F2 ZC89 FF FF 
Oo GO OF FB 3F FF =: ZC96 FF FF 


777 ら FF FD FF FF FF FF 
77BO @3 C ウ 99 29 99 3F 
7799 @② 3F FF FC G9 9@9 
27A9 FF @9 91 FF 3 FF FF 
77Bo _F9 FB 1F CO 93FF FB 
77C9 @7 FF EO FF FF E ウ @F 
77DG FF FO 1F FE @F FE oF 





77E9 CO らら 9 7F FC SF FF FF 7F FF FF FF FF FE =EB 6609935S ARGSKO 有 な 
フ 7F ら FF FF FC さ F FF FF FF さ FF FF FF FC ミ F FC :EF 7CBo SS 55 RA AR QR SS S5 855 
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請 将 棋 道 坦 





リス ト 2 ショ ウキ ギ 5SB 












85 55 55 55 SS555 9 の 9 ら 9 
55 55 AR an aa RR QR an OO 9 
QRQ QR QR nn 55 55 55 55 99 99 
55 55 55 55 55 55 









Add + ろ 4 +Q +B 
7D99 55 55 Rn an 
7D19 人 人 Ra 41 G9 99 
7D29 99 99 29 9 け 
7D39 99 9 ら 9 29 9 の 
7D49 らら 99 99 99 











+4 吉 + ら 6 + プ + 日 + す 9 +Q +B + ビ +D +E +F 








Add + の +1 Fa FA 71 FF 72 FA 75FB ヨ 17 4 91 61 9@1 

























らら OO GO 王 品 9 さ 93 GF プ 1 9Z 9 ご 2 6 9 ミ o4 ら 64 96 82 FQ 7 ミ B4 ら 1 ら 1 91 7 1 41 B9 1 プ ヨ 1 41 9 17 3 
6919 FE 2 FF 1 17 @1 1 ウ 1 17 日 1 G1 93 B⑦ 1 日 1 9 97 日 3 GB 93 Bq@ @7 日 5 9 93 9 17 5 HH 
17 92 8 9 97 92 G ヨ 93 9 99 9E 7 1 





ら 92O 91 日 S の 97 日 1 の 1 92 9 1 テア 73 41 92 99 1 1 ヨコ 74 
6939 99 99 1 日 21 日 4 9 9 74 91 日 4 9② 1 日 65 @1 日 4 
ら 9 作 ゆ ゆら 1 4 ヨロ 9 の の 9 ァ 7 ウラ 74 91 72 91 G9 9 フ 7 1 日 
に こじ 】 BO 29 O9 4H 9 GD ヨミ 9C 6 95 91 FB 
6 の 6 の 9 年 FE 1 97 1E 97 96 42 91 9C 4 91 95 63 
6979 ②⑫ プ 7 っ 9 23 45 B9 97 74 91 95 9 97 64 
698 91 の 9 GH 9C 日 4 91 95 91 9C 93 45 9 
6 OO 99 OB GCC B5 61 96 BB 96 41 9 6 
の 9 2 25 9F_ 63 9 23 96 97 FF 93 F2 1 
69BO F 代 1E 22 81 41 の 1 1 プア 4E 27 71 4E 9 
69CO の 2 9 の 2 4E 9 92 2 4E 9 17 2 .4E 1 フ 2 92 41 B9 











17 日 1 G9 G9 GD 日 1 oO OO Go GO ミウ 9 6 呈 15 
ら 469 9 ロコ 94 7Z2 F3 日 1 FF 2 FD 4 FAR 94 FA A1 92 
| 6479 の 2 12 92 92 41 21 O2 91 43 9 92 71 43 B② 14 
| | 648G 4 さ oO 99 GH 14 91 41 91 92 91 61 93 9 99 96 
| 6499 92 99 99 GO 9 4 人 4 品 S @ 6 ミ 
ら 4 人 AG 2 FF 3 FA 91 A1 9Z 1 日 
64B⑭ 62 96 72 B9 1 昌 9 日 71 41 
ら 4CG 92 2 の 9 の BE 17 62 < 7 き 
64DG 41 日 1 97 41 


< じ た に 
93 9 人 4 メ 人 4 


















の G6 




















S9D9 1F 17 71 @1 @1 @7 プ 1 91 5 17 62 61 91 1 97 91 
SGE9 17 91 92 17 日 2 41 9 9 ァ 7 91 91 9 99 ーー ニーーーーー 
6F gD 18 1 o1 日 ミ 9 96 B2 Bo og 83 BE 4E 

Sum: EB E1 CE FD 3E D6 97 Bo E5 HB F2 67 BS 61 4E | 





+. す 9 内 志す オビ +D +E +F 
16 G 73 91 92 91 7 B1 
ら 61 91 92 9 15 97 
93 9 97 72 91 93 日 9 62 91 
91 11 ヨミ 96 ら 4 9@4 96 9 97 65 
日 所 人 欠 9 も PF る 1H 52 GO OO9 OH 2 99 


dd +② 1 + さ 人 生 + 司 すら 
6599 93 ヨウ 97 62 94 B2 9 
9 ら 2 








Rdd 。 + ウ +1 ご すき 土 人 4 + 己 すら + ア + サ ヨロ +9 +Q +B +C +D +E +F Gum ら 51G 9G1 92 9② @7 プア 1 


65 の 









61oo GE GD 
6119 553 @6 
6129 17 92 


の 6 71 ヨウ 1 H1 41 9 99 G の 9 49 6 さ 6 后 11 
9②3 61 FD Z1 FF FE QA1 92 Q2 92 3 94 
43 91 92 日 1 41 9 92 ヨロ 2 42 B の 94 3 42 























613 の 9 9 9 人 4 91 日 1 9 99 9OE 94 561 9 の 4 63 43 9 26 92 HO 9 ヨ 63 の 6 92 ヨ G 1 41 96 92 8B@ 
6149 の 2 B2 42 9 99 96 92 72 99 99 4Q 6 97 13 22 ヨウ 9B 74 96 92 ヨコ 9 6B ヨ 56969 99 
ら 159 7 人 94 5 96 54 F2 61 FA 1 94 F9 Aa1 6 ら 579 23 15 64 9D 73 92 6 96 96 96 B1 


65 昌 9 93 FF 94 FQ Q1 92 16 @D 4 46 @1 92 4 
ら 6599 46 ヨウ 92 ヨロ 3 47 Oo 92 92 42 9 9D 94 41 9 99 96 
65nO 22 日 3 99 GO9 OO 9 の 2 95 @5 1 34 @6 6 さ 3 94 64 96 
65BG 74 97 5 96 44 FQ 53 FD 4 FQA 62 FF ヨミ FQ 92 FE 
65C9 94 FQ Q1 HB 19 6 日 73 の ⑦1 272 の 1 17 71 91 52 93 9 日 
91 52 95 17 72 41 9 17 73 41 9 99 2 1 日 4 
昌 2 91 4 91 B2 の 1 98 51 91 2 B9 1 
Bo 1 62 441 ヨ の 9 41 9 1 B2 41 9 


99 16 1 さ 91 
47 9 93 9 ミ さ 
Oo _ 92 9 ら 6 
フミ 97 61 F2 
91 91 日 2 @1 
99 19 94 7 和 4 


6169 Q2 63 GB の 9 さ 3 2 91 92 91 6 の 日 
ら 6179 41 91 G ヨ 日 1 4E BG g3 1 41 
61BO 47 日 9 の C OB 7 る 9 の 1 9 ら 1 
6199 18 2 の つ ② の ゆ 人 4 らら 
61Q の 9 62 F3 FF 2 FB Q1 92 2 
ら 61BO の 2 8 89 17 8B3 4E @ 1 
61CO 91 @1 64 94 45 B の 9 17 63 299 14 17 71 
ら 1D9 99 99 71 の 99 99 17 72 9D 72 9D 64 日 1 
61E9 99 9 92 95 75 96 2 9 3 の 6 95 96 551 FA 
ら ル RRB ドド 2 1 ご き 18 91 @1 72 91 

































Sum: 44 2D D3 91 BE 74 CF 95 DB 1 Fa 6F a4 
























Sum: Q5 gC 5 35 9 BE E1 Eg :BF 
| agd + さ +4 + 后 6 + キ フ + 日 9 + TB +C +D +E +F 
Add 。 +G +1 + + ら 6 + プ フー +B +9 +R +H + ビ +D +E ォ F INS 71 41 9 99_ 66 17 プ 1 99 99 99 GC GD 51 
8 7 3 | 2 2 
ら 2oO 91 92 ら 1 72 Bo 18 71 41 Bo oo 19 GE B1 | 0 二 W 9 人 得 坦 か 3 
g1 63 Bo 1o B2 o1 63 Bo oo oe 2 B2 っ 導 
99 93 95 13 65 96 5 96 91 @7 53 FA に QA2 93 1B 8 41 
FA 3 FA 72 FF a1 @3 1B 93 61 91 B2 gl の 人 GS 
665g 91 ら 9 OO 6 アフ ら 9 4 








Z さ の 6 1 91 9 1 
91 9 71 91 91 9 8 
29 97 71 91 2 ロ 9 99 
51 9 93 9 の 1 91 日 9 
93 51 Fa 71 FF 91 FB 


61 9②1 2 93 
@1 
91 
6287G 9@3 
ら 62 昌 9 9 99 


1 









らら 669 9D 73 GE 41 FQ 71 FF 93 1C 97 
667② 4E 91 97 己 1 96 61 92 ら 61 41 89 
669 7Z2 4E 日 9 23 62 91 日 1 99 GEH っ 99 
6699 91 日 1 ヨ 9 99 GEB 93 62 91 日 1 91 17 61 41 












97 





629 の 92 F マ 4D 91 98 B2 4D ge 9B 69AO 17 61 61 92 B9 go oo 49 92 6 さ 13 54 oo 97 1 
2 。 66BO HB さ F9 61 FE B2 FC 91 FF 92 FQ a1 94 9B 63 





ら 62QO_ 62 4D 9 92 61 41 9 92 1 41 9 92 62 4D 9 92 
62HO 72 4D 9 92 2 4D 9 929 96 92 9 の 9 の 9 99 5 ロ Z 
62CO の さき 96 ロ 1 さ 63 66 品 1 FQ 7Z1 FF 1 FC 73 FQ 8B3 FA 93 
62D の FQ A1 14 27 61 @1 日 2 91 62 91 2 ②③ 
2 B ヨ 2 41 9 99 41 91 17 62 
41 9 2B 9 


66CO 92 ア 1 ②1 1 63 92 71 91 6 72 92 71 92 1 72 92 
66D の 9 71 92 6 92 41 BG9 1 92 41 9 94 日 3 47 9 969 9 
日 3 99 99 1 日 1 41 9 99 96 94 ヨコ 3 47 9 99 99 
92 6 F 96 68 97 .95 1 FC FD 1、 FF 9 日 


98 46 4C 59 64 ビ フ 
























14 CA 





69 EE 7 CQ 7C F2 


+1 コー キミ 4 呈す 6 + プ + 日 す 9 + 全 B+ オビ +D +E +F 
97 2 の 7 92 41 の 1 G7 93 43 9 97 94 96 93 B9 
95 96 93 Go eo 74 97 97 9 9 5 17 97 9 18 
17 97 日 G GB 6 さ 17 97 B9 g9 15 ら 74 99 99 9 日 
97 97 8BG 9 63 17 97 9 G8 6 さ 3 17 97 9 99 99 


+ さ 十 全 二 品 + ム 6 + プ + 日 +9 +Q +B + じ +D+ ナ E+ ォ F 
GB 92: ら 91 91 9 g2 フ 75 41 9 の 9 97 の 
Bo OO9 9 の 9 4F ら 5 96 1 7 1 FB 
















ら さ 19 






















ら 6329② FF 63 FB Ra1 6 41 91 17 日 4 91 95 @67 1D 14 の D 35 64 55 の 22 FF 11 FB 21 FC 
もら ささら 4 91 94 9 9 99 ら B 17 4 969 FE FC 2 さ FC 33 FaA 34 F ヨ 5 ミ 3FA aA1 62 aA2 94 
ら 1 5 BO 99 9Z 1 @1 99 16 9D 4 91 14 23 4 9 GD 13 45 Bo 1 33 45 





②6 2 ヨ 9 9 ミ 
F2 74 
94 9 ヒビ 
@4 94 G1 1 


45 9 99 GE 94 14 4 @1 94 34 4 9 14 
41 の 2 ら 9 97 94 34 の 1 う 32 92 G9 97 94 355 91 
9 の OH の 2 42 9 ウ 9 O9 92 4 さ 3 の 1 41 1 9G② 29 フ ア 
1D 96 6 日 6 6 76 96 62 GE 91 F さ 3 93 FF 4 
72 
2 


89 1 ミ 74 9 ら 6 ヨロ 9 
9 の 99 4B 9 さ 3 1Z 4 
91 F ヨ 2 FB 9 さ FF Aa1 
BS 91 


98 





555 の 








ら 1 日 1 9 年 45 FQA 72 FD 73 FA 63 Fa aA1 93 Q2 93 3 94 13 @E 
B9 @ 和 4 9⑫ 9 4D ら 2 94 5 の 1 2 ら 61 93 日 4 46 9 93 2 4D B9 





43 F ヨ 53 
441 4 日 @1 
9 9 マラ 
22 42 


15 41 


13 44 65 42 9 

F 昌 RA1 62 21 17 41 4 91 
B9 97 61 91 42 ヨ 9 92 41 
CB 63 ヨウ 99 19 98 61 4 日 
91 62 B コ 2 29 19 12 42 99 


ウ n 93 93 4D 9 93 71 4D ヨ 9 9G9 @F 94 日 91 
67E ウ 9 92 93 日 4 46 9 93 2 4D 9 99 93 71 4D 92 
ら 67F9 93 4D B9 1 62 14 7 さ 3 4 さ 3 9 6E 









Sum: E ヨ CE EA 22 ZD EZ E3 49 19 3 61 79 11 日 6 G6 BF :69 











ums ご ヒ C 4F HB1 @1 6 4C Ba ES ヨ C Bo 
dd + の @ 1 + つ + さ + オ 4 + 品 +6 + プ + 日 す 49 + + 日 +F Sum 
ら ヨ 99 4 さ ヨウ O 99 9H G さ 3 93 @1 91 9 9 さ 91 4D 2 さ :99 
Rd 。 +② 1 キキ + 人 4 + ユ 品 すら 6 + プ + 日 +9 +Q +B + ビ +D +E +F Sum 6819 92 99 99 の 69 99 5 93 97 15 4 95 フラ 91 si15 
ら 499 ヨウ 9 15 42 1 62 9 G9 99 5 2 97 593 9 =s45 629 FF 1 FE 2 FQ 6 さ FD Q1 92 2 92 3 22 92 sEF 
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請 将 棋 道場 


リス ト 3 ショ ウキ DT 
6B3O 42 ら 1 15 2 42 Be 
1 41 g1 








9 94 93 91 92 B9 99 = 人 1 ら 6D1 ら さ 3 3 3 ②9 9Z 
15 2 B の 9 17 2 42 559 ら 6DS ら 9 B 5 の 8 9 日 人 41 9 























71 92 1 さ 91 91 15 8B2 42 s19 ら 6D3 ら > 9 3 : 尼 9 9F 9 3 生 
1 プ 71 99 99 99 5H 93 95 sED 6D43 居 0 9 の 22 65 
2 97 1 FC FF 54 Fa B4 ら 6D59 FE EEF rD 1 @ 1 ら 
AS2 95 91 5 4 日 9 1 ア 7 ら 6D6@ 922 2 J9 の 7 2 42 日 9 
1 4E 9 17 ヨウ 93 ら D7 ら < ら 7 31 4 BG 9@7 さ 1 








6BQ9 4 日 1E の 7 92 41 の 1 17 92 41 92 48 SD 9 29 99 D 94 
6BB② 97 Bo 17 B1 4E B9 92 92 4 日 4E ら D9G 3 2 

ら 6 ロビ じ ウ 9 ゆ ロン OO OO 99 の 9 4E 3 9 は 65 96 275 ら 6DAG 

6BD ら 5 5 ら 6 64 94 71 97 2 さ ら DBG 


ら 6BE9 aQ1 
6BF の 9 91 


17 73 41 62 97 フラ 
41 91 17 日 1 41 91 


ら 6DC ら 

ら DDG 7 

6DEG 7 B ら ら 9 9 Bo 99 
ら DF9 ァ 7 2 6 に ら 9 6 


dd  +② 二 1 + コ オミ + 人 4 + 巳 +6 + プ + 日 49 +a + 日 
6999 41 9 99 97 @3 72 91 91 日 9 99 9B 92 
691 の 9 74 91 62 ヨウ 69 99 9 さ 3 95 11 7 プ 1 @G3 
6929 日 1 FF 94 FD 記 コ 5 FnA nA1 eg 1D 9D 
69 さ の 9 92 91 91 @1 2 9 13 2 41 9 
6949 B9 13 62 6@ 弓 9 14 963 2 41 92 
6959 93 62 96 プ 1 1 ミ 96 71 9 99 15 41 G2 : ヨ 9 
6969 68B 日 1 91 日 3 92 ら 1 6 さ 9 92 62 9 99 s5D 
6979 9C 9D 1 91 9 1 ら 61 93 9 99 96 92 62 99 :C5 
69 ヨ 9 9 の 9 99 99 1 95 51 6 61 9 65 3 :aD 
6999 FA 92 FE 63 B2 FF. 93 FA A+ お ks 
69A9 94 74 46 @1 B9 1 昌 73 41 B9 91 s4D 


+E +F Sum 
99 92 sD ら 
65 96 2a 
92 9 :7E 
9 721 s?6 
41 の 2 s9F 


+D +E ピ 
6EGG 4 い 5 7 9 マヨ 9 99 96 

43 @D 
13 FA 
16 33 
97 9D さ 
の か 1 
9 の 96 








69HO_ B9 94 94 46 9 2 さき 41 91 1 22 =1 
69C9 72 91 91 日 9 日 1 B9 1 72 41 9 72 sBD 
69D9 99 99 99 99 22 95 11 7 さ 3 96 9 96 FF :52 
69E ウ 9 92 FE Aa1 6 日 292 QA3 9 さ 16 63 72 @1 72 
69FG 91 91 9 6 ら 91 2 9 92 71 91 2 9 


91 
9 日 





Add  + の + キ 1 + つ +3 + オ 4 +5 +6 
6nG9 91 41 961 92 3 42 9 9 6 71 
6n19 BoO OB 9 さ 3 42 9 @9 66 99 の ら 9 @ ら 9 さら 6 
6A2O OF 62 ②③ 72 OZ7 91 FF 9 さ 3 F2 1 92 Q2 94 3 
6 さら 96 92 4E 91 94 ヨミ 4E B9 @2 日 1 41 9 99 6F 
6A49 4E 91 94 日 3 4E 9 17 71 96 1 9 @O9 96 94 
6Q59 09 99 99 5B 2 @5 15 62 97 7Z2 9 95 96 7 ミ 
6Q6O _FA 93 FA 74 FB 92 FF Q1 94 QA2 94 29 94 4 
679 9 B1 41 9 18 1 41 9 68 B3 41 9 1 日 3 
ら 6A89 68 63 94 2 9 1 63 94 2 9 69 1C 1 3 
6A99 9 日 日 3 41 91 GB BB1 41 9 1 1 41 B② 6 昌 6 ミ 
らら _BO 18 63 94 日 2 ヨ 9 GO 96 94 75 99 GO 99 99 
6AEB ウ の 9 ロ 11 6 さ 3 3 43 @E 73 FD 61 FE 品 1 FF 41 FE 
6QC9 AN2 3 91 GE 61 1 42 9 92 
6AD9 B9 9C @ ら 4 43 @1 41 91 92 
6AE の 61 GO 99 96 G2 さ 1 GO 99 99 99 3D @92 65 11 


+B + ビ +D 




















Add  + の +1 + オ つ + さ +4 + 呈 すら 
6FO の 24 94 21 B② 6B 24 6@4 
6F19 11 99 99 1 
ら 6F29 54 】 
ら 6F39 74 F9 1 @ 昌 
6F49 9②1 6 日 41 1 
6F59 72 47 9 9 の 9 
6F69 91 99 19 1 アプ 
ら 6F79 91 99 97 18 
6FB9 3 92 655 11 
6F99 QA2 94 3 95 
6FQO 41 ヨウ 99 69B 
6FB9 11 99 99 99 
6FC9 FB 51 FF al 
6FD9 91 41 9 944 
6FE9 62 47 日 9 99 41 Be 
6FFG 99 92 551 の 91 32 ヨ 9 92 42 9 の 9 


CC D1 iC4 


+D +E 
の 9 9 の 
1B 71 
だ 位 1 
92 22 
9 
91 
91 
2② 99 
FA _A1 
B9 92 
ら 9 96 
F9 
91 4 
47 日 9 






9 ら 9 
14 
1 
4 ら 6 








っ っ 








Rdd +② 1 + つ +③ +4 + 品 +6 + プ + 日 +9 +a 
6B99 41 4E 91 92 62 41 9 92 52 4 89 
6B1 の ら GO OF 17 53 GE 52 @1 92 62 41 9 
6B2O の 6 92 42 の 9 GO @9 99 64 94 65 1 フ 7 
ら 6B39 の 6 41 FF 32 FD ささ F ヨ 22 Fa 11 FB 
6B4 の @4 1E ら 7 21 43 94 17 52 の 1 さく 1 9 13 52 91 31 
6B5O 63 52 91 さ 31 9 97 5 ら 1 4 9 94 53 @1 31 91 @9 
6B69 97 41 43 の 1 29 97 14 41 91 21 61 69 97 63 32 
6HB7 ウ 12 9 99 11 17 2 91 さ 1 @1 1 さ 3 52 91 31 9 @3 
6BBO の 1 さ 1 ヨウ G9 96 94 43 99 99 99 99 61 63 69 15 
6B99 94 71 ら D 91 FF 92 FD 日 1 F9 2 FA 1 FE Q1 93 
6BQO 63 3 94 GE 94 日 3 43 91 14 92 41 9 96D 1 4 さ 3 
6BBO_ 99 9 9D 1 41 @1 GD 2 47 9 99 17 93 
6BC9 93 92 91 71 日 9 @7 91 41 9 97 61 42 B9 
6BDO_ 89 99 1 さ 9@7 91 41 GO1 G3 92 91 71 日 9 97 
6BE の 67 71 41 ヨウ の 9 @6 93 92 GO9 99 969 99 6F 4 9B 
6BF の 72 92 7 さ 3 @3 92 FF 95 F4 


dd +② 1 ユー キオ さ +4 + コ + す 6 オプ + 日 キマ + ォ QA + ロ B+C +D 4E +F Sum 
フ 999 BB G7 9F 1B 73 @G3 75 96 91 FB 94 Fa 4 FD 61 FF sAB 
7919 41 FB 42 F3 34 FQ QA1 GH Q2 92 Q3 @4 QA4 94 19 6 : 紀 3 
43 の 1 フ 1 91 94 3 4D 9 98 日 ミ 91 52 9 99 11 64 s4D 
日 3 91 1 の 1 94 63 @1 日 1 9 @2 61 91 日 1 9 99 1 jsE ウ 
9 54 91 92 @1 1 日 54 の 1 92 91 14 91 41 9 92 

の 1 92 B ウ 29 9B 14 91 41 〇 1 92 B2 91 93 の 99 9B iQB 
95 93 43 5 91 92 B9 99 9C 94 3 91 92 @1 s9D 
92 1 91 2E GE 1 41 91 9 1 41 9@1 1 日 :5B 
79 ヨ 9 1 41 91 91 69 99 99 
7999 97 74 9 1 FE 日 1 FF 3 FD A1 
79Q9 97 91 41 9 17 91 41 9 9 63 
79BO 92 ヨウ 63 日 2 42 の O 99 9F 17 91 
79CO 9 17 72 41 ヨウ 9 69 96 92 92 99 
7 ら 6D9 13 71 6 4 96 c さ 96 91 FD 94 
ー 79EO 9 QA2 92 12 6 92 41 94 9 72 
Sum: 71 25 Ga 96 34 91 HO 64 1E 9E 6 HB6 95 EB 44 B2 :7a 79FO 92 92 41 9 



















































+9 キ 1 キ + プ + 日 +B +C +D +E +F Sum 
は 1 @ 4 に 91 9 は 人 Add + す の 1 + つ + さ +4 + 己 + ら 6 + プ + 日 +9⑦ + 人 Q + 旭 +C +D +E ピ 
41 BO 13 B ら 9 19 41 フ 19 の の 1 GO @7 3 日 さ 61 93 9 99 14 1 日 9 さ 41 91 92 
93 9 13 BS ら O 9 ピ 711 の 91 日 1 9O 6G2 93 91 日 1 9 18 2 4 ミ 9 99 66 22 
6C3 の 91 日 4 9 99 


4 ビ 
1 ミ 
1 く 間 Tv】 


1 FC 


7129 Oo GO GO 99 94 95 99 19 9 さ 93 95 go 4 eB 85 
713 の 91 FE ミ FF 73 FA 62 FE 63 FA 53 FA 65 F2 a1 
フ 149 1D 1 さ 日 2 41 93 1 7 ミ 41 91 9 27 ミ 41 ら 1 8 75 
715G フフ 92 63 92 91 72 日 O GD 94 91 22 BO らら 11 93 
フ 16 の @1 64 BO GD B4 91 72 BO @6 74 91 72 B ら ge GoB 
フ 179 B2 91 61 G 9D 1 41 B@ g フ っ g1 
71Bo 93 91 72 Bo gB 75 9@1 72 ら G9 1 さ 
フ 199 B1 41 91 GOD 日 2 G1 61 9 9 さ 61 41 B9 GE 3 4E 
フ 1QO GO GE GO さ 日 2 91 72 91 63 92 45 Bo 9@ @B 13 71 
フ 1BO GO GE 94 96 3 BO GO G9 B5 97 GD 23 55 9 25 93 :1C 
ら 1 sBD 71Cg 52 c に 33 1 FB 13 FQ :4C 
94 :SD 71D9 a1 96 9 93 :AG 
71E9 @1 94 14 :DQ 





ら 6C49 昌 ら 
6CSG 9 人 8 
ら じ ら の 9② ら 
ら F8 
6C8BO 6 全 
6C99 12 
ら CAG B9 
6CE2 0⑫③ 
ら 1 
出 
28 











9 日 RG2 93 83 94 1 年 
全 1 9 邊 年 
1 













+ 品 + ら 6 キア オロ +9 + 人 a TB +C +D +E +F 5um 
91 35 ヨウ 99 19 1 ヨ 8 42 91 34 2 9 =s4D 




















請 将 棋 道 場 


リス ト 3 ショ ウキ ギ DT 















































































Rdd 。 + す の 1 土合 すさ 十 人 4 + 局 + ら 6 + プ + 日 す 9 +Q +B + ビ +D +E ォ F Gum 1 コロ 3 さ 3 91 41 B9 99 99 99 BB 96 9D :EZ 
フ 299 G1 92 22 G1 41 G2 の さ 3 41 GO ら O GH G6 22 91 11 : ム 人 1B 呈 1 9E 52 92 32 ささ FA 21 > 
89 OB @6 42 91 品 1 Bo 14 42 41 BG = 日 FC 23 FA 11 FB 92 11 : ら 
92 42 91 つ 1 61 62 22 91 41 92 :54 92 geE 41 :a ら 
91 11 B9 14 22 C : BB 12 B9 geE : 1 
41 9 9 19 BS gE ュ 2 41 : 9A 
33 41 B9 GG GE 66 : 3 フッ 3Qo 42 91 :5D 
94 KoclccTo1 : 9D フ 5Bo 4 さ 当 の と 
15 94 55 フュ Ce 92 剛 : 5 
1 9 16 94 : コ F 2 っ 2 時 
14 B9 15 23 : 4 FA 11 5 
9 G9 9B 14 : 99 | 2 次 0 
@1 14 91 94 :Eg MV 
91 15 @1 1 さ 19 
72D9 94 9② ア 55 snC 
72E@9 95 52 3 s5 ア 
ワウ 1 つ 
72F② 9 日 34 s55 Add  + の 1 オー + プ + 日 19 +A +BE + +D +E +F Sum 
499 13 @1 22 91 92 13 91 21 =62 
フ 41 の 9 9 99 96 292 の の 41 の る の 7 11 フ 74 の 2 9 る s の 2 
4 Fa 人 1 の 2 S 9 1 
ュ っ 92 91 の 9 GE 
+ つ + 谷 +E 9 の の 1 92 
44 43 B9 43 9 GO 
@1 B9 91 @1 4 
41 92 22 9C 39 92 日 C4 32 7B QD B1 9 B6 1D 3H 
24 92 @C 41 
! 





「 己 “-1 を 求め る 」 


@68T09S 


沈 日 、『FM-77/8 活 用 研究 」 を 見 て いた ら 、 2ー1 を 
求め る プロ グラ ム が 出 て いま し た . パニ 86243 の と き 
の 計算 時 間 が 7 時 間 と あっ た 点 に 私 は 大 変態 ろ き ま 


3 年 10 月 号 の Z80 (4MHz) で 3 時 間 22 分 で 
ある の に , 6809 が こん な に 遅い な ど 信 じ し ら れ ま せん . 
6809 の 能力 を か っ て いる 私 は さっ そく 納得 の いく 結 


果 , 一 応 の スピ ー ド が 得 ら れ た の で 報告 し た いと 思 
いま す . 

工夫 し た 点 と し て は アセ ンプ ラ 28 一 2A 行 で の キ 
ャ リー フラ グ の 処理 が あり ます . ルー プ 回 数 を あら 
か じ め 計 算 (20 一 22 行 ) せ ず に , CMP な ど で ル ー ブ フ プ 
エン ド を 判定 する と キャ リー フラ グ が 破壊 され て し 
まい ます . 


る と 思い ます が 、DATA 部 に 3 バイ ト の を 入れ 
START か ら EXEC す れ ば [BOTOM] -START 
-1 ま で に 結果 2 ぷー- 1 が BCD で 入り ます . 

プロ グラ ム は 、 リロ ケー タブ ル で すか ら START 
を $7F00 ぐ らい に すれ ば N は , 19 万 ぐら いま で 計算 
で きる と 思い ます . 

= 86243 の と き の 計 算 時 間 は , 2MHz で 2 時 間 16 


果 を 得る た め プ ログ ラム を 組ん で み ま し た . その 結 ュー ル の 方 法 は , BASIC プ ログ ラム を 見 れ ば わか 秒 で し た . 


BASIC リ スト マシ ン 語 部 分 アセ ンプ ブル ・ リ スト 





iresenne Pr1me number 
calculate program 
by 6BT99S 
B3/19/14 


1999 
1919 599 


OO994 


Mersenne prime number 

cu1culate program 
・ by 68T99S 
3/19/14 

ORG 

LEAX 
LDQ 
STA 
STX 
LDB 
BEQ  L2 
LDX 音 9 
PSHS BE 
BSR ADD 
FULS BB 
DECB 
ERA 
LDX 


6E の 9 ら 
START、FC 

1 

・-U 

BUTON. PC 

DATA、PC 


CLEAR ミ ② 、 H12FF 


FRINT"SUBRDUTINE LOADED つ ": AR ま =INPUT ま (1) 
IF ="YU THEN 1119 
LADNM"MPRINHE.0" 


9919 
9911 


go14 
9915 
9916 
991 フ 7 
991 日 
9919 
9929 
9921 


START=%&H6E99 
TTP=START+&H54 
FOR 1=TTOP+2 TO TTOP STEF -1 
T=INT (N/256) 
X=N-Tx256 
IF 1I=TTOF AND X:2 
FOREE 1、X 
N=T 
NEXT 
IF T=9 THEN 1259 
BEEP:PRINT "OVER 
EXEC START 
TT=PEEK (TTUP+ ミ ) *256+FEEF ド (TTUF+4 ) 
TE=START-1 
FRINT"AREA "IiHEX ま $(TT)s! 
FRINT" CALCULATE TINE: 
FRINT" 2 へ "EE ミリ ー1 = 
1=9 
FUR QA=TT TO TE STEP 59 
PRINTUS TING "' 振 半 神 要 料 ミリ ミ 1 ミ 
= ュ エ +1 
FOR B=Q TO Q+49 STEF 5 
FOR C=B TO B+4 
IF CTE THEN 1459 
X=FEEE ド ( じ ) 
DUUT ま =RKIGHT ま (STR も (X キ 16) 。1) 
UUT 1 ま =RIGBHT も (STR ま (X NOD 16) 。1) 
PRKINTOUT* ま :UUT1$* 
NEXT 
PRINTs 
NEXT 
PRINT 
NEXT "で 


FRTINT:PRINT:PRINT" MHOLE TIIE= H 
END DaTA: FCB 


BUTON: FCE 


1 

<DaTA+1 、FC 
SUE 

ADD 

<STaART FC 
韻 ま も 99 

ューX 


THEN 1249 
1299 BSR 
1219 
1 229 
12 さ ら 
1249 
1259 
1269 
1279 
1289 
1299 


9924 LDA 
Da 
STA  。X 
BCC  L4 
KTS 


rie:END 


iHEX ま (TE) :PRINT 
TIME ま も :PRKINT 
FRKINT 


LEAU 
TFR 
SUED 
TFR 
NDC 
LDA 
ADCA 
DaA 
STA 
LEAY 
ENE 
ECC 
LDA 
STa 
STU 
LEAX 
ENE 
KTS 


<STARKT FC 
U.D 
<EOTON。FC 
D.Y 

本 ま FE 


ー1・Y 

し ミ 

NC 

音 1 

ュー こけ 
*EOTON、PC 


8691 
7C2 





9944 
9945 


9946 


1469 
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ココ リン 4 全 に ) リ | コッチ アル 3・ ピ スニ ピル ゴ / 





パレ ッ ト 機 能 を フル に 活用 し た , 3 次 元 表示 の 高速 ゲー 
ム が で きま し た の て で 発表 し ます . 


NA い ⑩ い 】 牟 | 画 右 
2 ンク / プロ グラ ム に つい て 
の 
3 次 元 表 示 で 最大 の 問題 は , 画面 の 奥 側 と 手前 側 の パタ 

ー ン が 重なっ た と き の 処 理 と , さら に は 1 番手 前 に きた 最 
大 パタ ー ン を 徐々 に 画面 か ら 消 す 処 理 が 高速 性 を 要求 され 
る こと で す . し か し , パパ レッ ト の 定義 を 次 の よう に 決め る 
こと で ハー ド 的 に 解決 が で きる の で す . 

⑩UFO の パタ ー ン ・ デ ー タ は 青 の VRAM だ け に 書き 込み , 
育 の パレ ッ ト を 利用 し , マゼンダ , 水色 , 黄色 , 白色 と 4 
色 の 表現 を し て いま す . 

@UFO の 消去 は 実際 に ソフ ト で は 消去 し て いま せん . 画面 
の 周囲 を 見 る と 緑 と 黄色 で フレ ー ム が 表示 され て いま す が , 
UFO が この エリ ア に きた と き , UEFO の 青 の VRAM デ ー タ 
と の 三原 色 の 論理 演算 に より 見 掛け 上 消去 し て いま す . 具 
体 的 に は 青 と 緑 で 水色 に な る た め 水 色 の パレ ッ ト を 緑 に し , 
また 黄 と 青 で 白 に な る た め , 和 白 の パレ ッ ト を 黄色 に し て い 
9 

@⑥UFO か ら の 攻撃 は 赤 の パパ レッ ト を 利用 し て , 20msec の 
速 さ で 赤 と 黄 に 変換 し て いま す . デー タ は 赤 の VRAM に の 
み , 書い て いま す . 


4 em 
クノ に つい て 
の 
リス ト 1,2 の BASIC プ ログ ラム と マシ ン 語 リス ト を , 


| SAVE “3D-UFO? | フ | 
| SAVEM “3DUFOM^, &H5000, &H5EFE, を H5000 [| 





と し て , 走ら せる 前 に テー プ に 取っ て くだ さい . 
ゲー ム を する と き は , 両方 の プロ グラ ム を 読み 込ん で , 
BASIC か ら RUN で 走り ます . 
キー 操作 は , タイ トル 画面 に で る の で , そちら を 見 て く 
だ さい . 
トニ ニレ に 了 和 了 下請 3 肖 


せま る UFO// 目 標 LOCK ON 
ーー ビビ (つつ / 








に Xetrl に 】 コ ド UE L I 昌 昌 了 


2/ ゲー ム に つい て 


UFO は 4 種類 それ ぞ れ 異な る 攻撃 性 を 持た せ て あり ま 
す . 白 が 一 番 活 発 で 次 に 水色 , マゼンダ , 黄色 と 続き ます . 
これ は UEFO の 色 に よっ て 攻撃 し た と き の 得 点 が 違う こと 
に も な り ま す . 

また だ た, UFO 自 ら は 体 当 た り は し て きま せん . UFO を 攻撃 
する と き は , テン ・ キ ー で UEO を 追跡 し , ファ イン ダー の 
中 央 へ 持っ て くる と び LOCK” の 表示 が で ます . この と き , 
すか さ ず スペ ー ス ・ キ ー で レー ザー ビー ム を 発射 し て くだ 
さき さい. LOCK の 表示 の な いと き は ビー ム は 出 ま せん . 

また , ビー ム の 隔 準 点 は 最小 パタ ー ン か ら 2 一 3 段階 の 
大 き さ で 設定 し て あり ます . 4 段階 以上 近付く と LOCK 不 能 
で ビー ム は 発射 で きま せん . いっ ぽう , UFO 側 は 色 に 応じ 
て 大 き さ が , 4 一 6 段階 以上 に な る と 攻撃 を 開始 し ます . 
た だ し 画面 の 中 央 付近 に いる UFO に 限り ます . 
参考 文献 

FM-7/8 活 用 研究 ?。 工学 社 


H エー=COr ら FTGHTER 





BASIC プ ログ ラム ・ リス ト 





19 COLUR4、9:MIDTH49、29 
329 HIG= ら 9 
さ 9 GUSUB629: SYMBOL(499。 149) 、"DEMDNSTRATIUN" 、 1 1 。 


49 POKE&H5E7B。9 

SO _ EXEC%H5 の OO の 

ら @ 1=PEEK(&H6FFG) : IF ユニ (シシ HFF ) THEN7OGELSE6@ 
79 FUR1I= ら TD7 : CDLUR=( 1 。 1) :NEXT 

B9 CLS 





99 SYNMEOL (2 
199 SYMEOL ( 
119 SYNEOL (< 
129 SYNBOL ( 
139 SYNHEOL (2G9。 
14 ら 9 
15G FI| H5ooo 
169 SYNHBOL ( 9 ら ) 。"PLAY key"。 
17G SYNHBUL ( さ B9 。 5) 。 ""U ビ ーーーーー コリ"。 う 。 


5) 、"BRME message"。2。 つ 。4 
・"UFD point"、2。1、2 















ざさ 
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BASIC プ ログ ラム ・ リ スト 
















SYNBOL (3 さ BO。 155) "RTTAPEK ド pace"。 ご 。1、7 

エ ま =INKEY*:T ま =INPUT ま (1) 

SC=9 

OBUSUE6329 

FUKE%&HSE 7 日 1 

9 EXEC&HSGGg 

1=FEEI (<H6FF9) : IF 1=(SHBG) THEN さ ラロ 

IF HB1) THEN519 

【=FEEK(&HoFF1 ) : IF エ =1THENGBUSUB61G 

1I=FPEE ド (SeH6FF2) : IF 1=2THENGUSUB ら 6 らら: GUTH2BOELSE 














SUUND5、\H1F : SDUND7 
19: SHUND1 1 。 
1。 の ) : COLUR= 
FFC)+ ら 

9 LINE(X 。Y) 一 (295。99) 、PSET: LINE(X。Y) 一 (295。 195) 。 
ETsLINE(X。Y) 一 (24 弓 。75) 、PSET:LINE(X、Y) 一 
・FS sLINE(X。Y) 5。69) 。、FSETsLINE(X。Y) 一 
FSET:LINE(X。Y) 一 (1955。 159) 。 
・FSETsLINE(X。Y) 一 (99。129) 、。 
) 。FSET 

さ 59 CIRCLE(X。Y) 。15。 
9 FRINT(X。Y) 。 


7: SUUNDB。%H19= SHUND。 1 9 
IDUND12。25: SHUND1 さ 。 の 























SET:LINE(X。Y) (545。159 





ら 6 







7 : SDUND。&H19= SDUND マ 。%H1O 
SOUND1 さ 。9 








IEXTKsNEXTI 

DLOI 2) : CULUR= (44。 1 ) : CDLUR=( 呈 。 1 ) : CULUR=( ら 
: CDLUR=(7。4) 
429 FORI=1TU25O9: NEXT 
4 さら CIRCELE(X。Y) 。15。9 
FATINT (99。45) 。 1 。 ら 6。 ア 
9 _FAINT( ツ 9。455) 。9。6。7 
FL=FLー1 

IFFL=OTHEN519 
ら GOSUE 
FUKE%HSE 7 日 。 2 
BOTO279 
SC1=FEE ド (HoFFE) *19 

5 PEEF ド (XzHoFFA) *19 ら 9 
%&HoFF9) *199O 
kH6FF ヨ ) *1oooo 
C1+SC2+SC ミ +SC4 
H1IS THENHIS=5 ビ 
GOUSUB929 
SYMEOL(189。79) 。 "BAME DUVER" 4 
599 FURI=1TUBO99: NEXT: GOUTU さ g 

ら 99 SOUND6。 19: SHUND7、H さ の: SDUNDB。%H19: SDUND 、%H1 
9: SDUND19。%H1O SHUND1 1 。 9: SHUND12、5: SUUND1 さ の:FDR 
1=9TO259STEP7』 SHUND9。 1 : SUUND2 。 』: SUUND4、 1:NEX1: ビ U 
ド RE&H6FFS。9: RETURN 

619 SOUND6。5: SDUND7。7:FURT=1TD16: SDUNDB。 1:FURJ=o 
TO59: NEXTJ:NEXTI:FDKE%&H6FF 1 。9: RETURN 
629 CLS* ーTVSCREEN 
ら さ 39 COLOI 9。9) : CULUR= ( さ 。2) : CULUR=(4、 1) : CODLUR= (5 
・1) : CULUR= (6。4) : CDULUR=(7。4) 
ら 649 SYMEOL(191 。1) 。" さ D-UFO" 。 呈 、1、3 























549 
55o 
5eo 
57 ゅ 
589 





















リス ト 1 
ら 65 の SYMB ロ L ( に 生得 きす 
ら 669 SYHEOL ( りら ) 3 さ DUFU" 。5。 1 。 ら : SYMHEOUL (さら 9 。9) 。" 
( Unident ュ gd Flying ロ bject )"。1。1。 ミ 
ら 679 LINE (9。19 ー(639。 199) 。PSET 。 ら 6。B* ーー ミ 
689 CUNNECT ( づ x・ ご 日 ) 一 (44。 コ 1) 一 (595。 つ 1) 一 (612。2 コ )ー(6 ら 1 
ご, 167) 一 (595。174) 一 (44。174) 一 (2 ア 。167)ー(2 ア 。 コ 日 ) 。4*ーーー 
ら ヲ ロ CONNECT (75。 15 ら 1) 一 (7 呈 。 4 ミ ) 一 (4 。49) 一 ( 呈 5 ら ら 。 49) 一 (56 





4 。4 さ ) 一 (564 。151) 一 (ES 





ら 、154) 一 (B4 、154) 一 (7 呈 。 151) 、 ら "ーー 












7@9 CUNNECT (79。151) (79、4 さ ) (8B5、41) (554。41) 一 (56 
9.43) 一 (569、151) 一 (554 。 15 ミ )ー(B。15 さ ) (79。1 旨 1) 、6ーー 
ーー4 

719 PAINT(7 ア 。19o) 6:FATNT(561、1g99) 6 

729 PAINT (さろ 2 の 、11) 。6。4 

7so PAINT( 22) 。4、6 

749@ CONNECT (27、167) 一 (ププ 。151) 一 (B4。155 さ ) (44。174) , ら 
ーーーー5 

759 CONNECT(44、21) -(B5、49) (77。4 さ ) (27 2 日 ) 。 6 ーーー 
-5 

789 CUNNECT (612、28) (562。4 ミ ) (554。49) (59、21) , ら 


ーーーー5 


779 CONNECT (595、174) 一 (554 。154) (562。151) (61B、1 ら 








77' ぉ る * ーー ニー 

Z89 LINE(6。186) 一 ( ・196) 、FSET , 9。BF 
799 LINE (9。187) 一 ( ・195) 。、PSET , 4 。BF 
oo _SYHBQL (日 。 188) 。 "HI エー5core" 、 1 。 さ 





B19 SYMBOL (192。18 昌 ) 、 "SCORE 
SYIHBOL ( さ 2 コ 、 188) 。、 "FITGHTE 
9 SYMEOL (4 日 18 日) 、"FUEL" 
9 LINE(18 昌 、186) (199 
9 LINE ( さ 24 。 16) 一 ( 
9 LINE(4 ヨ 4。186) 4B6。 196) 。 
9 LINE (555。 18B) (62 日 。 194) 。 
9 LINE (569。 199) 一 (62 さ 。 192) 。PSET 。 
PL= さ 
IT*=STR も (SC) : SYMEDL (37 ラ 、18B) 、1$、1、1。9 
1$=STR ま (HIS) : SYMHEDL (1 さ 6。188) 、【 ま 、1。1。9 
mm て と ーー 
LINE(447。18 ヨ ) (457。194) 。、PSET 。 4 、HF 
1$=STR ま (PL) : SYMBL (449。18B) 、[ ま 、1、1。9 
9 LINE (B9。97) 一 (279。97) 、PSET 。 4 
9。 97) 。PSET。4 














6。HF 















・ 人 4。BF 

ET。4。BEF 

191G LINE(291 8Z) (349。 ヨ 7 ) 、PSE1 。 本 

1929 LINE (ママ 1 。19Z)ー( き 4 ア 。19/)。 ビ SET 。4 

193O FURX=117T0U27GST LINE (X。 ワ 5) 一 (X+1。99) 、FSE 
T。4。EF :NEXT 
1949 FORX= さ ら 69TO559STEF 
T。4。BF:NEXT 





LINE ( X。95) -(X+1 99) 、FGE 





1959 FURY=4ZTOBoSTEF19:LINE (316、Y) 一 ( さ 24、Y) 。FSET 。 
4:NEXT 

1969 FURY=197TO15GSTEF19:LTINE( ミ 16、Y)-( 4 。 Y) 。FSE 
T。4:NEXT 

1979 FURI=(%&H6FFG) TU(&H6FFF ) :FOKE 1 、9: NEXT 

1989_ RETURN 





























2 マシ ン 話 タン プ ・ リス ト EE 昌和 
Add 。+9 +1 +2 +3 +4 +5 +6 +7 +18 +9+A +B +C +D +E +F Sum S2eq EF 84 EF 94 3A EF 84 EF 94 3A 86 95 EF 84 EF 92 !:2F 
59@99 B6 FD 95 2B FB 1A 59 86 89 B7 FD 95 BZ FD 95 CE :8E 5279 EF 94 3A 4A 26 Fe 35 99 CE DO 92 386 97 8D 97 39 :D9 
5919 FC 89 39 8D 99 98 C6 4A A6 89 A7 C9 5A 26 F9 7F ie66 528q 1F 8 る 99 16 91 Ad 97 1E EC C1 ED 84 EC C1 EH 92 :D4 
5929 FD 95 7F FD 95 8E 99 C8 39 1F 26 FC CE 50 98 8E :9B S29q 39 83 5C gaA 1E 26F1 39 86 91 97 29 Ae6 26 26 FZ :A7 
5939 3E 89 86 98 C6 39 8D 33 7FFD 95 7F FD 95 CE SA :2C SAq Ae 23 48 97 1E 8e 64 99 1E 97 1E A6 23 81 96 19 :73 
5949 F9 8E Dg 69 86 C C6 32 8D 21 7F FD 95 7F FD 95 :E8 S2BQ 27 gg B4 ea 27 2 る 10 86 99 A9 23 A7 27 6C 23 9F ie6D 
5959 33 8D 99FB 8E BE 89 86 54 Ce 34 8D 9@E 86 91 B7 :34 52Cd 29 6A A4 39 88 BO A6 23 81 94 27 94 81 96 26 94 :CO 
5969 FC 89 7F FD 95 7FFD 95 16 99 8BFDeF FE Be FR :3C 5209 Sa 21 39 1F 9e FQ 26 11 6A 28 2c BB 86 96 Ag 23 i66 
5979 95 2B FB 86 89 BZ FD 95 BZ FD 95 BF FCFE 3 19 :A6 52EG A7 28 Ac 23 19 26 99 7F 39 Ee6 23 C1 94 24 42 4A :94 
5989 8E FC CA Aa6 Cg A7 A9 5A 26F9 F6 ceF FF F7 FC 89 :51 52Fg 26 90 6r 25 Ae 25 84 91 26 90 39 91 6C 21 39 4A !18 
5999 7F FD 95 7FFD95B6FD952BFB86898B7FD 95 9F 
SgaA9 B7 FD 95 Be FC 89 26E8 7A eF FE 26 Ce 39 99 99 95 
59B9 3F 59 41 40 41 55 43 48 49 93 D3 8F 29 B7 D4 9A :AA 
5eCd Bs D4 98 B6 D4 99 B6 D4 ga 7F D3 89 7F D3 89 7F :DC 
SgD9 0D3 89 BS D4 9a B6 D3 89 27 F8 81 9g1 27 15 B7 D4 :58 
SgE9 9A B7 4 9A FE CD3 FE 8E D3 CA E6 89 EZ C9 4A 26 :16 
59F9 F9 29 D6 7E BE 9E 39 8D 99 96 BFFF F6 1C 99 39 :95 
Sum: A9 42 91 DS F3 21 59 83 75 A4 CD 39 B2 E8 19 3F :A7 
Add +9 +1 +2 413 +4 +5 +6 +7 +8 4 の 9 +A +B +C +H +E +F Sum 
5199 34 57 F6FD 94 C4 92 26 99 8E 91 E9 BF FF F6 35 :CF 
511q 57 3B C6 89F7FD 95F7ZFD0 95F7ZFD の 5 8EFCF9 :3D 
5129 CE eF Fg E6 84 27 FC C6 19 A6 89 A7 C9 5 26 F9 :96 
5139 B6 6eF F9 2A 98 7F FD 9@5 7F FD 95 29 CC 7F FC F9 :A9 
5149 FC eF FE FD FD 39 35 57 7F FD 95 7F FD 95 3B C6 :2B 
5159 n9 1F 9B 8E Cg G9 6F 89 8C CF A9 26F9 B7 D3 F9 :SB 
5169 BZ 03 F9 BZ D3 F9 B7 D3 F9 Be D4 94 39 BZ7 D4 9A iCA 
517 ロ BZ 4 9A 86 7F 1F 8B 99 99 99 9g9 99 99 99 99 16 :S5A 
5189 93 25 Aae 23 27 16 4A 27 25 4A 27 3E 4A 27 SE 4A :8C 
519g 19 27 99 9E 4A 19 27 92 29 16 92 A9 CC 99 99 ED :F2 
51A9 84 17 99 F4 96 29 27 1A CC 93 C9 ED 84 39 8D @9 :55 
51Bd 17 99 ES 96 29 27 2F 29 99 CE 99 99 EF 84 EF 88 :E9 
SIC9 59 39 CE DG 69 86 9@2 16 99 5A 8D 99 17 @9 C9 96 5:8B 
51Dd 29 27 44 2@ 11 34 19 8e 9e6 C6 59 CE @9 99 EF 84 :E3 

3 Add ユキ +1 +2 +3 +4 +5 +6 ユア 7 +8 +9 +A +B +C +0D +E +F Sum 

5499 CE D9 E4 86 9g9 17 FE 7ZE 39 1E 86 9C 97 1E EC C1 :E6 

5419 ED 84 EC C1 ED 92 EC C1 ED 94 EC C1 ED 96 39 88 :93 

54 こ 9 59 9A 1E 26 E9 39 97 1E EC C1 ED 84 EC C1 ED 92 :2F 

5439 EC C1 ED 94 39 88 59 9 1E 26 ED 39 80 95 17 FE :C1 

54409 57 29 39 34 19 39 1E 8e 9@6 C6 59 CE 99 99 EF 92 :A3 

5459 EF d4 EF 96 3A 4A 26 F6 39 89 91 99 86 99 EF 84 iD4 

Add 。 +9 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B + に +D +E +F Sum Sdcg 6F 9g2 ecF 97 EF 98 3 44 26 F4 86 9o EF 84 EF 92 zeC 
52q9 CE 9 9 8e 95 EF 91 3A 4A 26FA 86 96 EF 84 EF :DB 5473 EF 94 EF 96 EF 98 3A 4A 2 F2 35 99 CE D1 68 86 iCD 
5219 2 3A 4A 26 FS 35 99 CE D9 79 86 95 8D 96 39 1F :E4 5439 GB SD A3 39 1E 2 る e 9F 97 1E EC C1 ED 84 EC C1 ED :8B 
52<q 86 9e 29 62 97 1E EC C1 ED 84 39 88 59@ 9A 1E 26 :37 5499 92 EC C1 ED 94 EC C1 ED @6 EC C1 ED 98 39 88 59 :EA 
5239 FS 39 8D 9B 17 99 61 96 29 19 27 91 F3 29 39 34 :7C 54AG daA 1E 26 E5 39 99 99 B6 3F F9 97 F1 27 47 4A 27 :B8 
5249 1d 39d 1F 8e 94 Ce Sd CE 99 99 EF 91 EF 93 34 44 :33 S4B9 44 4A 22 SE 8E 1A 93 17 FD 50 39 89 91 91 17 FD :8E 
5259 26 F8 39 89 99F96F 91 6F 94 3A 6F 91 6F 94 34 :g1 S4C9 56 39 89 91 91 17 FD 4F 8E 5 93 17 FD 49 39 89 :95 
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リス ト 2 





マシ ン 語 ダン プ ・ リ スト 





5403 
E4E3 
Sa4F9 


Sumi 
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FM- フ /11 


@ る お まち か ね ./ 将棋 対局 FM 版 @ 








I/O'83 年 9 月 号 の PC-6001 将 棋 対 局 を に コン パイ ラ に 移 
植 で きま し た の て 発表 し ます . 


較 計 > 


遊び 方 は 9 月 号 の PC-6001 将棋 対局 と 同じ で す . 

EXEC&H3500 で スタ ー ト し 先手 を と る か 後手 を と る か 
開い て きま す . 先手 な ら [生後 手 な ら [ 久 を 入力 し を 押す 
と 将棋 盤 が 表示 され , ゲー ム が 始ま り ま す . 

の 入力 フォ ー マ ッ ト は 図 3 を 見 て で ください. 誤 入 力 し 
だ た とき は [で バッ ク ・ ス ペー ス が 使え ます し [名 を 入力 すれ 
ば 最初 か ら 入 力 の や りな お し が で きま す . 途中 で ゲー ム を 
止め る と き は , [ BASIC | を 押す と , ゲー ム を 再度 始め る か 
止め る か , 開い て くる の で , [WM か で 答え て くだ さい . 


プロ グラ ム に つい て 


プロ グラ ム は サ プ ・ プ ログ ラム と , メイ ン ・ プ ログ ラム 
の 2 つ に 分 か れ て いま す が , 内 容 は PC-6001 将 棋 対 局 と 同 
じ で す . KK コン パイ ラ は ラン タイ ム ・ レ ー チ ン を コン パイ ラ 
が 呼び だ し て いる の で , ラン タイ ム ・ ル ー チ ン の 場所 を 変 
そる こと が で きま せん . 長い プロ グラ ム を コン パイ ル す る 
こと が で き な い の で , 2 つ に 分 け て , KK の プロ グラ ム か ら 人 KK 
の プロ グラ ム を 呼び 出す よう に な っ て いま す . 詳し いこ と 
は ソー ス ・ リ スト を 見 て くだ さい . 

プロ グラ ム は 包 H 1200 か ら &H 59FF ま で で , 手 の 入 力 
フォ ー マ ッ ト , コン トロ ー ル ・ コ マン ド も PC-6001 将棋 対 







































































局 と 同じ で す . 英字 は 大 文字 で 打っ て も 小文字 に な り ま す . 


プロ グラ ム は EXAS BASIC コ ン パ イラ の ソー ス を KK コ 
ン パ イラ 用 に 書き 直し て いま す が , ソー ス が 20 KK バ イト 近 
くに な っ て し まっ た の で , メイ ン と サブ に 分 け て コン ノイ 
ルレ し , 変数 エニ エリア と スタ ッ ク ・ エ リア を 別々 に お いて リン 
ジジ しま 3 








コン パイ ル に つい て 





コン パイ ル は 裏 RAM に コン パパ イラ を リロ ケー ト し て コ 
ン パ イル し て いま す が ワ ー ク が 大 きい の と , ラベ ル が 多い 
の で ワー ク ・ エ リア も 論 RAM を 使う よう に し て , ラベ ル ・ 
テー ブル も 多く 設定 し な いと DOUBLE DEF ERROR が で 
ます . 今回 は 表 1 の よう に 変更 し て いま す . 


コン ツバ イル の や り 方 


以下 の 手順 で コン パイ ル し て くだ さい . 

① フ ァイル 版 の KK コン パイ ラ V3:6 の $2082 番 地 を $10 に 
する . 

リス ト 1, リス ト 2 を それ ぞ れ ASCII セ ー ブ し て お 
く (SAVE い ファ イル 名 /,。A). た だ し , 11 の 場合 変更 
が ある の で , FM-11 用 変更 箇所 に 従っ て 変更 し て お く . 

③ そ れ ぞ れ を コン パイ ル し , オブ ジェ クト を セー ブ す る . 
リス ト 2 の オブ ジェ クト は 、 表 1 の 箇所 を 変更 し て か 
ら セ ー プ ブ す る . 

④LOADM MAIN/, 一 名 H1B00 
LOADM “SUB?, 一 を H3C00 

と し て ふた た び よ び こむ . 

⑤ ダ ンプ ・ リ スト の $1200 一 813 CD と $5000 一 $59 FF 
まで を 打ち 込む . 

⑥SAVEM SHOGI/, &H1200, を H59FEF, を H3500 
で , で き あ が り で す . 


K コ ン パ イラ に つい て 


サ プ ・ プ ログ ラム 中 の 7300 行 と 7420 行 の FOR-NEX〒 
の と ころ を REPEAT-UNTIL に し て あり ます が , FOR 
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図 1 メモ リ ・ マ ッ プ 鹿 2 コン トロ ー ル ・ コ マン ド 
[| ・ 入 力 の キャ ン セ ル . 
| | BREAK | : ゲー ム の 中 止 
1200 シリ が つ ニ ] 
1400 テ 上 E】 ・ 2 手 戻 す . 
る ] : バッ ク ・ ス ペー ス . 
3500 較 3 手 の 入 力 フ ォ ー マ ッ ト 
0 メイ ン ・ プ ログ ラム の U り スタ ッ ク ・ エ リア 2726 
4D00 メイ ン ・ プ ログ ラム の 変数 エリ ア タコ 
0 ラン タイ ム ・ ル ー チ ン | | 2 七 に ある 駒 | を | 2 六 に 移動 する | 
ni 将棋 パタ ー ン ・ デ ー タ 
配列 と ワー ク ・ エ リア 移動 後 , 成る 
6C00 サ プ ・ プ ログ ラム の り ス タック ・ エ リア 
に サ プ ・ プ ログ ラム の 変数 エリ ア 5453n ( 小 壇 字 の n を 付け る ) 
5 四 の 駒 を 5 三 に 移動 し , | 成る | 
表 1 サ プ ・ プ ログ ラム の オプ ジェ クト の 変更 内 容 駒 を 打 つ 
hi52 
5003 4 C 5C 
5007 4 C 6 C [飛車 | [| 5 三 に 打つ | 
11 変 更 箇所 以上 は | RETURN | 入力 後 , 実行 され る . 
15991 "HLTE]CPUKE QDDR。 1 ,7。 4 の ,25。 の 。25。 の 
。 1』 SUBE] も う の で す が . 
な お , $3F16, 7 の $FEFEFEF を 0000 に 書き 換え る と , マ 
15619 "HLTE]iCPUKE ADDR。 1』7。49。25。 29。5。 の イコ ン の 動き を 見 る こと が で きま す . 
ぅ 13SUB[ ] 参考 文献 











1) “FM-8 活用 研究 ?。 工学 衝 
2) FM-77/8 活用 研究 ?, 工学 社 
3 黒崎 隆 : “PC-6001『 将 棋 対 局 』 バ , 1/O, 83 年 9 月 号 
4)COMPAC S:^EM-7 拡 張 代 コ ン パ イラ ? 1/O, 83 年 3 月 号 
5) コン ピ : “FM-7/8 角 コ ン パ イラ 用 グラ フィ ッ ク ・ サ ブル 
ー チ ン /。 1/O, 83 年 4 月 号 


G=8TO14 と する と G の 値 が 8 一 120 の ルー プ に な っ て し 
まい ます . 色々 調べ て み ま し た が 原因 が わか ら ず RE- 
PEAT-UNTIL だ と だ いじ ょ うぶ な よう な の で それ で す 
ませ て いま す . た ぶん けり ス タッ ク の と ころ が 原因 だ と は お 









K コ ン パ イラ で FOR-NEXT を 使う と き の 注 意 (編集 部 ) 
K コ ン パ イラ の FOR 文 で は , 終値 (TO の 後に 書く 〈 値 ) が り ス タッ ク に 積ま れ ま す . し た が っ て , FOR-NEXT の 中 か ら 外 へ, GOTO 文 や RETURN 
文 で 飛び 出す と , U ス タッ ク の 値 が すべ て , 異常 な 動作 を し ます . 
ルー プ か ら の 飛び 出し が ある と き は , FOR-NEXT 文 で な く 。 WHILE-WEND 文 また は REPEAT-UNTIL 文 を 使っ て くだ さい . 


PE メイ ン ・ プロ グラ /、 昌 昌 





の "DX[$ ま 1E1 。 ま 6 ヨ の の ]』 PUKE $1 ビ 1 ,$4FsPUKE 1E2。 ま さ の g 3349 LINEE9B 。Y 。395」Y。 の 9。7。9] 

1 の "し L1 の 』GOSUB L69 の 9 の さ 335 の 9 "LINELX 。19。X。15 昌 の 。7。9] 

1 の の SUBSYS=14 の の 3 さ 36 の "NEXT 』LDC [の 。 の ] 

21 の =$5QOOi』 NM=$5H2 の 』K= ま 日 49』 BB : し 日 =$ 王 9 3379 「PRTNT " 2876584 3 21 リュ / 

LK=$5C の の HB まじ プ の ェ BE=* 呈 じ 9 の 』 BP= も SCE の ェ BD= 和 ま 5CD の BE= ささ 25 「 メニ ー5』 Y= ニ 1 エエ ニコ ュ K=1sFUR エ 1=1 TH 7iLOC 上 3 日 。1 エ 
5CF の 』 HBF= 和 5D 1 の: PS= ま 5D さ の JsPRINT CHR ま (BRs エエ ) ) 。CHR ま (BR: エエ +1 ) ) i BUSUB L3220』 
23 の PWM= 還 5D46』 DN= ま DE 日 =$5E の の 』 ロ に =$5E2 の 』R= 和 も 5E40 Y=Y+1』 1 エモ エエ +2 ョ に = に ド + 1 NEXT 

RK=5E6 の 』RV=5EB の 』 ら = も 5EA』 TE= 和 EE の 』TF=5F1 の 』 TB= ま $ ささ B の 「LOC 上 の,2g]iRETURN 

5F49』 TQ=$5F7g ミ 34 の しさ 49 の 』TIF DS THEN GBDTD L43 の FI 


25 の ' ロ D=$5FAO ェ RD=$5FC の iQN= ま FE の 』 RM ニニ ら の の の ェ ビ ドー もら の 2 さ 495 "GOSUE し さ 1 の の 』 BUSUE し 32 の 
9』FN= ま 6 の 6 の: UT= 各 6 の 9 の j UU= 宝 6 の BB の: U り = 和 ま ら 6 の D の 』 UM= 和 も 61 の の 』 リ さ 4 さ の 「L343 の HB(BN) =RKi RETURN 


Y=$61 さ の 』UZ= ニ も ら 16 の 35 の の "し L さ 5 の の FDR T= の TD 21』B(T)=25』NEXT 

26 の PU=$619 の 』FX=ー ま ら 1 じ の ェ P ビ Y= ニ あら 1F の =PZ= 和 6 ら 2 つ 2 の STR= 和 6 つ 351 の 9 "FDR J=S2 TO 11 の STEP 11 

5 の 』 BS=$6 さ の の 352 の "HB(J) =25FDR エ =1 TU 9jB( エ +J)=1 の 』NEXTi H(J+1 の 
3 の の "GBDTUD L15 の の の =25』 NEXT 

5 の の 'L5 の の 』POKE まま 626 の 。6』 CALL SUBSYS』RETURN 354 の 9 "FOR 1=121 TO 1423EB(T)=25NEXT』RETURN 

さ の の の し さ の の の 』 BN=21-X+1 1 xYi RETURN | | 369 の 9 "し L さ 69 の 』GUSUB し さ 5 の の:KDATA=* ら 5 の の 

さ 1 の の (しさ 1 の の 』Y=(BN-1 1 ) /11 さき 61 の "FOR JJ=11 の TD 8 STEP 11 

さ 11 の 'X=(21 一 BN)+11*YiRETURN | | さ 629 "FOR エエ =1 TO 9 

ミ さ 2 の の し L さ 2 の の 』 ITF (X<ー ミ )+(12 く X)+(Y く 1)+(9<Y) THEN NG さ 36 さ の 「K=KDATA: の) 』KDATQ=RKDATA+1』TF ド = ニ 1 THEN BOTO 
=ー1jPRINT" 321 の "3RETURNiFI L う 67 の 』FI 





の しさ 22 の 人 QE= ま 弓 の の の + つ * ド : さ 64 の "BN= エ I エ +JJ』 BUSUB し 3 う 4 の の 
5 'X9=(12ーX ) * さ さ 』 Y9=Yx165/1 の ー4 さ 65 の に = に +15』 BN=142-BNs GUSUB し ミ 4 の の 





3 の "LINELX9』Y9」X9+ さ 1 。Y ウ +12。 の 。 の 。2] さ 67 の し さ 367 の NEXT: NEXT』 RETURN 

さ 249 "HLTE]』RD=$FCB2』 CFDKEAD 。 ま 1 じ 」X9 韻 。Y9 柱 。(X9+ さ 1 ) 4 の 9 「L40009i 

本 』(Y9+12) 拉 。7。 の 。52 491 の "L4 の 1 の 』 1 の = の 』FRTNT/』PRINT N。" YOU "」 

325 の "FDR 1= の TO 51』AD: 1) =AE: 1 ) 』NEXTiSUB[ ]: RETUR 492 の 'L4929:』 1K=GET』TF PEEK( ま 4F34) く > の THEN GOTD G 

N END:FT』 ITF TIK=g THEN BUTU L4 の 2 の FI 

ささ の の "し ささ の の 』 4925 “IF (64 く 1K) (TK く 91) THEN TK=TK+ さ 2 ュ ド エ 
'X=9sFUR Y=1 TD 9』 に =Y+29』BHSUEB し さ 2 の 3NEXT 4 の さ の "ITF ITK=B THEN TF 1g> の THEN 1 の =1Ig-1sPRINT ビ H 
"FDR 1=9 TOD 9 R* ま ( 和 ま 1D) 」" "。CHR ま ( 生 1D) sFT3i BUTD L4 の 2 の FI 
* 内 ニ さ さ * 1 ミ メニ 9 日 マニ 1 の +M/2 "4g4 の "IF 1 ド K=13 THEN RETURN』F エ 


























リス ト 1 








4 の 5 の "IF ITR=99 THEN GUTD L4919iFI 

4 の 6 の "PDRE ま 625 の +T の 。 TK T の =T の +1:』FRTNT CHR$(1 に ) 
4 の 7 の "BUTD L4029 

469 の "し 46 の の :PUKE ま 626 の 2:CALL SUBSYS』 RETURN 
470 の 'L47 の iPDRE ま 6269 。4:CALL SUESYS』RETURN 
55 の の *L55 の の PURE ま 626 ,21:CALL SUBSYS』 RETURN 
56 の の ' し 56 の の PDKE ま 626g 。 さ 』 CALL SUBSYS』RETURN 
7 の "し 57 の iPUKE $626 1:CALL SUBSYS』 RETURN 
59 の の 'L59 の の:』PUDRE *626 1BiCQLL SBUBSYS』RETURN 
62 の の "し 6S の の iPODKE $626 の 。2SkCALL SUBSYB』 RETURN 

6 の の ' し 63 の の FORE 和 ま 6269』17:CALL SUBSYS』RETURN 
67 の の "し 67 の の :PDKE $626 の ,5*CQLL SUBSYS』 RETURN 
68 の の 'L6B の :PDRE ま 6269』7』CaLL SUBSYS』RETURN 

フ の の の し 7 の の :PUKE ま 626g 。 日 :CALL SUBSYS』 RETURN 
720 の 'L729 の :PDKE まま 6269。9:CQLL BUESYS』RETURN 

7 フ 6 の の 'L76 の PUKE *626」11: ょ CALL SUBSYS』RETURN 

フ 77 の 'L77 ロ の PDKE ま 6269。12 ょ CALL SUBSYS』RETURN 
B79 'LB7PgiPUKE ま 626 の 1 の 』CPALL SUBSYS』RETURN 
BB の の 'LBBO の PORE ま 626 の 14』CQLL SUESYS』RETURN 
99 の 'LB9 の の 』PDKE まま 626 の 9,16』 CALL SUBSYS』 RETURN 

9 の 9 の ' し 99 の の PDRE ま 626 の 。15: CALL SUBSYS』RETURN 
9 ご さ の の "し 9 さり の:PUKE ま 626 」19』 CALL SUBSYS ェ RETURN 
95 の の 'L95 の の PDKE まま 626 の 2 の CALL SUBSYS』RETURN 

96 の の 'L969 の 』PDKE 626 の 。1 さ 』CALL SBUBSYS』RETURN 

15 の の の 'L15 の の 0i 

15 の 91 "HLT[]:CPUKE ADDR 1 , の 。 4 の,25。 の 25。 の 1 。9』 SUB 
コ 

15 の 92 "PRINT " ジウ キ " グイ キョ フワ Ver 2. の by MAX"。/。/ 
15 の 993 "FRINT "セフン テ ・・・ 19。/。/。 リ コーデ ・・・ 2 " ョ CH=I 
NPUT 

15 の 1 の "HLT[]:CPDKE ADDR 。1 」 り 4 の ,25。2 の ,55。 の 1 の: SUB 
コ 

15 の 2 の "GODSUB し ささ の 』BDSUB し さら 6 の 

15 の 3 の 'N= の iDXEADR(N) ,$6CAB]iFUR エ =1 TD 3 の :BB(I)= 
の ウ i NEXT 


15 の 5 の '1IF CH=2 THEN BHTD L170 の 0iFI 

16 の の の 'L16 の の の iPRINT CHR$(7) : じ = の DXFADR(C) 。$6C9B] 
』N=N+1: DXEADR (N) , ま 6CA コ 

1692 の (し 16 の 2 の 9』GBUSUB L49 の 9:DX[ADR(I の ) 。 和 ま ら 6C9E]: NB= の 
sDXEADR (NB) ,$6C7 ビ ] 

16 の 3 の *IF STR: の )=9B THEN IF N< さ THEN PRINT CHR$( 
フ ) 。" コレ イジ " ョ ウ モト レ マセ ン " 3ELSE』 BUSUE L579 の : GUSUB し 57 の 
の : DX[*6CAB , DR (N) ]:N=N-2』DXFADR (N) 。 ま 6EAB]』FT』 BOT 
ロ L1692 の jiFI 

16 の 4 の 'BDSUB L46 の iDX[ ま 6C7C 』QDR (NB ) ]: IF NB=-1 丁 H 
EN PRINT CHR$(7) 』BDSUB DSP』GOTU L16g20』FI 

16 の 5 の 'GDSUB L56 の の 9』DX[ ま 6C7C 』QDR (NB) ]』 IF NB=-1 TH 
EN PRINT CHR$(7) i BUSUB DSP』BUTU L1692』FI 

16 の 6 の 'DX[ ま 6C6Q ADR(F) ]』 IF B(F)=155 THEN PRINT " 
YDU ./ カチ "』 BOTD BENDiFI 

1697 の 'GUSUB し 47 の 9:BDTD L17 の の の 

17 の 1 の "し 17 の の iC=1:DXFADR(C) ,$6C9B]』 N=N+1 』 DXEADR ( 
N) ,*6CAB]』 TP= の iDX[ADR(TP) 。 ま も 6CBA]』 ZN= の iDX[ADR(ZN) 
も 6CF] 』 DS=ー1 』 DX[ADR(DS) 。$6CBB] 

17 の 2 の "FDR 1I=1 TU 2 の iPV(I ) = の 』NEXT 

171 の の 'K= の iDXLADR(K) ,。$6C56]』 BUSUB L6709』 DX[* ま 6C5A 
。SDR (BN) ] 』 0 の =BN: DX[ADR (の ) , ま ら 6CF2]』 DX[ ま 6C7 ビ 。ADR (N 
B) ]』 IF NB=-1 THEN BUTD BENDjFI 

1711 "DX[*6CF2 。ADR(D の ) ]:』F=D の 』DXEADR(F) 。*$6P6]』B 
DSUB L5 の の iDX[ ま 6C69,QDR(RN) ]』 IF RN= の THEN BDTD L1 
720 の 』FI 

17129 "PRINT " COM ノ カチ リ 
17149 "PRINT/。"  "JN-1。" テテ * 
BEND 

172 の "し L1720 の に K=155:DXEADR(K) 。 和 ま 6C56]: BUSUB し 6700: 
DX[*6C5A DR (BN) ]』 1=BNs DXLADR ( ロ 1 ) 6CAE]: DX[ ま 6 ビ 
フ ビ 。QDR (NG) ]: IF NB=-1 THEN GUTD BEND:F+ 

1721 の 'DX[*6CAE 。 DR( ロ 1 ) ]』F= ロ 1 』 DXEADR (F ) , ま 6C6]i 
DSUB L5 の の 

1722 の DX[ ま 6C5B 。SDR (RN) ]』 IF QRN= の THEN BOTD L174 の 
の FI 


CN ./ カチ テ ~ ス 。 "5 BOTO 


172 さ の 'BDSUB L6 ヨ の の GUSUB L7 の の の 』BUSUB L72 の の 

1724 の "DX[* ま 6CEBA 。QDR(TP) ]』 IF TP= の THEN FRINT " マテ 
^_ COM ノ マ ケ "BUTUD L1726 の FI 

1725 の "GUTO L194 の の 

17269 し L1726 の gs 

1727 の PRINT/』" 。 "JN-1 。" テテ ^ アナ ./ カチ テ ^ ス 。"』BUTD 
BEND 

174 の の "L174 の の 』 BUSUB LB7g の 』UQ= の iDXEQADR(UA) 。 ま 6CF4] 


3 DX まま 6CC6 。ADR (UX ) ]: IF UX= の THEN BUTU し 175 の 9:FI 
174 の 5 'DX[* ま 6CC6 。ADR(UX) ]』TF UX=1 THEN BHTD L1742 
の iFI 

1741 の "GOSUB L76 の の 

1742 の “し 1742』 DX[$6CF4 』ADR (UA) ]』 UA=UA+1 3 DXEADR(U 
Aa) 。$6CF4]』 DX[ ま 6CCE6 DR (UX) ]s TF (UaA>UX)+(UZ (UA) く < の 
) THEN BUTD L175 の の iF1 

1743 の *HI= の iDX[ADR (HI ) 。 ま 6C9C]』E=UMI(UA ) : DXFADR (E) 
。 ま 6C6C] 』F=UY (UA) 』 DXEADR (F ) , ま 6C6a] 

1744 の BODSUB し 77 の iDX[ ま 6CAC 。 DR (DT ) ]: IF ロ T=-1 TH 








EN BOTD L1742 の jiFI 

1745 の "BUSUB L969 の 』 DX[ ま 6C7C 。 ADR (NG) ]: IF NB=-1 TH 
EN NG=gs DXLADR (NG) ,*$6C7 ビ ]』 BUTUD L194 の FT 

1746 の 9 "GBDTD L1742 の 

175 の の 'L175 の 9 の: BUSUB LBB の iDX[ ま 6CC6 。ADR(UX) ]: IF U 
X= の THEN GBDTD L189 の の FI 


1751 の "DX[ ま 6CC6 。RDR(UX ) ]: IF UX=1 THEN BHTD L175 ミ 
giFI 

1752 'GDSUE L76 の の 

1753 の し L1753 の 』 DX[ ま 6CC6 。QDR (UX ) ]』 TF UZ(UX) = THE 
N GUTD L1B の 2 の:F1 

17535 "GUSUB L9 の の の 

1754 の DX[* ま 6CDC 。ADR (FR) ]:』 IF FR=-1 THEN FR= の iDXFA 


DR (FR) 。 ま 6CDC]』 BUTUD L194 の の 』FI 

176g の "GODSUB LB9 の の 

1 フ 761 の "DX[ ま 6CDC 。QDR (FR ) ] 』 IF FR=-1 THEN FR= の 』DXE^a 
DR (FR) , ま 6CDC]: BUTU L18 ウ の の FI 

1762 の "BUSUB L969 の 』DX[ ま 6C7C 。 DR (NG) ]』 IF NB=-1 TH 
EN NB= の 9』DX[ADR(NB) 。 和 $6C7C]』 BODTU L1949 の FI 

1 の の の 'L18 の の の s』GF= の 』DXEADR(GBP ) 。 ま ら 6CRR] 

18 の 1 の "L1B の 1 の 』DX[ ま 6CAA 。RDR(BP ) ]: BP=BP+1 』 DXEADR (G 
P) 。 ま 6PAA]』 DX[ ま 6CF6 。RDR(TN) ]』 IF GBP>18 THEN BUTO し 


185 ウ の FI 
18 の 15 "DX[ ま 6CAA 。QDR(BF ) ]』 IF BB(BP)=-1 THEN BOTD 
L18g1 の FI 


18B の 2 の "BODSUB L6 さ の の 』DX[ ま 6 ビ 7C 。 DR (NB) ]』 IF NB=-1 TH 

EN NB=g』DX[ADR(NB) , 和 6C7C]』 BUTU L1B の 1 の iFI 

18 の 3 の 'BDSUB L969 の 』DX[ ま 6C7C 。QDR (NG) ]』 IF NB=-1 TH 
EN NB= の iDXEADR(NB) ,$6C7C]』 BUTU L194 の 9iFI 

18 の 4 の 'DX[ ま 6CBR ,RDR(TP) ]』 PV(TP ) =1 

1 ヨ 5g の 'L185 の の 』 GOUSUB L59 の の 

151 の "BUSUB し 969 の 9』DX[ ま 6CBA 。RDR(TP) ]』 IF TP>2 THE 
N NG= の 9』 DX[ADR(NG) 。 ま 6C7 ビ ]』 BUTD L194 の の FI 

1852g "BUTO L185 の の 

194 の の 'L194 の の 』GUSUB L9 さ の の 

1941 の "GBDSUB L950 の 』DX[ ま 6CDC 。QDR (FR) ]』 IF FR=g THE 
N GUTD L1942 の FI 

19413 "DX[ ま 6CF の 。QDR(ZN) ]』 IF ZN> さ THEN PRINT "! マテ 
* CUM ノ トウ り ョ の "BODTUD L1726 の FI 

194155 "DX[ ま 6CF ウ 。ADR(ZN) ]』 ZN=ZN+ 1 』 DXEADR(ZN) 。 ま 6CF 
の ]』 TP= の 』 DXEADR(TP) 。 和 ま 6CBR]』 BOTO L1BS5 の の 

1942g "し L1942 の 』 昌 エニ ー1 』 DXFADR (HI ) 。 ま 6C9C] 』 DX[ ま 6CER 。 谷 
DR( IM) ]』 IF TB(IM)=ー1 THEN HI= の 』DXEADR(H1 ) 。 和 も 6C9C] 
sFr 

1943 の "DX[ ま 6CER 。RDR (IM) ]』E=TE(TW) iDXERDR (E) 。 ま 6C6 
C]』F=TF(IM) 』DXEADR(F ) , ま も 6C6Q]』NA=TA(TM) 』DXEADR(NA 
) , 6C92]』 =TB(TM) 』DXEADR(B) ,$6C4] 

1944 の "DX[ ま 6CER 。QDR(TM) ]』 IF PV(IW)=1 THEN DX[*6 ビ 
QR 。RDR(BP ) ] 』 BB (BP ) =ー1 』F エ 

1959 の "GUSUB L55 の の ウ 』DX[ ま 6C7C , ADR (NB ) ]』 IF NB=-1 TH- 
EN _NB= の 』 DX[ADR (NB) , ま 6 ビ フ 7 ビ ]』NQ= の s DXEADR(NA) 。 ま 6C ワ 21 


BOTU L19529』Fi 

19551 の 9 'NQ=ー1』DXEADR(NR) 。 ま 6C92 コ 

19529 'L19529』GDSUE L62 の の 

19525 DS= の iDXEADR(DS) , ま 6CBB] 

1953 の 9 "GOUSUE L47 の の 

1954 の 9 BUTU L16 の の の 

3 の の 9 の DX』QDDR=X2』DQTR=PEEK (1 ) *256+PEEK (ん 1+1) 』 ビ 


PUKE DDR 。DATR#: RETURN 

ミウ さ 6 の 「CLS:HLT[ ]:CPDKE ADDR ,$ の 2」 1 2 さ 。2 ェ SUBF]iR 
ETURN 

ささ 7 の "LTNE』HLT[ ]』 CPUKE ADDR 。$15。 ん 6』 5』 ん 1 ん 2 
さ 拉 4 間 7 ェ SUBE ]』 RETURN 

3 の 4 の の "HLTiCUDE *$Bo ,$FD# ま 2HF 時 ょ PUKE ま FDO5 , $B の 
3 CODE *B6 。$FD の 時 まつ QF 日 社 : DDR= 和 FCB2』 RETURN 

さ の 41 の SUB:PUKE *$FDO5 。 の 』RETURN 

ミ の 5 の の "LDCjHLTE ]:CPDKE ADDR 。 さ 。 さ も 12。 ん 1 ん 23 SUB[ ] 
RETURN 

4 の の 9 の "BEND:PRINT /。" モウ イチ テト" ヤリ マス カマ (Y/N) " 
4 の の 1 の START』Q=BGET:TF (Aa=B9)+( 人 =121) THEN GUTD し 
1 の :ELSE 』TF (人 =7 日 )+( 人 =1 1 のり ) THEN DX[*6BO 。 ま 1E1 ]: EN 
DiFTiFIsGDTO START 


の の の DSF:DA=PEEK(627 の ) 

5 の の 1 の "IF Da=1 THEN PRINT" コッ マキ コ " ウチ カ " イ リョ FT 

5 の の 2 の "1F DQ=2 THEN PRINT" フォ ー マ ゅ ト ・ エ ラー リュ FI 

5 の 9 さり の "IF DA=S THEN PRINT" = パフ フフ コ マテ "ナイ" ュ FT 

5 の の 4 の 9 "IF Da=4 THEN PRINT" ジフ トン ノコ マラ ト ゅ ティル" ュ ビ エ 
5 の の 5 の "IF DA=5 THEN PRINT" キィ イ テ ナ イリ ュ ョ FI 

5 の の 6 の IF Da=6 THEN PRINT" ニ フ "』F エ 

5 の の 97 の 'IF Da=7 THEN PRINT" ウ 9 コ マカ "ナイ リュ ョ ド エ 

5 の 8 'TF Da=B THEN PRINT" ウ の "ショ ニコ マ ア リリ ュ ド TI 

5 の の 9 の 'IF Da=9 THEN PRINT" シコ トマ リョ FI 

5 の 1 の の "IF DaQ=1 の THEN PRINT" ナレ ナイ リョ FI 

5 の 2 の の "RETURN 

6 の の の の し 6 の の CODE $BE , ま 4 。 の 。 和 まじ ビ 。 の 。 の ED 。 日 1 。 ま 日 ビ 


4D 。 の 。 まつ 6 。 和 ま 9 。 和 ま BE 」 ま ロ RA 。 の 。 ED 。 和 日 1 。 日 ビ 」 和 ま ら ら 」 の 。 和 も 26 
F 」 ま BE 。 も ら ビ 。 の 。 まま ED 。 日 1 。 日 ビ 。 あ ら D 。 の 。 名 

6 ら 1 の 1 の "FDR 1= の TU 5 さ 』PUDKE ま 65 の ワ +1 。PEEK (まま 12 の の +1 ) s 
NEXT 
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リス ト 1 メイ ン ・ プ ログ ラム 
61 の 2 の "FUR T= の TO 15:PUKE * ま 5B4+T 。PEEK (124 の +T ) : 6111 の "PDRE ま 6 さ の 4+T 。PEEK( ま 1 さ 1 の +1 ) 
NEXT 6116g "NEXT ほ 
61 の さ の "FOR 1= の TO 9 611B の "FUR 1= の TU 59:PDRKE ま ら 6 の 2 の +1 。FE ニ K (1 さら 6 の +1 ) 』 
61 の 4 の "FDR J=g TO 15 NEXT の 
ら 61 の 5 の 'A=Ix16+JiPUEE 5D46+ 人 Q 。PEEK (125 の + ム ) 6119 の "FDR 1T= の TO 45:FDKE * ま 6 の 6 ワ +1 。PEEK (13A+1 ) : 
61 の 6 の NEXTiNEXT NEXT 
61 の 7 の "FDR 1= の TU 19』PDRKE ま 5DEB+T 。PEEK ( ま 12F+1 ) s 62 の の の "PDKE * ま 4F さ 4 。 の :RETURN 
NEXT 


61 の 9 の “FUR 1= の TH 71 





Ya | スト 2 


サブ ・ プ ロ グラ ノム 、 





1 の 日 =$ 選 QRO の 』 = 和 ま 5HBS の BK= 和 ま ら 日 4 り 』 ロー ま 5B5 の 』L 昌 = ニ 9 の = 
LR= ま 5C の の 』HQ= 和 5 じ 7 ェ BB= お ら じ 9 の BC= 和 ま 王 CB の 』BD= ま 5CD の 』 BE= 
まま 5CF の 』HF= ま 5D1 の 』 PS= ま 5D さ の 

< さり の 「FM=$ 紀 D46』 DN= も 5DE 日 』 口 = 相 5E の の ェ ロ ドー 和紀 E2 の 』 ェ ドド = ビオ ウェ 
FRK= 和 5E6 の 』RV り = も 5EB の ュ G=* ま 王 EAI の 』 TE= ま 5EE の 』TF= 加 ロ F1 の 』T は = 
ら F 4 の 』 TQ= ま も 5 ドブ の ウ 

5 の 'DD= ま 5FA』RD= 和 ま 5FCO ェ M= ニ 和 ま FE ェ RM= ニ 6 の の の ウェ P に ドー あら 
の :PN= 生 6 の 6 の : り 本 = 和 ま ら の ワウ の 』 りり = 和 ま ら の BB 』U り = ま ら の D の 』 UM= ま ら 1 の の 』 リ 
Y= も ら 61 さ の 』UZ= 和 ま ら 16 の 

26 の "FV= あ 619 の ェ PX= 和 ま ら 1 じ ェ PFY= 和 ま ら 1F ェ ビアー ま ら 22 の 』 STR= ま 62 
5 の 』 BB= ま 6 さ の 四 * BUTD  L15 の の の 

3 の 「L3 の の ITF K テ 14 THEN BDTUD L さ 2 の giFI 

き 1 の 9 「GINEGN+1j (RIN) =BN』 GR (BN) =K』 BBD (BN) =DT iQM(GN) = 
VNi RETURN 

さ 2 の しさ 2 の 』 RN=RN+ 1 sR(RN ) =BN』 RK (RN) =K』RD (RN) =DI 』 RM 
(RN) =VN』 RETURN 

4 の の "L4 の の 』 ITF K>14 THEN K1=K-15』 DJ=D1 』 BUTD L42:F 
1 

41 の に 選 1=KR』 DJ= フ ーD1 

42 の 9 「L42 の iTF KK1>1 の THEN K1= さ 』F エ 

4 の PD=FPM(K1%+DJ ) 』 RETURN 

5 の の 'L5 の 0 の 』 EN= の iRN= の iD エ = の 

51 の 'L51 の 』 VN=1 』 ソ =DN(DTI ) : BN=F+ り = に に = 日 (BN) 

52 の "IF K=25 THEN BOTD L61 の iFI 

5 さ の "TIF K=1 の THEN BOTD L56 の 』FI 

54 の 9 "GUSUB L4 の の 』 IF PO= の THEN GOTU L61 の 』FI 

55 の 9 "BUSUB し 3 の の 』 GBDTD L61 の 

56 の 'L56 の 』 VN=VN+1 』 BN=F+VN*V』 K=B(EN) 

57 の 9 "IF KR=25 THEN BUTD L61 の 』FI 

58 の "TIF K=1 の 9 THEN BHTO L56 の 』FI 

99g "GOSUB L49 の 』 IF POS>2 THEN BUTU L61 の FI 

6 の の 'GOSUB L さ 3 の の 

ら 61 の "L61 の 』DT=DT+1』 IF DI>7 THEN BUTD L6 さ の 』FI 

629 "GOTU L519 

ら さ の し 63 の 』 BN=Fー2 さ 』 ドニ (BN) 』 VN=1 

64 の "IF K=2 の THEN BUSUB しさ の の 』FI 

65 の 'BN=F-21』 に 民 =B(BN) 

66 の 9 "IF K=2 の THEN BUSUB し 3 の の 』F エ 

67 の 'BN=F+21』K=B(BN) 

68 の "IF K=55 THEN GUSUB L さ の の 』FI 

69 の 'BN=F+2 さ 』 に K=B(BN) 

7 の の "IF K=5 THEN GUSUB し L さ の の 』FI 

71 の "RETURN 

B の の 'LB の の 』IF に K>14 THEN K1=K-1 王 : DJ コ = フ ーD 1 』 BUTD LB2g 
ョ Fi 

B1 の 'K1=KiDJ=D1 

B2 の 'LB2 の IF K1>1 の THEN K1= さ 3』F エ 

B さ の "FU=PM(K1x 日 +DJ ) 』 RETURN 

70 の し L9 の の 』 に K=B(E) 』 ITF (K=1 の )+(K=255) THEN SN=-1 』 RET 
URNiFI 

91 の "SN= の 』 DI= の 

22 の "1F K= 紀 THEN BOT L1 の 9 の 』FI 

53 の "IF K=2 の THEN BOTOD L111 の 』FI 

94 の "し L94 の 』VN=1 』 り =DN(DT) 』F1=E+V』KF=B (F1 ) 

95 の "IF KF=25 THEN GOTO L1959』FI 

96 ウ の "GUSUB LO の 

979 IF PO=g の THEN GOTO L1 の 5 の giFI 

98 の SN=SN+ 1 』 (SN) =F1 

59 の IF (PD=1)+(KF く >1 の ) THEN GOTD L1 の 5 の 』FI 

1 の の の 'L1 の の の 』 VN=VN+ 1 』F1= ニ E+VN*V』 ド F= 昌 (F 1 ) 

1 の 1 の "IF KF=25 THEN BODTO L1 の 5 の 』FI 

1 の 929 SN=SN+1 』5(SN) =F1 

1 の 3 の "ITF KF ぐ >1 の THEN GOTO L195 の FI 

1 の 4 の "GOUTOU L1 の の の 

1 の 5 の 'L10 の 5 の 』 DI=DI+1 

1 の 6 の "IF DI>Z7 THEN RETURN』FI 

1979 "GODTU L949 

1 の B の 9 "し L1 の 8 の 』 IF B(M) く >25 THEN SN=SN+ 1 』5S(SN) =M』FTIs 
RETURN 

1 の 9 の "L1 の 9 の 』 い = ビー2 さ 』 BUSUB L1 の 8B の 

11 の の "ゆい = ビ ー21 』 BUSUB L1 の BiRETURN 

111 の "L111 の 』 い =E+2 さ 』 BUSUB L1 の 8 の 

112 の MM=E+21 GUSUB L1 の Bi』RETURN 

さ の の の "しさ の の の 』BN=21 一 X+1 1xYsRETURN 

さ 1 の の しさ 1 の の 』Y=(BN-1 1 ) /1 1 』 INT= の 

さ 11 の X=(21 一 BN)+1 1XYsRETURN 

さき 2 の の しさ 2 の の 』 ITF (X く ー く ) 二 (12 く X)+(Y く 1)+(9 く <Y) THEN NG 











ニー1 3 RETURN ェ FT 

さ 22 の 'RE= ま の の +52xK 

さ 2255 *X9=(12ーX ) * さ さ 』Y ワ =Y16/1 の ー4 

さ 23 の "LTNELX9』Y9」X9+ さ 1 。Y9+12 の 。 の 。21 

さ 24 の "HLT[ ]:QD= 和 FCB2』 PPDKEAD 」 あ 1 。X9 音 。Y9 柱 。( X9+ さ 1 ) 

韻 。(Y ウ +12) 六 。7。 の 。52 

さ 25 の "FOR エ = の TD 51:』AD: 1)=E: 1T) 』NEXT: SUB[ ]』 RETUR 

N 

さ 4 の の "し さ 4 の の :TF DS THEN BOTD L さ 4 さ の :FT 

さ 4 の 5 *GDSUB し さ 1 の の 』 GOUSUB し さ 2 の の 

さ 43 の "し 34 さ の 』B(BN) =KiRETURN 

3B の の し SB の iM(MN) =M(MN) +MMi TF DS THEN RETURNjFI 

3 日 1 の "IF MN: フ 7 THEN BUTD L さ 9 の ウ iFI 

3B2 の 'X=ー2』Y=MN+2 

3B3 の '1TF NM(MN) = の THEN K=1 の 』BUTU L3B5 の 』FI 

3B4 の 9 'K=MN 

3B5 の "し 3B5 の 』 GBDSUB し さ 2 の の 

ミ B6 の 'X=ー ミ 』TF NM(MN) = の THEN K=1 の 9: GUTD L さ BB の FI 

3B7 の 'K=M(MN) +29 

さ BB の "しさ BB の iDSUB し さ 2 の iRETURN 

さ 9 の の "し さり の の s メニ 1 1 』 Y=MN- ア 

391 の IF M(MN) = の THEN KK=1 の BUTD し さ 9 さ の FI 

さ 92 の 'K=MN+ 晶 

さ ミ 9 さ の "し さ 9 さ の :GDSUE し さ 2 の の 

さ 94 の X=12』TF M(MN)= の THEN K=1 の : BUTD し さこ 96 の 』F エ 

ミ 95 の 9 'K=NM(MN) + ミ 日 

さ 96 の しさ 969:BDSUB し さ 2 の ウェ RETURN 

41 の の "し L41 の の iM=B(F) : MM=1 

411 の "IF M<B THEN MN=M+7』BUTD L417 の FI 

412 "1F M<15 THEN MN=MiGOUTD L417 の FI 

413 り "1F M<2 さ THEN MN=M-15i BUTU L417 の 』F1 

414 の "IF M< さ 3 ウ THEN MN=M-22j BUTD L417 の 』FI 

415 の "FRINT"ERRER" 』 RETURN 

417 の "し L417 の 』P=P+PK (MM) : BA(T2) =MNi BB(T2) =ー1 』 GBDSUE 
L さ B の の: RETURN 

42 の の "し L42 の 9:BC(T2) =FsBD(12) =B(F) 

421 の "BE(T2) =EiBF(T2) =B(E) 

422 の 12=T2+1』TF 12=1 の THEN 12= の iFI 

42 さ の 'BN=FiM=B(E) 

424 "1TF Na=-1 THEN K=M+7 ェ P=PーFN (MM) : BUTD L426 の iF 
r 

425 の ・K=M 

426 の 'L426 の GUSUE し さ 4 の の 

427 の "BN=E』 ド =1 の 』BDSUB し さ 4 の 9 

428 の 'NQA= ウ iRETURN 

4 さ の の 'L4 さ の:TF 14<B THEN PRINT"g ロ >41"iRETURN:FI 
4 さ 1 の 9 "PS(I2) =P 

432 の "BA(T2) =BsBB(T2) =1 
ささ の "BC(T2) =FiBD(T2)=1 の 

4 さ 4 の "BE(T2) = の り :BF(T2) =25 

4 さ 5 の 12=T2+1:TF T2=1 の THEN 12= の iFI 

4 さ 6 の "IF 7<B THEN K=B+G』BUTD L4 さ BiFI 

4 さ 7 の 'K=5 

4 さ B の "L4 さ B の 』 BN=F 』 BUSUB し さ 4 の 

4 さ 9 の 'MN=B:MM=ー1 : BDSUB し さ BO の 』RETURN 

44 の の "し 44 の の ェ エ =1 : REFEAT 

441 の "1IF BK(I)=I1 THEN =I+7*CsRETURN:FI 

442 の 「 エ = エ +13UNTIL エッ > フ 

44 さ の "NG=ー1 :PUKE 6279。1:RETURN 

45 の の "し L45 の の 』X=HIBH(T22) 4 

451 の 'Y=LOW(I22) 4 昌 

452 "IF (X<1)+(9 く X)+(Y く 1)+(9<Y) THEN NG=ー1 』 RETU 

RNsFI 

45 さ の "BUSUB し さり の の 』RETURN 

46 の の 'L469 の : 122=STR(1 ) : BUSUB L45 の の ェ F=BN: TF NG=ー1 
THEN BUTD L467 の :FI 

461 の 122=STR (の) : BUSUB し 45 の の 』EーBN』TF NG=-1 THEN 
BOT L465 の jiFI 

462 の "HH エニ の:NQ= の 

46 さ の 「IF 1 の >4 THEN IF BTR:4)=11 の THEN NQ=ー-1』FTiF 
6 

464 の "RETURN 

465 の 'L465 の iNG= の 』 日 エニー1 』 [1= ニ 122』 GUSUB L44 の の 』TF NB= 
ー1 THEN BODTD L467 の 』FI 

466 の "RETURN 

467 の "L467 の PUKE * ま 627 の 2: RETURN 

47 の の "し 47 の の :TF HI ニー1 THEN BUSUB L4 さ の の iRETURN』F エ 
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471 の "BUSUB L4B の iRETURN 
48 の の "L48 の の iFPS(T2) =F 
481 の "IF B(F)=1 の THEN BE(1S) = の 』GUTD L4 昌 3 の FI 
4B2 ウ "BUSUE L41 の の 
483 ウ 'L43 の 』 BDSUB L42P の RETURN 
ら の の の し L5 の の の 9』 に [= の GUSUB L9 の の 
5 の 1 の "FUR エ =1 TO SN 
5 の 2 の "IF (1T)=F THEN に ユニ ー1 』 RETURN』F エ 
5 の 3 の NEXT 』RETURN 
紀 1 の の 151 の の 』TF (B(E) ヾ <15*C ビ )+(B(E) 15x ビ +14) THEN P 
ORE ま 627 の 。 さ 』 NB=ー1 』 RETURNiFI 
511 の "IF (B(F) ヾ 15XC)+(B(F) >15xC+14)+(B(F)=1 の ) THE 
N GOTD L513 の FI 
512 の 9 “PURE 627 の 。 人 4: NB=ー1 』 RETURN 
51 さ の し L51 さ の 』 BODSUB L59 の 9 
紀 14 の の "IF 1= の THEN PUKE まま 627 の 。 己 : NG=ー1 』 RETURN』F エ 
5159 “NG= の iRETURN 
529 の 'L52 の iM=Fー1 1 』 X テ 内 ー11% (MM/11) 
521 の の 1=7』TF ロ =14 THEN MM1=22 ェ FI 
522 の 1=X+224REPEAT 
523 さ の TIF HB(T)=M1 THEN NG ニー1 』 PUKE 627 の 6』RETURNs 
Fr 
524 の 9 エエ =1T+11』UNTIL iT>12 の 
525 の NG=g』 RETURN 
3 の の しさ の の 』1F (=5) *(F く 4 さ ) THEN NG ニー1 』 RETURN』F エ 
31 の "TIF ((B=6)+( は = フ 7 ) ) * (F く さ 2) THEN. NG=ー1 』 RETURN』 
FI 
5329 "IF (B=12)%(F>99) THEN NG=ー1 』 RETURN』F エ 
5 ささ の 'IF ((B=13)+(B=14))%(F>11 の ) THEN NG=ー1 』 RETU 
RNiFI 
534 の 9 'NG= の 』RETURN 
54 の の 'L54 の の 』 IF M(B)= の THEN PURKE 627 の 。7』 NG ニー1 』 RE 
TURNiFi 
541 の "IF B(F) ヾ >1 の THEN PUKE ま ら 6270 。 日 NG ニー1 』 RETURN 
5F エ 
542 の "1F (B=14)+(B=7) THEN BUSUB L52 の の 』TF NG=ー1 
THEN RETURNiFIiFI 
5439 "IF (B>4+CX7) *(B く 昌 +CZ) THEN GUSUB し 3 の の 』 エ F 
NB=-1 THEN BUTU L545 の FIiFI 
544 の "NB= の 』RETURN 
545 の 9 'L545 の 9』PUKE ま 627 の 。9』RETURN 
55 の の 'L55 の の 』 い =B(E) 
551 の IF (の WM)#(M<B) (MM く > る ) *((E く 54) +(F く 54) ) THEN 
BOTO L5549』F エ I 
552 の "IF (15<M)*(M く 23) (MM く >18)※((E>B ヨ 日 )+(F>BB) ) 穫 
HEN BOTOD L5S549j』FI 
5583 の "NG=ー1 』 PHKE まま 627 の 。1 の 』RETURN 
、5549 'L5549』 NG=9』 RETURN 
56 の の 「L562 の 』 ITF Hi=ー1 THEN BUSUB L54 の の 』RETURNiFI 
561 の "BUSUB L51 の の 』IF NB=-1 THEN RETURNsFI 
562 の "IF NQ=-1 THEN GBDSUB L55 の の 』FI 
56 さ 3 の "RETURN 
7 の の し 57 の の 』 12=12ー1 :TF T2=ー1 THEN 12=9 ョ FI 
573 の P=PS( 12) 』 MIN=BA (12) 』 MM=BB(12) 』 BUSUB し さ B の の 
574 の "BN=BC(1T2) 』 に K=BD(12) 』 TF BN=g ウ THEN BUDTO L5769 
ョ FI 
75 の "BUSUB し 34 の の 
576 の 'L576 の 』 BN=BE( TS) 』 に =BF (1T2) 』 IF BN= ウ の THEN GOTD 
L578 の FI 
577 の "BUSUB し L う 34 の の 
578 の 9 'L578 の 』 RETURN 
5B の の 'L5B の の iLN= の 』 BN=2 さ 3 
581 の "L581 の iMW=B(BN) 』TF (M>14) (MM くさ の ) *(M く >25) THE 
N LN=LN+1』LB(LN) =BNiLK(LN) =M』F エ 
5B2 の 'EBN=BN+1 』 TF BNS12 の THEN GOTO L5B1 の FI 
583 の の “RETURN 
59 の の 'L599 の 』GDSUE L5B の の 
91 の L591 の iE=LEH(RND (LN) +1 ) 
592 の BUSUE L9 の の 』 ITF SNX1 THEN GOUTUD L591 の 』F エ I 
93 の 「F=S(RND (SN) +1 ) 
594 の "1F (14XB(F) ) X(B(F) ミ ささ の ) THEN BUTU L91 の FI 


595 の 9 'GUSUB 1L55 の の IF NB= の THEN NQ=ー1 』 BUTD L597 の 』 


FI 
5969 "NB=giNA=O 

597 の *L5979』RETURN 

6 の の の "L6g の の iTF G>Z THEN GUTU L692:FI 

691 11=GK(G) 』 RETURN 

6 の 2 の "し L6 の 2 の iT1=GK (ロー7) 』 RETURN 

61 の の *L61 の の : GDBUB しさ 1 の 0 

611 の "122=(X+4 日 ) *256+Y+4 日 s RETURN 

62 の の *L629 の : BN=F : GBDSUB し 61 の の : エコ =I22 

621 の *ITF 日 エ =ー1 THEN BDSUB L6g の の :STR( の ) =T1 : STR(1 ) 
=1 さ 』 1 の =4:BDTD L623 り iF エ 

622 BN=E』BDSUB し 61 の の :STR() =T22: STR て (1 ) = エミ ュ 1T の =4 
62 さ の *L62 さ の 』TF Na=-1 THEN STR:4)=11 の = T の =5 ュ FI 
624 の "PRINT/:PRINT N。" CEON "」 

6245 "FUR IT= の TO Ig-1:PRINT CHR$(STR: 1) ) 。:NEXTiR 
ETURN 


63 の の し 6 さ 3 の の 』 STR( の ) =6S(BFP*2) 』STR( 1 ) =BS (BP*2+1 ) 』 G ロ 
ae 








SUBE L46 の の 』 BUSUE し 6 の の IF NGB=-1 THEN RETURN』FI 
さき 2 “BUSUE L77 の の 9』TF ロ T=ー1 THEN NG=ー1』F1I 
6 ささ の "RETURN 
67 の の し 67 の の 』 BN=2 マ 
671 の し L671 の 』TF B(BN)= ド K THEN NB= の 』RETURN』FI 
672 の BN=BN+1 
ら 673 の "IF BN<129 THEN BUTD L671 の 』FI 
674 の "NG=ー1 』 RETURN 
6 日 1 の "L6B の の 』 ド =155: BDSUE L67 の の 』 ロ 1=EBN 
682g F= ロ 1 』 BUSUB L5 の の 
683 の 'GS=GIN: TF EN1 THEN RETURN』F エ 
684 の "FM=G( 1 ) sF=FM』 GBDSUE L5 の の: IF RN= の THEN RETUR 
Ni FI 
6 ヨ 5 の “RM=RNsFUR エ =1 TU RNsiRV(1 ) =R(1) 』NEXT 
686g ウ "FOR II=1 TO RM 
67 の ・F= ニ FM ビニ RV( 1 1 ) 日 [= ニ の ェ NQ= の 
6B99 の "GUSUB L4B の 9 の 3F1=F』E1=E 
69 の の KK=15』 BUSUB L679 の 』F=BN』 GUSUB L5 の の 
691 の "IF RIN> の THEN BUTU L69 さ の giFI 
692 の TP=TP+1 』TB(TP) =ー1 』 TE(TP) =E1』TF(TP)=F1』TQ(T 
P ) = の 
69 さ の "し L69 る 3 の 』 BUSUB L57 の NEXT』RETURN 
7 の の 9 の "し L7 の の の 9』E= ロ 1 』 GBDSUB し L9 の の 』 1 エニ =1 
7 の 1 の "L7 の 1 の 』 BM=S (1 1 ) 』 MK=B(BM) 
7 の 2 の 9 "IF (14 く MK) * (MK くさ の ) THEN GUTU L711 の FITjF=BU 
5 BUSUB L5 の の g 
795 の 9 "IF GN> の THEN GOTO L71 1 の 』FT』E= ロ 1 』 NQ=9』 BODSUB 
L480 の 
フ 7 の 8 の "F1=FiE1=E』BUSUB L5 ウ の 』 IF RN> ウ の THEN BOT L71 
の FI 
7 の 9 の "TP=TP+1 
7 の 995 'TG(TP ) =ー1 』 TE(TP) =E1 』 TF(TP) =F1』TR(TP ) = の 
71 の の 'L71 の の 』 GOUSUB L57 の 9 
7 フ 711 の "L711 の 』 IF II く SN THEN IT エ =1 エ +1』GUTU L7 の 1 の FI 
7129 "RETURN 
721 の し L72 の の 。F=D1 』 BUSUB L5 の の * VM=BNM( 1 ) 』 DD=QD(1 ) 
722 の "IF (GRN>1)+ (VNM=1) THEN _ RETURNiFI 
フ 25 の 11=1』DV=DN(DD) 』F= ロ 1+DV』 BDSUB L5 の の 』TF RN<2 
THEN BUTD L7 さ の FI 
727 の 9 の "FUR エ =1 TH RNi IF RK(TI)=15 THEN BUTO L7290』 
Fi 
728 の "TFP=TP+1 』 TB(TP) =ー1 』 TE(TP) =R(1 ) 』 TF(TP) =F』TA( 
TP ) = の 
729 の 9 'L729 の 』NEXT 
フミ の の 'L7 さ の の 』 = REPEAT 
7 フ さ 1 の "GUSUB L54 の 9』TF NB=-1 THEN BUTU L7 さ さ の 』FTI 
7 さ 2 の TP=TP+1 
7325 TB(TP) =B』 TF (TP ) =F 
733 の 「L7 さ さ の 』 6=B+1』UNTIL Gi>14 
735 の 'L734 の 9』 エエ = エエ + オ 1』TF TI>=VNM THEN RETURNiFT 
7 さ 7 の 'F= ロ 1+DVXT TiBUSUB L5 の の: IF _RN= の THEN BOTU L7 
34 の FI 
738g "IF RN=1 THEN BUSUB L759 の GUTU L742 の 』FI 
74g9 "FUR 1 エ =1 TU RNi TP=TP+1 
フ 741 の TG(TP) =ー1 』 TE(TP) =R( 1 ) 』 TF(TF) =F』TA(TP ) = の 』 NE 
XT 
742 の 'L7420』 = 日 』 REPEAT 
74 さ の "GUSUB L54 の 9』 IF NG=-1 THEN GOTOU L745giFIiTP 
=TP+1 
744 の 'TG(TP) =6』 TF (TP) =F 
745 の 9 'L745 の 』B=G+1 UNTIL B>14』BOUTU L7 ミ 4 の 
7 フ 5 の の し L75 の の 』E=R(1 ) :E1=E ュ F1=F 
751 の 9 'NQ= の 』GUSUB L4B の の 』 BUSUB L5 の の 
753 "IF RN= の THEN BUTH L755 の FI 
754 の "TP=TP+1 TB(TP) =ー1 』TE(TP) =E1 』TF(TP)=F1』TQ(T 
P) = の 
755 の 9 'L755 の 』 BUSUB L57 の の 』 RETURN 
76 ゥ の 'L76 ウ の FDR エ =2 TO UX 
761 の “MM=UZ (Ti) 』UZ (の ) = り MM1=UY( Ti ) 』 MS ニ UM( T ) 』 = エー1 
フ 762 の 9 "L762 ウ 』TF WU く = ニ UZ (J) THEN BUTU L765 の gsF1I 
726 さ 3 の gg “UZ (J+1 ) =UZ ( け ) 』 UY ( け +1 ) =UY ( け ) 』 UM (J+1 ) =UM (J) * 
= ゴー1 』 BHTU L762 の 
765 の 'L765 の 』 UZ (J+1 ) Ms UY (J+1 ) =M1 』 UM ( け +1 ) =M2s NEXT 
3 RETURN 
7 フ 72 の 9 'L77 の 9: GUSUB L47 の の ウェ F1=F』 に K=15* GUSUEB し 67 の の 
7 フ 774 の 'F=BN』 GUSUB L5g の 』 ロ T=ー1 』 IF BN=g THEN 0T= の FI 
フ 775 の の BUSUB L57 の 9 の 』F=F 1 』 RETURN 
7B1 の 'L7B の の :FDR 1=2 TD MNiM1=UT(I) :MW2=UU( エ ) 』UT( の 
) =M1 : ゴ = エー1 
782g "L7B2 の 』 IF PFK(M1) く =PK(UT (J) ) THEN BUTO L78B5 の 
sFi 
74 の “UT (+1 ) =UT (J) 』 UU ( け +1 ) =UU (J ) 』 ゴ = ニ ゴー1 』 BODTU L7B 
2 の 
786g L785 の 』 UT (J+1 ) =M1 』UU (J+ 1 ) =M2s NEXT』RETURN 
フウ 2 の "し L79 の の ェ PE ピ ビーP 』 US= の ウェ IF ビ 1= の 9 THEN BUTU LB2 の の FI 
795 の の "し L795 の 』F=FU』 BUSUB L5 の 9:』IF RN= の THEN RETURNs 
Fi 
フウ 9 の 'MN=RN』 FOUR 1 エ =1 TU _RNiUU(1I) =R(T ) 』UT(T) =RK(1 ) 
sNEXT 
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B の 2 の "IF RN=1 THEN BUTU LB の 3 の 』FT』 GBDSUE L7B の の 

の 3 の 'LB さ の 』U エ =1 

Bg6 の "LB の 4 の kTF MNSUT THEN RETURN:F 1 』E=UU (UI ) : GBHS 
UE L55 の の 

B の 7 の "IF NG=ー-1 THEN NB= の 』NQ= の 』 BODT ロ L 昌 の 9 の 』FT 』 NR ニー 
1 

の 9 の 'LB の 9 の 日 1= の 』 BUSUB L47g の 

11 の ドド =15: BUSUB L67 の 』F=BN』 BUSUB し 5 の の ェ F=FU 

8B12 の "IF BN THEN UIT=U エ +1 』BDSUB し 57 の の 』 GBDTUD LB の 4 
9』FI 

14 の US=US+1 』 UV(US ) = ピーFH』 TF US=1 THEN UM(UX) =E ュ 
Fr 

BS2 の の "LB2 の の:F=FU:BDSUB L5 の の 』TF GN= ウ の THEN RETURNs 
Fr 

24 の "MMN=GIN:iFUR エ =1 TD BNziUU(T) =G(T) 』UT(T)=BK(T) 
j NEXT 

26 の 9 "IF EN=1 THEN GUTUD LB2B の 』FT』GBHSUB L7 ヨ の の 
B2Bg 'LB2B の giUT=MN 

29 の 'IB29 の 』TF UI= の THEN RETURN』FI 

BS2 の E=UU(UT ) 』 BUSUE LGS の の 』TF NGB=-1 THEN NGB= の 』 Na 
= の 』GDTH LB ミ 4 の 』FT』NA=ー1 

B さ 4 'LB34 の 』HI= の 』GDSUE L47 の の 

B さ 6 の "に ド = の 』 BUSUB L67 の の 』F=BN: BDSUE し 5 の 9:F=FU 

B379 "IF _RN: THEN UI=U エ ー1 BUSUB L57 の の 』 GOTU 1L 昌 29 
FI 

B39 の 'US=US+1 』UV(US ) = ピーPBE IF US=1 THEN UM(UX ) =E ュ 
Fr 

B4@ の “BUTU L795 の 

BS の の 'LBS の の iT=US』TF US= の THEN UX=UX-1』RETURN』FI 
852 の =UV(T) iM1= エ + じ 1』TF 1=(M1/2) *2 THEN BOTD L 
B55 の FI 

B5 さ の 'LB3 の 』 エニ = エー1 』 IF 1= ウ THEN GUTD L ヨ 6 の の 』FI 

8549 「TIF ME:UV(T) THEN =UV(T) 』F エ 

B55g 'LB55 の 』 エ = エー1 』 IF T= の THEN BUTO L6 の の 』FI 

856 の '1IF MSUV(TI) THEN MM=UV( 1 ) FI 

857 の "BOTD LB53 の 

86 の LB6 の の 』FUR UI=1 TUD US』BHSUB L57 ウ の 』NEXT 

B61 の 'UZ(UX ) =MW』 RETURN 

871 の 'LB7 の の 』UX= の 』 じ 1=1 』 FU=2 さ 』 REPEAT 

B729 'MU=B(FU) 』 IF WU>14 THEN BUTD LB76g』FI 

B725 "TIF (MU=1 の 9) (FUSBZ) THEN BUTO LB769』F エ I 

B7 さ の ・ ド =FU』 GHSUB し 5 の の :』TF RN=g THEN GUTU LB769sFI 
874 の 'UX=UX+1』TF UX*2 の THEN RETURN』FI 

745 'UY(UX ) =FU 

75 の "BUSUB L79 の の 』 GUSUB L5 の の 

8B76 の 'LB76 の 』FU=FU+1 』 UNTIL FU>119』RETURN 

BB の "LBB の の UX= の 』 じ 1 = の 

BB1 の 9 "FU=23』 REPERT 


BB2 の 'MU=B(FU) 』 IF (MU>14) *(MU く >25) THEN BHTD LBB 
4 の FI 
BB3 の IF (MU=1 の ) *(FU54) THEN BUTD LBB4 の 』FI 


BB さ 5 'BDTU LBBBO 

BB4 の "LBB4 の 』F=FU』BDSUB L5 ウ の:IF QRN= の THEN BDTO LB 
BBgiFI 

BB5 の *UX=UX+1』 ITF UX>2 の THEN RETURNiFr 

BB7 の *UY(UX) =FUi BUSUB L799 の 』 GDBUB LB5 の g 

BBBO 'LBBB の 』FU=FU+1』UNTIL FU>119j』RETURN 

B ウ 2 の 'LB9 の の 』F=UF』BDSUB L59 の 』 IF RN=g THEN FR=-13R 
ETURN』FI 


893 の 'UX=1』 選 1=1 』FU= リ F 
894 の BUSUB L799 の 』 BUSUB LB5 の の 』 IF UX= の THEN FR=ー1 


5 RETURNiFi 

B95 の "1TF UD>=UZ(1) THEN FR=ー1』RETURN』F エ 

96 の 9 HI= の ウェ F=UF 』E=UM( 1 ) 』 Na= の 

897 の "BUSUB L77 の の 』 ITF ロ T=ー1 THEN UT= の 』FR=ー1 』 RETUR 
NiFI 

9 の "FR= の 』RETURN 

9 の の の 1L9 の の の 』 UE=UY(UX ) 』 UD=UZ (UX ) 』 UF=UM(UX ) 

9 の 1 の "IF B(UE)=1 の THEN FR= の 』 RETURN』F エ 

9 の 2 の 'E=UE』 BUSUB し 9 の の 』11T=1 


SUB L56 の 9』F1』IF =4 THEN GUSUE L47g の asFIiIF =5 T 
HEN BUSUB し 67 の の 』F 1』TF =6 THEN BOBUB L5ggkF1i IF 
=7 THEN BODSUB L689 の 9iFTiIF =B THEN 'BOSUE L7900i 


Fi 


9 の さ の (し 99 さ のり 』BM=S(TT) 』MK=B(BW) 
9g4 の 9 1F 14<MK THEN BUTU L911』F1 

9 の 7 の 'E=UE:NA=Oi』HI= の :F=BM 

9 の 9 の 'BUSUEB し 969 の 』TF NB=ー1 THEN NG= り i』FR=ー1』RETUR 
NiFI 

911 の "し 911 の :TF II く SN THEN II=1I1+13』BDTD L9 の 3 の 』FI | 
912 の "FR= の iRETURN 

922 の し 92 の gi』 SM= の FOUR T4= の 9 TD 7』F= ロ 1+DN(14) 

92 さ の 1F B(F)=25 THEN BOTU L926 の jFT 

925 の "BOBUE L59giSM=SM+ ロ N 

926 の "し 9269』NEXT』RETURN 

9 さ 3 の 5 "し L9 さ の: PA=P:FDR TP=1 TD TP 

9 さ 1 の *H エ =ー1 : IF TB(TP)=ー1 THEN HI=giFI 

9 さ 2 の *E=TE(TP) 』F=TF(TP) :NQ=TA(TP) 』 B=TB(1P) 

9 ささ の GBDSUB L47g 

9 さ 4 の “K=15』 BUSUB し 67 の の ェ F=BNi 1=BNs BUSUB し 5 の の 
935 の '1IF RN> の THEN PZ(IP) =-1 BUTD L94 の の jFI 

9 さ 6 “PZ(TP) = の 

9 さ 7 の 'BDSUB L9299』PY(IP ) =SN 

93B の BUSUB LBBO の  . 

93B2 *TF UX= の THEN M=DiBDTU L9 さ 95』F エ 

9 ミ BS *TF UX=1 THEN BUTD L9 さ 9 の FI 

9 さ B5 GOSUE L76 の の 

9 さ 9 の “し L9 さ 9 の 』 い =UZ(UX ) :TF M>O THEN M=giFI 

9395 し 9395j』 PX (TP ) =M+PーPA+PV( TP ) 

94 の の *L94 の の:BDSUB し 579 の NEXT:RETURN 

95 の の し 95 の の 』FR=O 

95 の 5 *1F TP>1 THEN BUTD L952 の 』FI 

951 の "IF FZ(1)=-1 THEN FR=-1jRETURN』FI 

9515 *TW=1j:RETURN 

952 の *L952』 1M=1 

9525 *L9525』TF FZ(IM) = THEN BUTD L954 の :FI 

95 さ の 1TM=TM+1』 IF IW>TP THEN FR=-1:RETURNiFI 
953 さ 5 "BOT L9525 

954 の *L954 の iTF 1W=TP THEN RETURNiFI 

9545 *1TP=IM+1 

955 の 'L955 ウ :IF IP>TP THEN RETURNiFI 

9555 IF PFZ(IP)=ー1 THEN BUTU L957 の :FI 

9569 *IF FX(IP) >PX(TM) THEN TIW=TIPs BHTD L957giFI 
9565 'TF (PX(IP) =PX(IM) ) *(PY(IP) く PY(TM) ) THEN IM 
=IP ェ FI 

957 の し 957 の 』TP=1IP+1 


9575 BOTOU L955 の 

96 の の 1L96 の の 』 TP=TP+1 

961 の "TGB(TP) =ー1 s IF エニー1 THEN _TGK(TF ) = は FI 
962 の “TE(TP) =E』TF(TP) =F 』 TA(TP) =NA 

96 さ の "IF TP>19 THEN NG=-1』RETURNiF エ 

964 の ウ "NG= の 』RETURN 


1 の の の の "LTNE:HLT[ ]: PPURE ADDR , ま 15」%6。 ん ロ 。 錠 1 半鐘 。 錠 
き #。 欠 4 社 。7 ェ SUB[ ] RETURN 

1 の 1 の の "HLT:CDDE $*B6 。 ま FD の 5 ロ 。 2BF 日 圭 : PDKE $FDO5 。 ま B の 
3 CUDE $B6 ,*$FD の 5 」 まつ RF 時: DDR=$FCBSs RETURN 

1 の 2 の の SUB:PDKE *FD の 5 。 り 』RETURN 

15 の の の "し 15 の の の =PEEK ( ま 626) : TF Q=1 THEN BUSUB L5M 
フウ ェ FT :TF 人 Q=2 THEN BDSUB L469: ェ FT:TF Q= さ THEN BD 


15 の 1 の "IF =9 THEN BODSUB L7209:FTiTF =1 の THEN B 
SUE LB7 の FT:TF =11 THEN GDBUE L769 の FIjTF 人 =+ 
っ THEN BOBUB し L フ 77 の の FT 』TF 人 =1 さ THEN BDSUB L969 の iF 
Ti IF =14 THEN GDSUB LBB の 9FTiIF A=15 THEN BODSUB 
L9 の の の FT TF 人 Q=16 THEN BOBUB LB999iF エ 
1592 の "IF =17 THEN BUSUB L6 さ 99:FIiIF =1B THEN 
BDSUB し 59 の の :FT:1F 人 Q=19 THEN BUSUB L9 さ の の FTiIF = 
っ の THEN BOBUB L95g の FI』IF =21 THEN BDSUB L55 の ps 
FTiTF =22 THEN BDSUB L62 の の FIiCODE まさ 5 。*FFEND 





に ーー 。 一 。 是 影 衝 生 ) 


デー タ ・ ダ ンプ リス ト EE 





dd  +G 1 +2 +③ +4 + ロ +6 ユ フ + 日 +19 +Q +B + ビ +D +E ォ F Sum 
1299 G6 G5 GO4 3 GO 9 さ 4 G5 6 Ga 2 Ga GA OQ Ga 9Oa :62 
121 の 6 の 61 Ga 97 7 97 @7 7 @ フ 7 97 @7 @7 GO GO GO G9 @99 s4A 
122 の 9 GO OO OO GO OO GO OO OO OO GO の GO の 9 GO GO GO 69 so 
12 さ の OO OO9 OO GO GO OO OO GO OO OO OO GOO OO の 9 9O 99 :G9 
1249 6F 75 6 69 6B 61 6B 69 67 69 6B 65 6B 7 66 275 』B4 
125O GO9 91 GO @1 OO @1 GO @1 GO 91 GO @1 99 @1 @9 91 =: 
1269 GO GO 99 O2 OO OO GO 2 OO 2 GO GO GO @G2 G9 99 8 
1279 の OO O2 OO OO OO 92 OO OO GO OO 99 G2 9 の O GO _G9 92 sB 
1289 OO @1 GO の 1 GO @1 GO @1 GO 91 GO @O GO @1 9 9 :@6 
1299 GO9 @1 OO 〇 1 OO 91 GO9 GO9 GO GO GO @1 OO @O @G @1 =:65 
12O GO OO GO GO GO GO GO の OO GO GO GO GO GO GO 9 @9 :G9 
12B9 OO GO OO の 2 OO OO OO GO GO OO GO OO OO GO GO GO :92 
12CO OO OO OO @1 GO GO GO GO OO OO GO OO @O GO GO @O sz@1 
12D9 GO の 1 OO GO2 OO 〇 1 OO 2 @O @2 GO 91 99 92 GO @1 :@C 
12EO OO GO2 OO の 1 OO G2 GO の 1 GO の 1 GO の 2 GO @1 @ 92 :@C 











Add  +O +1 +2 + さ 3 +4 +5 +6 + フ + 日 +9 +a +B +C +D +E +F Sum 
1 さ GO FF E9 FF EQ OO GO GO GO GO GO GO GO GO GO G9 @G9 sD1 
1 さ 1 の ささ さく ささ さ 4 さ 2 32 さ 3 33 さ 4 さ 1 ささ 32 3Z さ 1 さ 6 さ 2 s さ 1 
1 さ 2 の ささ さ 1 さ 2 32 さ 6 さ 1 さ 35 さ 2 ささ 日 ささ 3 さ 4 3 日 さ 4 3B 35 』46 
1 さる 3 の さ 日 さ 5 さ 日 さら 6 ささ ささ さ 4 さ 2 さ 2 さ 2 ささ ささ 35 31 34 さ 1 』: さ 3 
1 さ 49 さ 4 ささ さ 4 さ 4 さ 5 さ 2 34 ささ さ 4 さ 1 ささ さ 1 ささ さ 1 さ 2 32 s2E 
1 さ 5G さ 5 ささ 35 さ 4 さ 4 さ 2 さ 6 さ 4 OO GO GO GO GO G9 99 99 sa1 
1 さ 69 GO 64 GO 16 O9 14 GO 1 GO GE GO 9 OO 9 99 92 kC9 
1 さ フ GO GO 1 日 OO 16 GO GO GO OF GO GD @9 @C @G9 @9 FF 9C kiFA 
13 さ Bo FF EA FF EC FF F ら FF F2 FF F6 FF FB ヨ FF FE FF EB s:B4 
1 さ 9 の FF EQA OO GO FF F1 FF F3 FF F4 FF F7 GO @9 99 699 iB4 
13QO GO GO OO G2 GO G2 GO 9O GO O1 GO @3 GO @4 GO @7 *:1 さ 
13BO OO GO GO GO GO GO GO GO GO GO GO GO GO @9 @9 @9 s99 
1 さ 3CG FF FE FF FE Go Go FF FF FF FD FF FC FF F 6D 61 :B5 


dd  + の +1 +2 +③ +4 + コ + ら 6 + プ + ヨ + + 人 Q + 日 + ビ +D +E +F Sum 














dd  + ら 1 +2 +3 +4 + ロ ロ +6 + フ + 日 +9 + +B + ビ +D +E +F Sum 





人 dd  +G +1 +2 + さ +4 + 品 +6 + プ + +9 +Q +B + ビ +D +E +F Sum 
5299 GO OO GO さ の GO OO G さ CO GO OO GO ら OO GO GO9 GO 9 =:F さ 
521 の OO OO GO GO OO GO GO OO OO GO GO GO GO GO @9 9 :99 
22 の 9 OO OO OO GO OO GO GO OO OO GO OO GO 99 GO 99 99 』:99 
2 さ O OO OO OO OO GO GO OO GO GO GO GO GO GO 39 @C 3@ seC 
5249 @ さ 3 FF GOC さ 9 GO さ の GO さ の GO CO GO CO GO _@F GO 69 s2D 
525 の 99 さ の CF FC 99 CO @F FC @ さ さ F CF FC 9C @ さ @C 9G9 ziEE 
5269 GO9 FF CF GC GO9 @ さ @C FG GO ささ @C さ @ @ さ FF CF @C 』25 
527 の 9 の 9 CO @C さ の GF FC @GC さ G GO CO GO さ @ 3 GO _@9 CO :F6 


529O GO F さ FF FG @G さ さ 9 GC GO OC さ @ FF CO GO 3 さ @G @C @9 szS8 
52QO OO ささ FF FC GO さ の GCC さ の @G さ FF GOC さ @9 GO 39 @9 39 3 日 
52BO 99 CO OO CO GO GO OO GO GO FF FF G9 GO GO CO 99 』: さ SE 
52CO @ さ FF FF FO GO さ ② C さ GO GO CO CG CO @ さ さ F FF 3 さ @ 』95 
52DGO OO さ F FF GO GO さ F FF GO GO GO OO GO OO GO GO @9 』7C 
52E の 99 G さ OO GO OO G さ GO GO の OO @G さ GO GO OO @ さ OF GO ki1B 


Add  + の +1 +2 + さ +4 +55 +6 + プ 7 + 日 +9 + +B +C +D +E +F Sum 
5 さ 99 OO CO OO GO GO さ F FF CO G9 GO GO GO OF FF FF FC CZ 
5 さ 1 ら 6 の OO OO CO GO の G さ GO CO GO GO CO CO GO Go9 GO CO GO kCS 
5 さ 29 GO GO CO GO GO FF FF CO GO GO CO GO GO GO CO GO iFE 
5 ささ の OO OO CO GO GO GO CO GO OO GO CO GO G3 FF FF FO : さ 31 
呈 さ 4O GO OO 3 GO OF CO さ G GC 9 さ ② さ @ さ @ GO GC さ @ CO 』C フ 7 
5359 GoF CC さ の 9 CO GOF GOC さ ② CO GO OF FF FC GF CO さ @ CO si9F 














Add  +② +1 +2 + さ +4 + 口 +6 +7 + 日 49 +a + 日 +C +D +E +F SBum 
5769 OO GO CO CO GO9 G さ GO9 CO OO 3 GO CO GS FF FF FC :@ さ 3 
719 OO OO OO GO OO OO GO OO GO GO GO OO GO GO CO GO iCO 
5729 GO GO CO CO @3 FF FF FO GO @O GO GO GO _GF @C 69 kBC 
57 さ の OO OF @ さ G9 GO さじ 6C さ CO GO9 さ 39 6 さ CO 99 CO 6 さ CG siBZ 
749 @G さ GO GO CO GO GO GO GO OO OO GO GO GO GO @9 GO iCS 
759 OO GO GO GO GO @G さ GO GO OO 3 GO9 CO 9O @ さ 6S F@ iBC 
5769 OO GF FC GO O3 F さ GO GO GOO @ さ 3 GO GO GO @3 @9 69 i9Z 
779 GO G さ GO さ O GO @G さ FF FO GO GO GO GO GO GO _@9 GO i25 
7 ヨ 9 OO GO GO GO GO GO GOC GO GO さ F FF GO GO GO @C 69 i56 
79 の GO OF GC GO GO OF GOC GO GO OF @C GO 69 3C 63 @9 i99 
7QO OO さ C G さ GO OO さ @ GO CO GO CO GO 3@ @O GO @9 69 si1F 
7BO GO GO OO GO OO GO OO GO GO 63 CO GO GO @ さ 99 69 iC6 
王 7CO GO @G さ G さ GO @ さ FF FF CO GO @G3 6 さ @O GO @3 @ さ @9 iD さ 
呈 7D の 9 GO GOC G さ GO GO GC @3 GO @O 39 G さ @O 99 CO GS 6C 29 
7E9 GO さ GOGO G さ FC OO GO OO GO OO GG GO GO GO GO 69 GO i92 


Rdd  + の +1 +2 + さ +4 + ロ + ら 6 + フ + 日 +9 + 人 QA +BB + ピ +D +E +F Sum 
596 の の GO FO OF GO GO さ の さ C GO GO OC さ C @O @O GO 69 99 sB さ 
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あな た は タコ で す . イカ で は あり ませ ん . きれ い 好 き の 
タコ くん は 毎日 お 庭 を 掃除 し て いま す . 青い ボー ル に 当 た 
る と 気 が 狂 う の で , な か な か 掃除 が で きま せん . と きど き , た 
ちの 悪い イカ や ホタテ が や っ て き て , せっ か くき れい に し た 
庭 を 汚し て し まっ た り , 追い か け て きた り し ます . この 際 , 
イカ を 食べ る べし . ホタテ を な め る な よ !? 


遊び 万 


タコ を [3IIZI[9 引 キー を 使っ て 左下 , 右 下 , 左上 , 右上 に 
移動 きせ て , 庭 の 色 を 水色 に 塗り 変え た て くだ さい . 全部 塗 
り 変 える と 一 面 ク リア で す . 

青い ボー ル に 当る と 死ん で し まい ます . と きど き イ カ が や 
っ て き て 庭 の 色 を 青 に 戻し て し まい ます が , イカ を 食べ る と 
BONUS 500 点 な の で , 早い うち に 食べ る べき で し ょ う . さ 
ら に , し つこ い ホ タテ が や っ て き て タコ を 追い 駆け て くる 
の で 注意 し まし ょ う . 

5 面 ク リア する と 湊 の レベ ル に 進み ます . レベ ル は 1 
ー 5 まで あり , 段々 と 難し く な り ま す . 庭 の 色 の 変化 は 次 
の 通り で す . 






































氏 レ ベル 1 青 一 水色 

借 レ ベル 2 衣 一 み ピ ンク ーー 水色 

@ レ ベル 3 胡 一 っ 水色 一 一 圭一 み … 

旬 レ ベル 4 青 一 み ピ ンク > 水色 > 青 > 

@⑱ レ ベル 5 育 一 っ ピン クー 水色 一 > 緑 一 > 青 一 つ … 





すべ て の 面 が 水色 に な ら な いと クリ ア で きま せん . レベ 
な な め に 動く の が ムズ カシ イ . 


COP@ : 99 hi 一 5s ら OOr@G: 3249 1vo: 1 | 


に 


2 
Co 


の と ンー 
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ル 3 以降 で は 水色 に し た と ころ に 再び いく と 元 に も どっ て 
し まい ます . レベ ル 3 以降 を クリ ア す る に は パズル 的 な モ 
ンス が 要求 され る よう で す . タ コ は 5000 点 ご と に 一 匹 増 え 
ます が , 10 匹 以上 に は 増え ませ ん . 

高 得点 を あげ る に は ホタテ の 人 退治 方 法 を 見 つけ な けれ ば 
な り ま せん が , その 方 法 は 自分 で 見 つけ て くだ さい . ちな 
み に 筆 者 の ハイ ・ ス コア は 42,000 点 で す . 

を な お, プログ ラム は すべ て マシ ン 語 (⑱1400 一 $3CF9) 
で , スタ ー ト 番地 は $1700 で す . 

3 参考 文献 
1) FM-8 活用 研究 , 工学 社 





OCTOPUS GARDEN 























































































ET OPD りら GARDEN マ シン 話 ダ ンプ ・ リ スト 
dd + の +1 +G キネ キオ 日 + ら 6 エフ + 日 +9 +a +B +C +D +E +F Sum 19 さ の gd 1 DD 
14 の 9 34 7D B6 の 1F BB 6 の 1 97 BF BD Dg 72 35 FD FE :Ea 1949 92 CC gg 
141 の FQ 25 ロ 96 6D g ア 27 F6 a6 6 35 FD 34 7F C6 gg 1F =2C 195 の 9 日 ミミ 98 
5 の 2 D7 BEF ED DO BE さ 5 FF CC の 9 の 1 ED 4 aD :B ミ 1969 DD 1C CC 
FA コロ FF さ 4 7F 6 の 1F BB BD DB g7 25 gC :78 197g 6 17 の 5 
8B1 の 9 26 FR 6 gD 7 B2 35 FF 7E 94 BD gg :56 1989 7 1 の 34 
BD 3 の BD 92 69 A6 9 ミ E6 BB 16 Cg 11 2 BB :F6 1999 2C 17 2 
6 55 91 3 BD の 2 BE 1 32 62 35 99 : 5 19aD g7 DD 26 
gF BD BE BZ FD 9gF 9 の の の の gg の 9 :18 19E の 19 17 14 
98 16 FF 7 16 FF AaC 9C 35 1 の 2 2 19C9 17 Fa CB 
8 の 6E 4 B6 gD E5 B6 ga 2 E1 19D9 16 9 の 22 
6 EC 41 さ D E4 EZ E4 6 C4 19Eg 
Eg 1E 89 3 さ 39 BE の gg さ 4 19Fg 
34 1 4D 2 の 4 BD 4 63 61 6 ビ 6 2B 4 の 5B :2 さ || ーーーーー 
FB 44 56 ED 64 EC C1 94 BD 2C 6 61 Sum: 7B B6 @ さ 
2 FB 44 56 64 2 の @6 58 49 
14F の F8 g2 1 の 1 2 6 人 Add + ウ +1 + す 2 
呈 に 1Q9 DS 18 93 
6 7 1E の E 1Q1 の 9 24 
1A20 1 
+5 +6 + プ + 日 +9 +a TB +E +F Bum 163 の の の の 1 3 ら 6 
32 66 2 05 43 53 CS さ 9 32 』94 1Q49 1 の 17 16 < 
4D 2B F1 39 3 C1 2F g の 9 の :16 1Q59 CC 9 の 1 
CC gg gg E1 2D 9 99 :6D 1Q69 F4 17 F 
CC の 99 に 介 欄 に y4 90 gg :45 1Q79 9 の 7 DC 
CC の の OO さ 9 CC gg 1 5 9 gg :55 1a80 gE aC DC 
CC 99 39 17 FF 2 1F 89 4F 15 16 :4B 1Q9 日 ミ ウ ウ 
17 FE EB 17 FF 1E ^a6 8 の B1 24 81 2D :a5 1aa9 DC 2B 36 
さ 1F CC の の さ 4 の 6 6 4 BZ 18 81 : の 7 1BO 1 の 37 1 ミ 
14 7 B4 EC 6 5B 49 5B 49 E ュ 49 EB : ビ 7 1RCO 99 92 1 
gg : 9 99 人 6 84 :4 さ 1ADg 34 1 の 1 フ 
2B F 8B1 @F 7 84 :D2 1aEO 2 の 1 34 6 さ 7 1g 
SB 49 EE 89 2 DE :86 1QFg DD 28 9 の @4 DD 
2 36 19 4D < ーーーー ーー 
D7 5B 49 Ce の 5 Sum: 6F DQ g9 
の 9 2 9R 1a 
6B 47 Add  + の +1 + る 2 +7 + 日 +F 
ーーーーーーーーーー 1EO の F 7 ミ DC DD 1 99 
16 D@ 1 16 DC 2E EB 1E1O 9g 36 96 5 OO の 1 go 34 
1E2O の 6 ミコ フ 19 さ 4 1 の 17 DC 18 
人 dd  +g +1 +a +H + ビ +D +E +F Sum B3 9 の の 9 CC の 9 9C 36 
16@ の QA6 C5 8D E4 さ 4 4 EE 49 :BB CC 19 34 94 17 
2 5 E y 
96 26 
B FE 45 5A 2 
@4 1F 98 1F 9 44 44 44 
81 B 97 16 DD 14 17 
呈 E6 4Z 42 EC 1BAO 98 36 6 7 
44 E6 47 5 41 ED 1BBO CO 1 の Dg DC 38 36 
gg ED C4 96 EC 1BCO F9 フフ 6 CC g 6E 1 フ 7F9 6E aa 
EC 4 9 の の 3 1EDO ER CO 1 27 F CC 
48 さ 9 1 6 49 1BEO さ 4 6 0 
の 9 OO gg OO 0 の の の の 9 1BF CC 9 91 DC 16 
69 67 68 74 2 0 ーーーーーーーーーーーーー- ーー ビーーー 
2 4E 2E 54 D3 6C OE 4F E3 84 DE C4 14 77 
4F RE BO Ba < 
dd +g +1 + +7ー+ 昌 +9 + 合 TB +C +D +E +F Sum 
ー 9 6 96 DC 9O の 1 34 6 コア 4 19 
Sums 19 34 19 66 DC 3 CS gg の 1 DD 3 人 
C4 2F DB C3 OO の 1 DD 16 5 の の 97 2F 
Rdd +5 +6 + フ + 晶 +F Sum CC 9 @O 9 36 り さ 4 6 
17g BB 5F 1F の さ ES : 19 34 2 32 64 17 さ 63 6eF 72 
DE 9F @2 BD :Eg 1C5O 65 さ 3Q OO CC gg 95 36 @6 DC F9 AD F8 2B 
2 9Q :B6 1C69 さ の 9 の CC 99 54 19 
CB :aB 1C79 17 11 C4 32 : @ 
3 25 BS 8 17 17 :EB6 1CB9 3 99 CC の 9 DC 17 F9 7E 17 F フ 7 FC 39 
@9 @9 DD 14 39 BD 1D 1 1C9 の CC 9 の 1 1 8 1 16 16 
6 3 1 の 17 18 1CAg 99 27 CC の 9 DC 16 36 6 
3 1CEO CC C5 9 34 さき 4 19 13 BE 
sg BD 1D FB 1CC9 66 DC 16 DD 16 
19 17 1 19 1CD9 9O 1D 36 6 96 
B 34 96 37 1CE9 さ 2 64 1 フ 7 F フ 5 20 
1F 19 36 06 1CFO 9 91 DD DC 
32 64 3g BD ーーーーーーーーーーーー- ーー 
1 の さ 4 19 17 Sum: 16 コ 29 97 5 
CE CZ 49 34 
9 DD 16 16 add +5 
ーーーー ーーーーー 1Dg9 の 
1D10 19 
1D2g D7 ミ 
1D さ 9 の 6 ミコ 7 1 さ 4 19 17 
1D49 さ 6 の 6 CC の 97 1 フ 
1D59 94 さ 9 BE さ 6 1 の EC 
1D69 9 の の 1 さ 6 6 CC 9 
C3 gg @1 DD 1DZ9 1 の ミ 7 19 < 
gg 16 DC 16 1DBg C ミ の の の 1 
D1 DC 16 CS 1D99 6 EC 66 
DD 16 16 の 1DQg 1 17 6 
9 gg ED D1 1DEg 96 CC の の 
1F さ ⑦ .CG 1DC の 1 さ フ 
DD 1C CC gg 1DD9 
2 CC 9 の 9 1DE の 
1E 36 6 CC 
2 64 17 FB C2 5 
gE さ 4 6 
65 74 75 フ 2 
1 じ 36 @6 DC dd 。 + の +1 オ コ 
1E の 9 の 6 3 フ 19 
Sums BC AE Bg 14 19 68 DC 
さき 6 の 6 EC 
dd 口 キ 6 フー+ 日 キ す ウ + 人 Q +B + ビ + ビ 1E ミ の さ 4 1 の 17 DC 
199 の 2 DC 16 CS gg g1 DD 16 人 C4 9 の 91 37 19 iC1 
191 の EC < 91 6 6 CC の 9 の @1 4 @6 1 の ミ 4 1 の ミ フ 6B DC :E5 
1929 1 の 17 64 DC 2 DD 2B CC 9 1E 2C 1E69 2 36 6 6 EC :F1 




















































































































































































































































































































































elee」 49 に 715) コト 


OCTOPUS GARDEN マ シン 語 ダ ンプ ・ リ スト 








1E ビ EZ の 66 さ 4 6 37 1 の 34 1 の 3Z7 1 34 19 3Z7 1 の 34 1 の 17 : 呈 | 
1EB の の 5 D4 32 6 DC 2 CS の の の 1 36 6 DC 34 
1E9 の 6 の 6 CC の の 7 36 の 6 EC 66 さ 4 の 6 3 フ 7 1g 


1EA 1 19 34 1 の 17 9 の 5 aC 32 6B DC 
1EE の 2 6 C3 の の の 1 36 6 CC の EZ 
1EC の 66 6 さ 4 1 の 37 1 の 34 1 の 37 1 の 
1ED の の 5 32 2 36 の 6 DC 34 C3 の の の 2 ミ 


1EE の の 9 
1EF の 37 


66 34 の 6 ミ 7 1 の 34 1 の ミ フ 7 
g5 SF 32 6 DC 





BE さ 6 
36 96 
ミ 7 19 
gE g8 
49 9E 












62 9E OB 58B 49 EC BB DD 4A 
BB 3 の の 4 1 の 2C gg 1 EC 
36 1 の EC 62 9E 8 58 49 EC 


SB 49 EC BB さ 6 6 EC 62 9E 
SB 49 36 96 EC 62 9E ga 58 
58 49 EC BB ES C1 ED D1 EC 


3Q ひ ロワ ロコ 
mQu や 加 Qk 


2 
還 





2 64 EC 62 CS の の 1 6 6 :CB 







































e 人 ea に 旬 7 パ 1 りり ヨ 、 


OCTOPUS GARDEN マ シン 語 ダ ンプ ・ リ スト 


5 B9 CC 
CE 11 EZ 
CC の 9 
BD の の 
ミ 4 1 の 


ら 2| 






























DC 2C 
6 CC 
EE D5 
42 さら 6 
の の 1 
DD 2 の 
さ 9 CC 
16 の の 
64 6 
17 92 
5 の の 1 
B さ g の 





EAO 
SER の 
EC の 
ED の 
2HE の 
SBFg 


+ ォ アブ + 日 +9 + 人 n +BH + ビ +D +E ォ + ォ F Sum 
gg @1 
19 2F 
EC 62 
gD EC 
FD の D 
19 17 
64 1F 
62 C3 











+1 +2 + さ + 人 4 ネロ 6 + プ +B +9 + 人 aa +E +C +D +E +F Sum 
CE 1 の 27 の の の 7 CC の の の 1 39 16 の 4 CC の の の :CE 


F の の FE の の FF CO FF FB FF FF CO の の CO の の の CO :E2 
B の の の B の の の B の の の 8 の の の 8 の 9 CO の 9 CO の CO :CO 
の の の の の の の 3F の 1 F の 7 9 の F の の F の の の :D5 
の の の の の の の 9 の の SF の 1 FO の 7 9 OF の F の の 9 の :D5 
の の 9 1F の 3 FF 1F FF さ SF FF 7F FF FF FF FF FF FF s』F6 
の の の の の の の の の の の 9 の の の の の の の の の の の の の 9 の :FF 
の の の の の の の の の の の の の の の の の の の の の の の : の 1 
FB の の FF CO FF FB FF FC FF FE FF FF FF FF FF 』A2 


+ 人 4 + ロ + ら 6 オプ + 日 + す 9 人 TH + じ +D + オ ビュ ォ F Sum 
:5R 


1B 
に 12) 
FB 
FD 
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ee Le に 后 で 7 パト (1) コ 、| 


OCTOPUS GARDENー シ ン 語 ダン プ ・ リ スト 


FE の F gF の 9 B の の の の の の の の の 
g1 - g9 BO の 9 の の 9 99 9 
g1 FE FEF FF PF 3 所 区 
1E さ 7 gE の @9 78 

gE の 9 78 








ロロ や いひ 中 


Sums 


dd 
さ n の 9 
3R1 の 





う 1 の の CE 





+ 日 + す 9 +Q +E + ビ +D +E +F Sum 
1 17 F6 2E 32 64 17 DC :6Z 
65 61 63 6 
CC の 9 の g1 DD 
gg 1 の 36 の 6 
1 の 17F8 2F 
C5 の の 34 の 6 
66 CC の の の 1 
g6 17 F4 ga 
2F E7 CC の 9 
さ 3 3 9 
SF 6 CC の の 
さ Q 16 9 の 99 
CC の 9 8 17 
6 DC 3 さら 6 
CC CF の の 34 

9 
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サブ に DATA を 送 つて 高速 PUT 


田 古 田 昌 





この ゲー ム は 自己 流 の 高速 表示 シス テム を K コ ン パ 
イラ 化し て 作成 し た , オリ ジ ナ ル な 高速 ゲー ム で す . 
初め は 「 テ ニス ・ ゲ ー ム 」 を 作る つも り だ っ た の が 
な ぜ か 『 バ ドミ ント ン * ゲ ニム 』』 に な っ IIU ま いま じ 








35, 36 行 め の FS お よび MS が , いび C” に モッ ト さ れ て いる と , 
左 お よび 右 の プレ ー ヤ ー を コン ピュ ー タ が 自動 的 に 操作 し 
ます . この 場合 , 370 行 め お よ び 490 行 め の RND(10) に よ 
っ て ラン ダム に ミス を する よう に 作成 し て あり ます . 

人 が 操作 する 場合 は 左側 世 和 1 [2 [31 キ ー が 右側 | [8l, 
9| キ ー で 操作 し ます . それ ぞ れ 左 移動 , 佑 止 お よび ショ ッ 
ト , 右 移動 と な り ま す . な お , 羽根 が 向かっ て くる と きだ 
け 操 作 が 可能 で , 羽根 を 打つ た びに キー の 入力 情報 は クリ 
ア さ れ ま す . 

羽根 は 放物線 を 描い て 飛ん で くる の で , うま く 羽 根 の 下 
に 移動 し て 打ち 返し て くだ さい . サー ビス は 4 [@| キ ー で, 
フォ ルト は と り ま せん . ジュ ー ス な し で 1 方 が 15 点 先取 す 
る と , ゲー ム は 終了 し ます . 再 ゲ ダーム は 1 か ら 9 まで の 適 
当 な キー を 押し て くだ さい . プレ イ は 必ず 左 か ら 初 まり ま 




































































FGET と FPUT に つい て 


まず , 40050 か ら の デー タ を FEGET [ADDRES, 0〕) で 
サザ に だ に 転送 し ます . つぎ に 表示 し た い ア ー ダ タダ を GET 
[ADDRES, No.) に よっ て 転送 し ます . これ で ADDRES か 
ら 256 バ イト の デー タ が サブ プ メ モリ に 書き 込ま れ ま す 

これ を 表示 する の は FPUT[X 座 標 , Y 座 標 、 横長, 縦長 
No。 TYP〕) を 使い ます . ここ で 双 座 標 お よび 横長 は バイ ト 
座標 を 使っ て いる の で , 0 一 639 で は な く 0 一 79 の 値 で す . 
Y 座 標 と 縦長 は ドッ ト と 同じ で す . 

No で は FGET の と き に 定め た No を 使い ます . TYP に つい 
て は 1 一 7 が その カラ ー コ ー ド で 表示 , 8 以上 は カラ ー デ 
ー タ 込み と し て 表示 し ます . この 場合 の DATA 形 式 は F- 
BASIC の 場合 と 同一 で す . た だ し , いま の と ころ PSET し 
か 使え ませ ん . 





が コン バリ プラ 夏 盛 ゲー ム 


テーラ 
写真 1 彼女 , ミス し て ノノ 











行 番号 マッ プ 
行 番号 内 容 
10 一 100 初期 設定 
120 一 160 点 表示 
170 一 ゲー ム ・ セ ッ ト 判 断 
180 一 200 ゲー ム 再 開 待 
250 一 270 サー ビス 待 
300 一 320 シャ トル の 移動 
330- 左右 判断 
340 一 430 右 プ レイ 
450 一 550 左 プ レイ 
570 一 630 ショ ッ ト 判 断 
670 一 シャ トル の 表示 , 300 へ 戻る 
700 一 780 ミス ・ シ ョ ッ ト ,120 へ 戻る 
800 一 830 シャ トル 表示 の サ プ ブルー テ チン 
840 一 ラケット 消去 ルー チン 
850 一 軌道 の 再 定 義 
900 一 950 サ プ メ モリ へ の デー タ 転 送 
10000 一 100090 ザ プ シ ステ ム 
40000 一 40220 高速 表示 シス テム 
68FF H INKEY バッ ファ 
6900H 一 742FH ンー ダグ 








@ 人物 に つい て は 一 切 の モデ ル は あり ませ ん . 

@ キャ ラク タ の 作成 は 方 眼 紙 に 絵 を 書い て 作り まし た (1 
週間 以上 も か か っ た り . 

@ マイ コン で これ だ け の キャ ラク タ を これ だ け の スピ ー ド 
で 動か せる の で すか ら , 技術 の 進歩 は 芝 ろ し いよ うな 気 が 
し ます . 


この ゲー ム は 僕 の オリ ジ ナ ル で す . 皆さん も 自分 な り の 
ゲー ム を 作っ て みて は いか が で すか ? 
参考 文献 
1)FM-8 活 用 研究 
2) テ レビ ・ テ ニス 
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ン ・ ゲ ー ム K コン バイ ラ EE 








10 ”( く ショ キ セリ ティ 
9 "FRINT "CHM vs= CONM 
81 "FRINT "ECOM vs MaN 











"SELECT NUMEER " 
= テ の 
INFUT 

ロ R _NN@G THEN BOTH SINIFI 
1 THEN FS=*CY 


PA 
/ 
/ "MAN vs ド MAN 
7 


「 59 LINEALE9。 9.639。147。9。4。 人 1]iLTINEAE の 9。149。6 さ 9 
ュ 199。9。 6 人 ] 
69 "LINEAL299。 199。 さ 9 













14 日 9。1 SG]:LTNEA[ さ さ 9。 199。 さ 


2 の 。 の 9。 さ 。 で 








の 8i MXX=1 日 ミ FX ニ 2 ウ ュ FXX ニ 91 日 Xー ニ 2 の HXX ニ で の 』 YY ニワ 
の 1 ュ ミレ ヒ =19i MM=49 
99 "FFPUTE49+MX 。 199。6。 4 日 。 1 。 日 ] 


FFUTLFX 。 199。6。 4 日 。5。 日 ] 


メイ フ ルー チン え ) 


159 "L15 の iLTNEAESO の 9。 169.4 さ 9。199。9。9。 人 で ] 

169 "BYMEBHLES19。179。4 昌 +(FT>9) 。FT+4 ヨ ー19x(FT9) 。5 昌 
48+4AMTe 29) 。 MT+48ー 19* (MT>9) 。 品 。4。 1 。9。9] 

179 *1F MT=14 AND F 人 4 山 RE GBDTQ LS19NFI 
189 " SYMBOL ョ 











1 の, の 3 YROLL 
: SYMEBOLL 49 
<8=TNKEY[ ] ミ 


2 1 

、199、 
POkE 6BFF 9 
199 "上 L199 
299 "ITF ド 
19 


*、5。4,1、9。9] 





9 THEN BHTU LS9 ELSE BHTH L199iFI 
LSE19* BY=99 

BUHSBUB LB19 ほ 

ご 〆 ITF BXX49 QND FS=*C' THEN FOR 1=9 TO 19999*N 
EXTi BUTU LS2B9IFI 

249 "IF BX>49 QAND MS=*C' THEN FOUR 1=9 TU_ 19999』N 
EXTiBOTO L Fi 

259 「L259iEG=9 ュ ドド 5G=INEEYE ] 

の ら 【E: =6 QND BX》>49 BOT L2B9 FI 

* IF ES=4 AND BX ぶ 49 GOTO LSB9 ELSE BUTOU LS259 











*L2 ヨ OiFUR 1=9 TU 599』 BEEF1[ ]』 BEEFG[ ]iNEXTi IF 
9 THEN FFPUTE49+NMX 。92 つ 。6 ら 。 12。9。 日 ] ELSE FPUTEFX 
、92。6。12。19。 日 ]iFI 
299 "TX=EXI GUSUB LB49 
さ 99 『 
さ 19 ?(# マー イト " ウ \) 
さ 2 の 9 "し 329*FUR 1=9 TU 799NEXTi BX=BX+Ti BY=(BXーN) % 
(BX-M) / F BY:=99 THEN BY=99iFPUTEBXX。BYY。 1 。4。1 
5,41]』BX Xi BYY=BYiFFUTEBX。BY。 1 4。11+R。2]iFUR 1 エ = 
9 5999』NEXTiF1I 

* エ F T く 9 GOTQ L479iFI 
* ミキ * え ) 
"THEN BOTH L399』F エ 

"IF BY=99 THEN =B』 BHTU L499FT 
ITF BX ぶ 49 ロ R _RND(19) > さ THEN GUTU L43@F エ 
『K ド = フ 7X(BXXMX+49)+9x(BX>MX+4 さ ) i BHTU L499 














IF Es6 THEN MX=MX+2x(K- 日 ) i WX=MXー2x (MX> 
さ 4)+2* (MX くき) : BHTD L419 ELSE GUTD L4 さ 9j』FI 

419 "L419iTF ド =B THEN FOR IT=G TU 1999iNEXTiIF BX 
*49 AND BY=99 THEN FFUTL49+MX。92。6。12。9。 日 ]3 X ニ MX+ 
BDTU L599iFTIGUTD L679』F エ 

429 "EX=MXX+49 キ 4X( ド = ニア) iFPFUTLEX 。 19。2。 4 日 。15、4]i MX 
X=MXiFPUTE49+MX 。 199。6。 4 日 。 1 。 日 ] 

4 さ 9 "し 4 さ 9』 BUTD し 679 














459 『 (we ヒ ぢ * リ *) 
479 "し 47@』 IF C' THEN BTU L519iFI 
4B9 *TF BY=99 THEN K=2i BOTD L529iF+ 
499 *TF BX>39 OR RND(19) > THEN BODTO L55@iFT 
+FX)(BX く FX+ さ ) BUTU L52 の 
NEEYE] 
ド に =9 DR 
ュ FX=FX-2*(F 
SE GOTO L559iFr 

+9 "上 55 さ 9i IF K=S THEN FOR IT=9 TU 1999INEXTiIF BY 
=99 AND BX<49 THEN FFUTLFX。 ワ 2、6』12。19。 日 ]: X=FXs GO 
TO L599iFTsGBDTU L679sFI 
49 *EX= ニ FXX+4X (ドニ 1 ) iFPUT[EX 。 199。 4 日 1 呈 。4] ミ FXX メ =F 
XiFFUT[FX,19@、6: 4 日 弓 。B 














5 THEN BUTU L4 さ の 9 ELSE FX= 
1)+2x(FX で 9) iBUTU L5 さ 9 EL 

















559 "L55S@9i GUTU L67@9 

569 “ 

79 "(% 
5B9 『 
599 "L599iFDR 1=9 TU 299*BEEF1[ ]』 BEEFG[]iNEXTi IF 
T*(Xー ミ 9) ぶ 9 OR BY99 THEN GUSUE LB49iBOTD L67@*F 
1! 

699 "ITF XSBX-6 ロ R XEBX+1 THEN GUSUB LB49iGUTO L ら 6 

79 ョ FI 

619 "FFUTEBXX。 BYY。 1 。4。155。4]』BXX=BXi BYY=BY 

629 : BUSUB LB49: FFUTLBX。 BY。1.4。11+R 8B] 

639 : BDSUB し B59iT=ーTi BY=199』 BOTO 

649 『 

659 " ( 半 タマ 

669 『" 

679 "上 679: BUSUE LB19I ITF BYE ワ 9O UR (TX(BX-49))9 6 


が マリ 7 ウツ \) 





ヒョウ シド \) 





( 革 





ショ リト え ) 


EEEF1[]sFHR 1=9 TO 599INEXTi BEEF9[ ] 

7 BY=149・* 

*FFUTEBXX。BYY。 1 41.41』BXX=BXi BYY=BY 

749 "R=(BY* ) *(1+2* (TS9) ) 二 (BY テニ 29) %(1+BBN( (49ーBB 
X) *T) ) 

759 "FFPFUTEBX』。EY, 1 .4。11+R。8] 

769 "IF BX: THEN FT=FT+(TX ぶ さ 9) ELSE MT=MT+(TX* 
49) 』F1 














779 *BX=B9-BXiGUSUE LB5 
7B9 *FOR 1=9 TO 1999iNEXTIBOT L159 
799 


(w 。 すす *) 
*L コ 19:FFUT[BXX、BYY。1 、4。15,4]』i XX=BXiBYY=BY 
>R=(BYS29) *(1+T2X (TS9) ) 上 (BY >=29) *(1+BBN((49-B 
X) *T) ) 

B ミ 9 *FFUT[BX。BY。 1 。4。11+R。B]iRETURN 

B49 *LB49iFDR N=9 TU 1999INEXTiTF EXX4@ THEN FFU 
TLFX、92、6、19。1 王 。41:FPUT[FX。19 の 。6。 4 日 。 弓 日 ] ELSE FF 
UTE49+NMX 、 92 。6。19。1。41:FFUT[49+MX 。 199。6。 4 日 。 1 日 15 
FT』RETURN 

B59 :LB59』 IF BX*49 THEN X=MX+44 ELSE X=FXiF1iM=X 
+4+RND (25) - 紀 4*(BX 49) iM=M/G ミ レニ メーMk し =LXL/199』 日 X= 
DEE *6BFF 。@』RETURN 

















7 (% ヨミ コミ え ) 


999 "し 9 の 99* 

919 “FFROE ] 

929 "FDR 1T=G TU 9』QDDREG= あ も 6999+ 中 199XTNFGETELADDRE 
8 エ +1 JiNEXT 

*FBET[ ま 7 さ 99。 1 品 ] 

949 "FUR 1T=9 TU さ 』 ADDRES= ま 7499+1SXTIFBETELADDRES. 
エ +11]iNEXT 

959 "RETURN 












ム え ) 

まま FD9 さ 。 ま 日 1iRETURN 

9 さも B9iRETURN 

7CLSiFRINT CHR ま (12) NRETURN 
*LINEAIHLTE]iCFOEE ADDR。 ま 15。 67。 ん 1 韻 。 んで 韻 。 


19959 
ん 3 せ 。 4 7 SUBE ]iRETURN 


19969 "SYMBDL』HLTE ]: CFOEE ADDR,25、 ん 19。 1 ん 11 日 
て 9 ん 1 持久 2 間 。 呈 。 さ 。 ん 425 ん 6、 75SUBL 
* INEEYIHLTE]iCFORE ADDR。$ さ 
UP YY 。「H* 7 TP 。 あ 9 さ 。$D さ BF。 訓 の O。 生日 6。 和 D491 拍 。 介 
。 *$D さ B2 六 HG 。 も D49 人 9 揚 。 ま さ 9』 SUB[ ]sHLT[ ]:ED=FEE ド (FCB 
) : SUBE ] 

19979 "ドド Y=FEE ド ( ま 6BFF ) * IF ED*G THEN RY=EDiFTITF KR 






















ETURN 
9 "HLTiCUDE $ ま B6。 ま FD あら ロ 、 あ 2 日 。 ま FBFDRE まま FDG 
9 CUDE $B6、$FD , あま 2 。 和 $FEs ADDR= ま FCB2i RETURN 
19999 "SUBIFURE ま FD95。9』RETURN 

人 999 の 9 | (天天 F GET XX 光世 区 区 ) 

9 *FBETi = ニ $CO99+ あ 1 の 9 ADDRES=1 』FDR = の TO 
ミ i HLTE]i CFDKE ADDR、$ さ FT YA TMP TP UE ビ P 

ッ H" 」" 1 も 91 、 も D さ りさ 音 。 欠 祝 。 ま ウ 94 福 。 まり 99FUR N=9 TO $ さ Fi 
ADDR: N) =QDDRES+N) i NEXTi SUB ]: ADDRE5=QDDRES+49』 
=A+ ま 49』 NEXTiRETURN 

499 つの | (ルル キキ F PUT 区 区 区 基 光 天光 区 基 区 基 区 ) 

499 さ 9 "FFPUTi ニス 1+BOxX2kHLTE]iCFUKE ADDR, ま 3F』 "YY 。 
TU PC 日 T「 あり 1 。 ま D さ り 6 后 。 まじ OO 井 員 の 
の 96 間 生じ OO 時 まり 9。 仁多 さ 。 4 ん 6* SUB[ ] iRETURN 
49949 * 

4995G "(* xx F PUT FRDGBRAM TRANSFORT 
49969 :FFRDi DATA=$6BG 














区 基 ※) 
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リス ト 1 





49@79 "CPUREE DATA, まさ 4 。 和 まさ ブ 。 生日 6 。 ま D4 。 ま 9 
499B9 "CFPURE DQTA, ま CC。 まじ 9。 あの 9 、 員 人 RE 。 も 日 。 ま EE 。 ED 。 
3997e * CPURE DATA、$ED , も 1F 、 あ の 1 まま ら 6F 。 まじ 。 まじ 。 ま 1 。 ま 王 
49199 "CFOFE DATA, ま 69。 ま BC。 ま ビア 、 ま あら 。 ま BC 。 4 日 1 、 の 
の " CFURE DATA,$26。$ の 2。 まさ 負 日 生ま B。 ま Do 日 
0 *CPDEE DATA, ま 98 まっ 4 。 も 9F 、 人 E 。 日 ま D 。 人 。 日 
CE 


) CFOEEE 


CFOEE 


* CFOEE 








DATQ, * ま D 1 。 和 まつ 6 まさ 、 ま 4F 、 ま 1 の 9。 あ 21 、 も 日 6 あの 


DATA、 ま 1 の 9。 ま 1 、 和 $ 昌 6 まあ 97 。 名 仙 7 。 日 じ 。 も 16 。 ま 所 


DATA,* ま BC 。 * 昌 日 。 4F 、 ま コ 。 まじ 。 日 つ 。 も 1F あら 





49169 
6 
491 フ 9 
4 
491 ヨ 9 
ヒビ 
4@199 
避 
492O99 
ア 
49219 
49229 


*CPOEE 


) CFOEE 


CFOEE 


CFOEE 


* CFOEE 


) CFOEE 
*FBETE 


DAQTA 。 $EC 、 まじ 。 も F 、 も 49 。 生 ED 。 まじ 。 日 1 。 ま ビ 
DATA 。 * ま BC 。、 ま QE 。 人 6 、 日 9 。 あつ 9 。 あの 日 。 生 4 誤 本人 
DAQTA 、 ま 5 、 ま 19。 あつ 1 仙人 王 。 7 。 5 。 も 
DATA 、 ま 2D 。 ま F の 、 まさ 1 。 日 。 呈 9 。 6 。 日 じ 。 


DATA 。 ま 26 。 呈 ビ ロ 。 も 人 6 。 日 。 も 日 BE 、 ま 49。 人 





DATA。 まじ 。 ま 日 6。 加 人 4 


まま 68 3]』iRETURN 








に ーー 2 バト ミン トン ・ 


ゲー ム マシ ン 語 リス ト EE 昌 












Add  +O +1 +2 + さ +4 +5 + ら 6 + フ + 日 +19 +a +BH +C +D +E+F Sum 
6900 14 00 OO 00 OO 00 55 OO oo OO Oo oo 55 oo FF 00 :BD 
6910 OO QO 55 0Q3 OO 06 OO OO 14 OC 00 O1 0 OO 2 30 :59 
6O OO 55 09 36 6O 60 OO :OE 
.Q5 SS5 60 OO 2 O1 45 54 sgCR 
55 5o 55 5C 40 0o 15 57 :CB 
EO OO 0O1 FB BO 1F FB Q0 5O 
守 


F3 





+ さ 
91 
FC 
FF 
00 
QO 
3B 
C3 
0O 
FF 
0 さ 3 


F 


Add 

6a0QO 
610 
6a2O 
6A3O 
640 
6a5O 
6Q6Q 
67O 
6ABQO 
6A90 
6QAO 
6aBO 
6ACO 
68DO 
6AEO 
6QFO 


+O 
き F 
OB 
さ C 
FF 
0O 
だ 
oo 
FF 
Q90 
FE 


+1 
EO 
CO 
00 
CO 
900 
QO 
00 
CB 


Bo 
FF 
OO 
80 
FE 
0Z 
00 


Qo 
7F 
FF 
90O 
CO 


00 
Qoo 
FF 
7F 





Sums 


Add 

6COO 
6C1O 
6C2O 
6C3O 
6C4Q 
6C5O 
6C6O 
6C7O 
6CBO 
6C9O 
6CAO 
6CBO 
6CCO 


+F 
55 
55 
FF 
FF 
FF 
FF 
00 
QO 
900 
00 
9O 
oO 
0O 








OO 
OO 
QO 


Rdd 

6DOO 
6D1O 
6D2O 
6D3Q 
6D4O 
6D5Q 
6Do ひ 
6D7Q 
6DBO 
6D9O 
6DAO 
6DBO 
6DCO 
6DDO 
SDEO 


+O 
OO 
OO 
0O 
092 
5o 
07 
oo 
4O 
7F 
15 
oO 
77 
oO 
55 
55 
DO 





4E 


+O 
7F 
900 
0 
900 
OO 
0O 
FO 
0Z 
OO 
40 
7F 
さ F 
OO 
7Z 
OO 


FF 


+0 
FF 
900 
7F 
00 
FC 
FF 
oO 
FC 
SF 
F8 
FF 
4 
FF 
D5 


FF 


dd 

7900 
7010 
7020 
703O 
7940 


+Q 
FF 
55 
55 
FF 
FF 





こっこ 


00 0O 
OO OO 





ku の 時 に 
0O OO 
55 oO 
01 42 
11 OO 
55 Oo2 
FF E5 
1F 7F 
OO _O5 
FE OO 
0 0 
0O 05 
75 CO 
OF FF 
40 00 
OO 2 
74 SO 


90 F4 


+1 +2 
OO 0Z 
00 7F 
に 戸 
FF 0O 
03 CO 
oO 0QO 
FF OO 
FB FF 
1F 7F 
OO OF 
FE OO 
BO OO 
OO OF 
75 CO 
OF FF 
Co oo 


+ す 1 +2 
OO 3F 
7F FO 
OO 0Z 
OO 7F 
OO OO 
55 FF 
Q1 4 さ 
QOC QO 
55 FC 
03 E5 
FF 7F 
FF F5 
FF FF 
FF E9 
FF F5 
75 FF 


下 ギ 写 
FF FF 
7F FF 
FF 2a 
F4 5F 
FF_FF 


900 
Q00 
QO 
























00 
Q0O 
0oO 


oO 
090 
OO0 


QO 
00 
90 


0O 
0O 
00 


:QO 
5 OO 
OO 


9O 
0 
oO 


9O 





+E 
07 
4 


0QO 
20 
00 
900 


+F 
80 


+B 
FF 


中 選 
15 
FD 
FF 
FF 
FF 


二 人 4 
57 
55 
FF 
BO 
5E 


+5 
FF 
F5 


E5 


+ ら 
FF 


55 
AB 3 


FF 


FF FF FF 








リス ト 2 








7190 
7110 
7120 





+O 1 + オ 2 




































+ る 人 4 


+5 

















705Q FF FF FF FF sFO CO OO OO OO 03 OO FC GO OO QO 0 FO OF CO 00 00O iB1 
7060 OO 0O OO OO iQOO OO OO OO 0 ミ FF FC OO OO OO OO 0O 3F C 
Z07O 00 90 00 90 OO OO OO FC 0O OO OO OO OO OF FC 00 QO iC7 
QQ 0O OO 00 0O0 OO OO OO OO FF QO OO 00 QQO 90 3C 4 
( oo oo FF FF FC OO 3F FF FF FF FC FF :2F 
い QO_ 00 FO 3F FF FF FF CO FF OF FF FC sFG 
2 生 9 90_ 00 FF FF FF CO さ F FF FF FF FF FF 
060:.00 9o oo FO 17 FF FF FF D5 FF oo 
70DO ( QO OO FO OO OF D7 QQO QO OO OO 
70EO ( OO oO oO OO OO OO OO oo oO oO OO 
7oFO て oO oo oo Qoo OO OO oO oo oO 0O :OO 
Sum: 6 6F B5 D1 68 OO aC 7B BB FF 27 17 BB 07 74 :BE 
Add 


dd + ら 6 + フ 7 + 日 + す 9 +Q +B + ビ +D +E ビ ィ ド dd _ +O 1 +2 + さ +4 + 己 +6 + プ 7 + 日 19 +Q +B + ビ +D +E +F Sum 
7200 OO OO OO Q0 00 00 00 00 00 QO OO QO OO OO 09 00 SC FF FF CS CS 00 FO FC FO 』D2 
O_ OO QO OO QO OO QO OQ QO OO OO OO QO OO0 _ 00 _ 00 00 OO 3C 7E FF 18B 00 7E FF iCE 
OO _QO_ OO OO 00 OO 00 00 OO OO QO OO QQO QO QO 0Q0 OO _QF CF OF FF FF QF FF iDAa 

OO OO OO OO OO 14 OO OO OO Oo OO 55 oO OO 00 00 

OO0_ 55 00 OO OO OO OO 14 OO QO OO QO OO _ OO _ 03 FF 








た 7-8 記 プ リロ グラ ム の た A7- 7 7 へ の 交 着 





FM-11 に は まだ ソフ ト が 出 て い を な い の て で 大 方 は 
7/8 用 の も の を 利用 し て いる と 思い ます . オー ル 
BASIC で ROM ル ー チ ン を CALL し て いな い ソ フト 
は SCREEN 文 を 追加 すれ ば 走り ます . 

例 FM-8 活 用 研究 パ マ ー ジ ャ ン ” な ど . 

また 一 見 マシ ン 語 に 見 えま す が , グラ フィ ッ ク 情 
報 と し て マシ ン 語 領域 に デー タ を 持っ て いる ソフ ト 


も PUT, 
参考 例 と し て FM-8 活 用 研究 の ^ 花 札 ” を FM-11 用 に 
改造 し て み ま す . 

まず 。 も と の ソフ ト は グラ フィ ッ ク ・ デ ー タ を 名 
H34F0 一 &H7FFF ま で 持っ て お り , 11 は &H7 
C000 一 科 H8000 ま で テキ スト ・ ウ イン ドウ な の で デ 
ー タ を ロー ド す る と き に &H1000 だ け シ フト させ て 


GUT 文 を 使っ て る も の で あれ ば 走り ます . 


人 @ 浅 見 薫 


LOADM DATA"。 一 呪 H1000 で ロー ド し ます . モ 
ニタ で シフ ト し た こと を 確認 し て , 次 に BASIC の 名 
H が つい た と ころ を すべ て &H1000 引 いて 書き 換え 
まま 95 

次 に INPUT 文 の 前 が SYMBOL 文 な の で PRINT 
文 に 書き 換え ます . これ で FM-11 で も FM-8 の ソフ 
ト が 走り ます . 


改造 例 ( あ くま で も 1 例 で す . も と の プロ グラ ム で &H37E6 を &H27E6 に &H1000 引 いて 守 き 換え る ) 








oO CLS: CLEAR , &H24F2: LOADM "DATA" = DEF TINTAーZ : DEF USRO=&H27E6 = DEF USR 1 =&H2966: DEF USR2=& 
H2572: い IDTH4O, 25: COLUR7, 4 


92O COL= ニ 6 : XX ニ 20 日 = YY= 〇 ェ FD=24 : PT=192:s AD=&H29EO: GUSUB1OOOO XX ニコ 336 =: PT=96 : AD=&H2AAO : 
USUB1OOOOs XX= ニ 4OOs AD=&H2AAO : BUSUB 1OOOQ 

93O COL=2= XX= 日 = YY= ニ 日:FD=16= PT=96 : AD=&H2BOOs GUSUB1OOOO: YY= ニ 72: AD=&H2B6Os BUSUB1OOOO 
94o LOCATE 1,23:PRINT"1 2 3 ES )B グ 8" 





2o2O LUCATEO, 24: PRINT "ショ ウフ ーー の 〇 の, コイ コイ = 1" ぉ =sLUEATE14,24: INPUTSM: CLS4 
757O LINE(O,O) 一 (639, 199) , PSET, ロ , BF 


1Oooo PO ロ KE &H29D, CVARPTRCACO) )\ 256) : PUKE &H29D9, CVARPTRCA(O) ) MOD 256) :POKE &H 
29D7, PT : SS=USR 1 (AD) :LTNECXX, YY) う て CXX+16※PT/FD-1 , YY+FD-1) , PSET , 〇 , BF : PUTS(XX, YY) 一 (X 
X+16 ネ PT/FD-1 , YY+FD-1 ) , A, PSET , CDL : RETURN 

2oooo POKE &H29DB。 CVARPTRCACO) )\ 256) : PUKE &H29D9, CVARPTRCACO) ) MD 256) : S5=USRO 
(AD) : PUT9A(XX, YY) 一 CXX+63, YY+46) , A, PSET: BEEP 1 : BEEPOs RETURN 
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F'M-'Z/11 活 用 研究 


FM- 11 計 か 4 ト 仕様 
FM- 1 中 EMI 回 路 





まま 3 らき 
0 
に Ys ゃ 
1 








SubSysfem 





ン ソ ー ル ・ コ マン 
COMSO/E /M7 


ド 



































コン ソー ル 画 面 の 各種 制御 パラ メー タ の 設定 を 行ない ます . 
コマ ンド & パ パラメータ 
相対 値 | 記号 | 内 に 3 | 値 
0,1 Don't care ど 
| 2 |IC | コマ ンド ・ コ ー ド | soi 
8 |AT | アト リピ ュー ト | [ERS]+ 0 の と き に 有効 
4 |NC | 画面 桁 数 デー ] 40 ま た は 80 
5 |NL | 画面 行 数 | 20 ま た は 25 
6 |SL | スク ロー ル 開 始 行 番号 | 0-[NL]_ 
7 |NS | スク ロー ル 行 数 _| 0-([NL]-[SL]) 
。 | [FD]= 0 て 表示 し な い 
F ンク ショ ン ・ キ ー 表 示 フ ラ 2 
8 D た に ホフ ラク | [FD]+ 0 て 表示 する 
AA 。 > [ERS] キ 0 で 消去 し な い 
人 [ERS] + 0 て 消去 する 











と ASE COMSO/ ど 2 


コン ソー ル 画 面 (文字 VRAM) を 消去 し ま 
コマ ンド & パ ラメ 0 


相対 値 | 記号 | 内 





Don't care 














| C | コマ ンド ・ コ ー ド | s02 
| [W] 0 : 全 画面 
[W] = 1 : スク ロー ル ・ モ ー ド 画面 
| 消 
人 [W] = 2 : ペー ジ ・ モ ー ド 1 画面 
[W] = 3 : ペー ジ ・ モ ー ド 2 画面 
4 | AT | アト リピ ビュート トカ 5 つ 


PU7 S7/ 刀 MG 


女 字 列 を コン ソー ル 画 面 に 出力 し ます . 区 字 列 に は 画面 に 直 
接 表示 され る 文字 の 他 に , 制御 用 の オー ダー コー ド や エス ケー 
プ ・ シ ー ケ ンス ・ コ ー ド も 含ま れ ます . 

コマ ンド & パ ラメ ー タ 





相対 値 | 記 号 | 

Don't care 

[CN] 1 の と き に デー 
続 する こと を 示す 
| $03 
| 1-124 

出力 文字 列 ( オ ー ダ ー を 含む ) 





タ が 継 


継続 フラ グ ・ ビ ッ ト (MSB) 





コマ ンド ・ コ ー ド 
文 字 列 の バイ ト 数 
出力 文字 列 

















文字 列 を コン ソー ル 画 面 に 表示 し た 後に . ロー カル ・ エ ディ 


グ ト 年 一 区 な り 。 2 
ー カ ル ・ エ ディ ッ ト が 終了 する と , オペ レー タ に よっ て 変更 さき 


210 


な 療 プ 
取り ます 


ィ ー ル ド の うち て で 画面 最上 投 


を 含む フィ ー ル ド を 読み 取り ます . 


相対 値 | 記 号 | 
0 


コマ ンド & パラ 


に 位置 する フィ ー ル ド を 読 
変更 され た フィ ー ル ド の な い 場 合 に は カー 


ソル 位置 


メー タ 


Don't Care 





| 継続 フラ グ ・ ビ ッ ト (MSB) 


[CN] = - 1 の と き に デ 
続 す る こと を 示す . 


ー タ が 継 





コマ ンド ・ コ ー ド 


04 





_| 文字 列 の バイ ト 数 


1 一 124 











出力 文字 列 








出力 文字 列 (オー ダ を 含む ) 






































E | エラ ー コ ー ド 『 [E] キ 0 の と き エ ラー あり 
の [CN]=1 の と き に デー タ が 継続 
1 CN | 継続 フラ グ ント AS する こと を 示す . 
2 $00 
0 : RETURN 
9 K | 終端 キー 種類 1 : CTRL+[c] ま た は [CTRLH IX 
4 N | 文字 列 の バイ ト 数 TEXT の バイ ト 数 +3 
5 ー | Set Cursor オ ー ダ ー コ ー ド | $12 
_6 X | フィ ー ル ド 先 頭 X 座 標 0-79( コ ン ソ ー ル 座標 ) コ 
7 | Y | フィ ー ル ド 先 頭 Y 座 標 0 一 24( コ ン ソ ー ル 座標 ) 
8 一 127| TEXT| フィ ー ル ド 文 字 列 文字 列 


GE7C 


GET コ マン ド に よっ て 変更 され た フィ ー ル ド の うち , まだ 読 


み 込 まれ 
を し ます . 


て いな い フ ィ ー ル ド 
2 リー ニー ジジ 


エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 


( 未 転 


隊 フ ィ ー ル ド ) 
・ エ ディ タ な どの よう に 複数 の フィ ー ル 


の 読み 込み 


ド を 対象 と する プロ グラ ム の 場合 に 使用 し ます . 
コマ ンド & パラ メー タ 


Don't Care 











$05 









































エラ ー コ ー ド [E] キ 0 の と き エ ラー あり 
| か た ちの [CN] =-1 の と き に デー タ が 継続 
1 CN | 継続 フラ グ ・ ビ ッ ト (MSB) する こと を 示す .。 
2 。 |s00 
| 0 : RETURN 
3 | K | 終端 キー 種類 1 : IrRu lc また は KrRu+ | 
1 = 
4 N 文字 列 の バイ ト 数 TEXT の バイ ト 数 +3 
5 Set Cursor オ ー ダ ー コ ー ド |$12 
6 X フィ ー ル ド 先 頭 X 座 標 0 一 79( コ ン ソ ー ル 座標 ) 
7 Y フィ ー ル ド 先 頭 Y 座 標 0-24( コ ン ソ ー ル 座標 ) 
8 一 127| TEXT フィ ー ル トド 文字 列 文字 列 








エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 


GE7 C/ ガ 4 万 4C7E 万 p/OCX 7 


対角線 座標 (Xi, Y) , (Xs, Y: 








2) に よっ て 示さ れる 枠 内 の 文字 








コー ド を 読み 取り ます . 
コマ ンド & パ ラメ ー タ 















































相対 値 | 記 号 | 
0.1 Don't Care 
2 C コマ ンド ・ コ ー ド $06 
3 X: X: 座 標 0 一 79( コ ン ソ ー ル 座 様 ) 
4 Yi Y, 座 標 0 24( コ ン ソ ー ル 座標 ) 
5 X。 X。 座 標 0 79( コ ン ソ ー ル 座標 ) 
6 Y。 Y。 座 標 0 --24( コ ン ソ ー ル 座標 ) 
Xj, Yr, X。, Yy に よっ て 画面 上 の 座標 を 指定 し ます . 
復帰 情報 
0 E 当 ZN [E] キ 0 の と き エ ラー あり 
の [CN] =1 の と き に デー タ が 継続 
1 CN 人 7 AND する こと を 示す 。 
2 | 一 $00 | 
3 | B | 今回 転送 バイ ト 数 1-124 | 
4 一 127| Cn | 文字 コー ド 文字 コー ド | 














PU7 CAAC7E 万 /OCX 7 


対角線 座標 (Xi, Yi) , (X>, Y?) 
を 表示 し ます . 


に よっ て 示さ れる 枠 内 へ 廊 字 


コマ ンド & パ ラメ ー タ 





相対 値 | 記号 | 


























0 Don't Care 

] | CN | 災 続 フラ グ ・ ビ ピット (MSB) 本 
2 C コマ ンド ・ コ ー ド $07 

3 X」 | 座標 0 79( コ ン ソ ー ル 座標 ) 

4 | Y, | Yi 座標 0 -24( コ ン ソ ー ル 座標 ) 

5 X。 | X。 座 標 0 79( コ ン ソ ー ル 座標 ) 

6 Y。 | Y。 座 標 0 一 24( コ ン ソ ー ル 座標 ) 

7 AT | アト リピ ュー ト アト リ ビ ピュー ト 文 字 

8 | B | 今回 転送 バイ ト 数 | 1 120 





文字 コー ド 











|9-127| Cn | 文字 コー ド 


GE7 C 刀 4 万 AC7E 万 LOC 2 


対角線 座標 (Xi, Ym) , (Xs, Yi: 








2) に よっ て 示さ れる 枠 内 の ア 


リピ ビュート と 廊 : \ コ ー ド を 読み 取り まま 9.5 
コマ ンド & パラ メー タ 




































































相対 値 | 記号 
0,1 Don't Care 
2 C 2 ンド 、s 当 二 08 
3 4 XX 座 標 0 -79( コ ン ソ ー ル 座標 ) 
4 Y Yi 座標 | 0 24( コ ン ソ ー ル 座標 ) 
5 X%。 X: 座 標 | 0-79( コ ン ソ ー ル 座標 ) 
6 Y。 Y。 座 標 0 -24( コ ン ソ ー ル 座標 ) 
XX, Yi, Xs, Y。 に よっ て 画面 上 の 座標 を 指定 し ます . 
復帰 情報 
エラ ー コ ー ド [E] キ 0 の と き エ ラー あり 
の 5 [CN] =1 の と き に デー タ が 継 
1 CN | 継続 フラ グ ・ ビ ッ ト (MSB) 続 する こと を 示す . 
2 ー $00 
| 3 B | 今回 転送 バイ ト 数 2 124 
| 2+2・n| atn | アト リ ビ ュ ー ト アト リピ ュー ト 
| 3+2n| cn | 文字 コー ド 文字 コー ド 
エラ ー 内 容 に つい て は エラ ー コ ー ド 表 を 参照 . 


PU7 C ガ AAC7E LOC 2 


対角線 座標 (Xi, や ) (Xz, Y>) に よっ て 示さ れる 枠 内 に , ア 
トリ ビュ ー ト 付き の 文字 を 表示 し ます . 


&O 


Dont care 


[CN] =1 の と き に デー タ が 継 
続 す る こと を 示す . 





CN | 継続 フラ グ ・ ビ ッ ト (MSB) 












































2 C コマ シド s* コ ー ド 09 
3 X」 | XX」 座 標 0 一 79( コ ン ソ ー ル 座標 ) 
4 Y, | Y, 座 標 0 一 24( コ ン ソ ー ル 座標 ) 
$ X。 | X。 座 標 0 一 79( コ ン ソ ー ル 座標 ) 
6 | Y。 | Y: 座 禁 0 24( コ ン ソ ー ル 座標 ) 
7 Don't care 
8 BB 今回 転送 バイ ト 数 2 一 119 
7+2・n| atn | アト リピ ビュ ー ト アト リピ ビュ ー ト 
人 Cn | 廊 字 コー ド 文字 コー ド 





万 E4AD COMSO/E /P4A ル 7E7 た 万 


現在 設定 され て いる , コ ン ソ ー ル ・ パ ラメ ー タ の 値 を 読み 込み ます . 
コマ ンド & パ ラメ ー タ 








































































Don't cate 
| コマ ンド ・ コ ー ド $0A 
復帰 命令 
相対 値 | 記号 | 内 容 | 由 
0 EE ラー ョ デー [E] キ 0 の と き エ ラー あり 
1 」 不定 
が ーー ト $00 
3 | X | カー ソル X 座 標 0 -79( コ ン ソ ー ル 座標 ) 
4 Y | カー ソル Y 座 標 0 24( コ ン ソ ー ル 座標 ) 
5 AT | アト リピ ビ ュー ト アト リピ ビュート 
6 に 不定 
7 | NC | 画面 桁 数 40 ま た は 80 
8 | NL | 画面 行 数 20 ま た は 25 
9 | SL | スク ロー ル 開 始 行 - 0 -[NL] 
10 | NS | スク ロー ル 行 数 。 0 -([NL] 一 [SL]) 
11 | FD | ファ ンク ショ ン ・ キ ー 表 示 フ ラグ | SO 
コン ソー ル 制 御 フ ラグ | 次 表 参 照 








エラ ー 内 容 に つい て は 15.1 エラ ー コ ー ド 表 を 参照. 





















































BIT | FLAG NAME 
0 Cursor Display 

1 Order Operation 

2 TAB Operation 

3 語 (reserve) 

4 Put Wait 

5 New Line 

6 Hardware Scroll 

が ll Order Select 

8 Clear Page 

9 Field Expantion 

10 Enable CLS 

11 Enable Light Pen Attention 
12 Enable Key Attention 
13 Auto Line Feed 

14 With Graphic School 
15 (reserve) 








74/ S と 7 


タプ 位置 を 設定 し ま 





コマ ンド & パラ メー タ 
| 
1 














0.1 | Don't Care 
2 | C コマ ンド ・ コ ー ド 0B 
8-12 | TAB TAB 停 上 位置 80 bit ビッ ト ・ イ メー ジ 





COMSO/ と CO/7 万 O/ 


コン ソー ル 制 御 フ ラグ (16 ビ ッ ト ) を 制御 し て , 種々 の コン 
ソー ル 動 作 を 選択 し ます . 
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,O 


コマ ンド & パ ラメ ー タ 

















相対 値 | 記 号 | 内 3 値 
0,1 Don't Care 
| 2 Cc コマ ンド ・ コ ー ド $0C 
3.4 CF コン ソー ル 制 御 フ ラグ 次 表 参 照 
コン ソー ル 制 御 フラ グ (CF) は , 16 ビ ッ ト の フラ グ 群 で あり , 





種々 の コン ソー ル 動 作 の 選択 に 用 いら れ ま す . 次 の 表 に その 座 
容 を 示し ます . 




















ビッ ト | 2 内 容 
0 | Cursor Display ON(1) の と き に カー ソル 表示 
1 | Order Operation ON(1) の と き に オー タダ 動作 を する 
2 | TAB Operation ON(1) の と き に タプ 動作 を する 
3 | リザ ー ブ 
1 ON(1) の と き に [Esc| キー の 入力 に よっ 
4 | Put w ESG 
0 て 表示 動作 を 一 時 停止 する 
| ON(1) の と き に CR オー タダ LF オ ー 名 
5 | New Line それ ぞ れ が CR, LF 両方 の 動作 を 同時 


に 行なう . 





ON(1) の と き に 全 画 面 スク ロー ル で ハ 


6 | Hard Ware Scroll 
ー ド ウェ ア ・ ス クロ ー ル を 行なう . 





(1) の と き に F-BASIC 用 オー 人 ダ (1) の 


7 | Order Select の 
と き に ADM-3A 用 オー ダ 





ON(1) の と き に , ペー ジ ・ モ ー ド 画面 
で 最終 行か ら 先頭 行 へ 表示 が 移る と 
き に 画面 を 消去 する . 


8 | Clear Page 





ON(1) の と き に , ロー カル ・ エ ディ ッ ト ・ 
モー ド 時 の フィ ー ル ド の 併合 , 拡張 を 
許す . 


9 | Field Expansion 





ON(1) の と き に , ロー カル ・ エ ディ ッ 
ト ・ モ ー ド 時 の |cLs| キー に よる 画面 消 
去 を 許す . 


10 | Enable CLS 





ON(1) の と き に , ライ トペ ベン 割り 込み 
を 許可 。 


ON(1) の と き に , キー 割り 込み を 許可 . 


ON(1) の と き に , 画面 最 右端 表示 後 の 
オー ト ・ ラ イン ・ フ ィ ー ド を 行なう . 


11 | Enable Light Pen Attention 





12 | Enable Key Attention 





13 | Auto Line Feed 





14 | With Graphic Scroll GNG) の GA に . 六 固 較 スタ ロニ ル 呈 





に グラ フィ ッ ク も スク ロー ル す る . 














15 | リザ ー プ 
RESET 時 は 自動 的 に 806D3 が セッ ト さ れ ま す . また , リザ ー 
プ の 部 分 は 0 に し て お いて くだ さい . 


た 腰 ASE ク 

コン ソー ル VRAM お よび グラ フィ ッ ク VRAM (コン ソー ル 
画面 と 同じ 範囲 ) を 同時 に クリ ア し ます . 
コマ ンド & パラ メー タ 














相対 値 | 記号 | 内 容 | 値 
0,1 Don't Care 
2 C コマ ンド ・ コ ー ド $0D 
[W] =0 キ 全 画 面 


[W] = ニ 1 キ スク ロー ル ・ モ ー ド 画面 
[W] =2 キ ペー ジ ・ モ ー ド 1 画面 
[W] =3 キ ペー ジ ・ モ ー ド 2 画面 


4 | BC | 背景 色 カ ラー コー ド | 0-7( グ ラフ ィ ッ ク 用 ) | 


3 w 消去 範囲 








5 AT アト リピ ュー ト アド リピ ュー ト 

















CEA 万 COMSO/E /74G 


コン ソー ル 制 御 フ ラグ の 指定 され た ビッ ト を OFF (0) に し ま 
す . コン ソー ル 制 御 フ ラグ の 特定 の ビッ ト だ け 制 御 し た い 場 合 
に 用 いま す . 
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コマ ンド & パラ メー タ 












相対 値 | 記 号 | 内 
一 Don't Care 
C コマ ンド ・ コ ー ド S0E 
BIT ビ ピット 番号 0-15 

















コン ソー ル 制 御 フ ラグ の うち , ビッ ト 番 号 (BIT) に て 示さ れ 
る ビット を OFEF(0) に し ます . 以下 に コン ソー ル 制 御 フ ラグ の 
ビッ ト の 内 容 表 を 示し ます . 





FLAG NAME 


Cursor Display 





Order Operation 
TAB Operation 
(reserve) 

Put Wait 

New Line 

















Hardware Scroll 
Order Select 
Clear Page 








olalo の | 避 | ょ ol 一 | ら 





の ら 


Filed Expantion 

10 Enable CLS 

11 Enable Light Pen Attention 
12 Enable Key Attention 

13 Auto Line Feed 

14 With Graphic Scrool 

15 (reserve) 


SE7 COAMSO/ と 77 AG 

コン ソー ル 制 御 フ ラグ の 指定 され た ビッ ト を ON(1) に し ま 
す . コン ソー ル 制 御 フ ラグ の 特定 の ビッ ト だ け 制 御 し た い 場 合 
に 用 いま す . 
































コマ ンド & パラ メー タ 





Don't Care 





に 2 デ 四 6g| コマ ンド ・ コ ー ド | sOF 

3 BIT ビ ピット 番号 0-15 

コン ソー ル 制 御 フラ グ の うち , ビッ ト 番 号 (BIT) に て 示さ れ 
る ビッ ト を ON (1 ) に し ます . コンソール 制御 フラ グ の ビッ ト 
内 容 は Clear Console Flag お よび Console Control を 参照 し て 
くだ さい . 


COPY COASO/ と VA ル 7 

対 解 線 座標 (Xi, Yi) , (Xs, Ys) で 示さ れる 枠 内 の 廊 字 コー ド 
また は アト リピ ビ ュー ト ( 両 方 も 可 ) を 画面 の 別 の 部 分 へ 複写 し ます . 
コマ ンド & パ ラメ ー タ 






































相対 値 | 記号 | 内 容 | 山 

0.1 Don't Care 

2 C | コマ ンド ・ コ ー ド | $10 

3 X」 | X」 0 一 79( コ ン ソ ー ル 座標 ) 

4 Ya 1 没 0 一 24( コ ン ソ ー ル 座標 ) 

5 62 0 一 79( コ ン ソ ー ル 座標 ) 

6 Y。 | Ys 0 一 24( コ ン ソ ー ル 座標 ) 

7 DX | X 座 標 変位 ー79 一 79 

8 DY | Y 座 標 変位 ー24 一 24 
1 : 女 字 コー ド の み 複 写 

9 SL | 複写 フラ グ 2 : アト リピ ビュ ー ト の み 複 写 
3 : 文字 コー ド と アト リピ ビュ ー ト を 複写 














SE/ と EC7 CO/ ル AM/ と EO / ル 7O/ と 


Display Subsystem が コマ ンド の 処理 を 終了 し た と き に , 処 
理 の 終了 を ATTENTION 割り 込み を 使っ て メイ ン CPU に 通 
知 す る か どう か の 選択 を し ます . 

コマ ンド & パ ラメ ー タ 
相対 値 | 記号 | 内 容 | 由 | 

0.1 三 Don't Care 








2 ei コマ ンド ・ コ ー ド | $11 

[MD] 0 の と き 割り 込み を し な い 

[MD] キ 0 の と き 割り 込み を する 
モー ド (MD) に は , ATTENTION 割り込み を 使う か どう 

か の 選択 を し ます . MD の 値 が 0 で な いと き に ATTENTION 

割り 込み を 使用 し ます . 


CAjpDAC7E OU7 
コン ソー ル 画 面 に 1 文字 出力 し ます . 
コマ ンド & パラ メー タ 








3 MD | モー ド 














相対 値 | 記 号 | 














ミー Don't Care 
| 2 6 | コマ ンド ・ コ ー ド | $12 
3 屋 SHW」 出力 文字 コー ド | 文字 コー ド 





出力 文字 コー ド (CH) の 内 容 を コン ソー ル 画 面 に 出力 し ま 
す . 文字 コー ド と し て , オー ダー コー ド な どの 制御 コー ド も 出力 
で きま す : 


GE7 //G ガ 7 PEM POS777/OA 
ライ トペ ン が 現在 示し て いる コン ソー ル 座 標 を 読み 取り ます . 
コマ ンド & パ ラメ ー タ 











[E] キ 0 の と き エ ラー あり 
1 と _ | 不定 

2 ー $00 

[SW] =$FF スイ ッ チ ON 
[SW] =$00 スイ ッ チ OFF 
0 一 79( コ ン ソ ー ル 座標 ) 















| 3 SW | ライ トペ ン ・ ス イッ チ 状 態 





&O 


〇 図形 形式 ビッ ト は , 文字 の 表示 形式 を 指定 し ます . 
00 : 直線 
01 : 枠 (四角 形 ) 
10 : 枠 (四角 形 ) 内 塗り つぶ し 
00 : 禁止 

〇 アト リピ ビュ ー ト 書き 替え 指定 ビッ ト 
0 : アトリビュート ・ バ ッ フ ァ を 書き 替 
1 : アト リピ ビュート ・ バ ッ フ ァ を 書き # 

〇 文字 コー ド 書 き 替 え 指 定 ビ ッ ト 


0 : 廊 字 コ ー ド ・ バ パッ ファ を 書き 替え る 
1 : 文字 コー ド ・ バ ッ フ ァ を 書き 替え な い 


グラ フィ イッ ク コマ ンド 


ファ ンク ショ ン ・ コ ー ド 

ファ ンク ショ ン ・ コ ー ド を 用 いて , 描画 時 の ファ ンク ショ ン 
を 指定 する こと が で きま す . ファ ンク ショ ン ・ コ ー ド の 一 覧 表 
を 以下 に 示し ます . 























0 PSET 指定 され た カラ ー コ ー ド て 描画 
1 PRESET | 背景 色 の カラ ー コ ー ド で 描画 
指定 され た カラ ー コ ー ド と 画面 の カラ ー コ ー ド と 
2 OR : を OR (論理 和 ) 演算 し た 結果 の カラ ー コ ー ド で 
描画 
指定 され た カラ ー コ ー ド と 画面 の カラ ー コ ー ド と 
3 AND を AND (論理 積 ) 演算 し た 結果 の カラ ー コ ー ド で 
描画 
指定 され た カラ ー コ ー ド と 画面 の カラ ー コ ー ド と 
4 XOR を XOR (排他 的 論理 和 ) 演算 し た 結果 の カラ ー コ 
ー ド て 描画 
表示 パタ ー ン を 反転 し て か ら , 指定 し た カラ ー コ 
5 NOT ー ド て 描画 

















Y | Y 座 標 0 24( コ ン ソ ー ル 座標 ) 





| 4 X | X 座 禁 








CA4AC7E //ME 


対角線 座標 (Xi, Yi) , (Xz, Ys ヵ ) に よっ て 示さ れる 枠 内 ヘア ト 
リ ビ ュ ー ト 付き の 廊 字 を 表示 し ます . 
コマ ンド & パラ メー タ 





/// だ 


座標 点 (Xi, Yi) , (Xz, Ys) を 結ぶ 直線 また は , (Xi, Yi), (X?, 





Ys) を 対角線 と する 中 角形 を 描き ます . また 四角 形 の 内 部 を 塗 
りつ ぶす こと も で きま す . 
コマ ンド & パ ラメ ー タ 






















































































相対 値 | 記 号 | 内 
0,1 5 Don't Care ー Don't Care 
2 C コマ ンド ・ コ ー ド 20 2 C | コマ ンド ・ コ ー ド | $15 
3 AT アト リピ ュー ト アト リ ビ ピュー ト 3 | CL | カラ ー コ ー ド 0-7 
4 CHR | 文字 コー ド 文字 コー ド 0 : PSET 1:PRESET 
5 Don't Care 4 F ファ ンク ショ ン ・ 2 : OR 3: AND 
6 X。 X 座 標 0 -79( コ ン ソ ー ル 座標 コー 4 : XOR 
| 8 0 5.6 | X, | X. 座 標 0-639 
Y」 | Y, 座 擦 ポー 7.8 | Y。| Y, 放 標 0-399 
ー 時 9.10| x。 | x。 座 標 0 一 639 
8 X: 座 標 9 79( コ ン ソー ル 上 店 ) 1 12| Y。|Y。 上 0 
on't Care 
12 Y。 | Y。 座 本 0 -24( コ ン ソ ー ル 座標 ) 0: 直 線 1 : 四 衣 形 
13 B 制御 フラ グ 下位 4 ビッ ト デ ー タ 13 B | 形状 フラ グ 2 : 四 角形 塗り 3 : ス タイ ル 付 直線 
4 : ス タイ ル 付 四角 形 
14.15|STYLE| ライ ン ・ ス タイ ル | 16 ビッ ト ・ パ ター ン 





NN 
図形 形式 ビット 


アト リピ ビュ ー ト 副 き 替え 
指定 ビ ピット 

文字 コー ド 書 き 奉 え 
指定 ビッ ト 























C/A4/M 
指定 され た 座標 点 (Xr,Y) を 直線 で 結び ます 座標 点 は 30 個 
まで 指定 で きま す . 











相対 値 | 記号 | 











0.1 学 Don't Care 
2 C コマ ンド ・ コ ー ド 16 
3 CL カラ ー コ ー ド 07 
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| 0 : 己 SS 選 T 1: 選民 ES 
4 F ファ ンク ショ ン ・ コ ー ド | 2:AND 3:OR 
| 4 :XOR 
5 N 座標 点数 | 2 -30 
s+4n | Xn | 座標 (1=n=(N) | 0 639 
3 Y。 座 標 (1 ミ n ミ (N)) 0 -399 

















PO/M7 


指定 され た n 個 の 座標 点 に 点 を 表示 し ます . 点 の 数 は 最大 20 


























個 ま で 指定 で きま す . 
コマ ンド & パラ メー タ 
相対 値 | 記号 | 内 容 | 値 
0.1 Don't Care 
2 C コマ ンド ・ コ ー ド 17 
3 N | 表示 点 座標 数 1 20 
Cmー リ | X%。 | 色 上 標 (1sns20) 0 -899 
nmー1 | Y。| Y 標 (1sn20) 0- 7 
8 填 6・(nー1) | CL。 | カラ ー コ ー ド 0 多 
0 :PSET 1:PRESET 
9+6・(nー1) | F, | ファ ンク ショ ン ・ コ ー ド 2:AND 3:OR 
4 :XOR 

















PA4/M7 





初期 座標 点 の 位置 より , 指定 され た 境界 色 に 囲ま れ た 部 分 を , 
指定 色 ま た は タイ ルス トリ ング ・ パ ター ン に て 塗り つぶ し ます 
(タイ ル ・ ペ イン ト ). 











アン グル ・ コ ー ド (Angle Code) に よっ て 示さ れる 0 一 3 の 
値 に よっ て 文字 の 表示 アン グル お よび 表示 位置 は SYMBOL 女 
の よう に 定義 され ます . 


CAMGE CO/O 


対角線 座標 (Xi, Yi) 、 (Xs, Ys) で 示さ れる 枠 内 の , 指定 され 
た 色 ( カ ラー コー ド ) の ドッ ト 色 (カラ ー コ ー ド ) を 変え ます . 
コマ ンド & パラ メー タ 






































相対 値 | 記号 | 内 3 | 値 
0.2 = コ Don't Care 
2 C コマ ンド コー ド $1A 
3.4 | X』 | XX 具 標 g 0 -639 
5.6 Y、 | 、Y 座 標 0 -399 
7.8 X。 X。 座 禁 0 -639 
9.10 Y。 Y。 座 標 0 -399 
11 N 変更 カラ ー コ ー ド 数 1 一 8 
10+2n | CLn 旧 ( 変 更 前 ) カ ラー コー ド 0-7 
11+2n | cn 新 (変更 後 ) カ ラー コー ド 0-7 








GE7 LOCX 7 


対角線 座標 (Xi, Yi) 、 (Xz, Y>) で 示さ れる 枠 内 の 中 の ドッ ト 
の うち , 指定 され た 色 ( カ ラー コー ド ) の ドッ ト を 1, その 他 の 
色 ( カ ラー コー ド ) の ドッ ト を 0 と し て 画面 の ドッ ト 情 報 を 読み 
込み ます . 












































コマ ンド & パラ メー タ 相対 値 | 記号 | 内 3 | 中 
| 0.1 且 は の Don't Care 
0.1 Don't Care | 2 C コマ ンド ・ コ ー ド $1B 
2 C | コマ ンド F・ コ ー ド $18 8 の や ト 2 X。 座 標 0 639 
3.4 | X | X 座 禁 | 0-689 ーー | 5.6 Yi Y, 座 禁 0 -399 
5.6 | Y | Y 座 標 0 -399 7.8 X。 X。 座 標 デー 0 -639 
2 有 。| 0 7 (カラ ー コ ー ド E 
MCN クイ ルス トリ ング ドー の 本 
9 TNG: に 半 志 の 選 選 ロ ー の 贅 | に 0 iTn | cLn カラ ー コ ー ド 0-7 





9 一 16 | Bcn | 境界 色 カ ラー コー ド 0 - 7 (カラ ー コ ー ド ) 
17 | Tc | タイ ル ・ ス トリ ング 組 数 | 1-36 


15 十 3<n 
16 十 3・n | TSn | タイ ル ・ ス トリ ング 
17 十 3*n 


SYO/ 
女 字 列 を 指定 座標 より 指定 し た 角度 , 大 き さ で 表示 し ます . 表 
示す る と き に 文字 を 構成 する ドッ ト 以 外 は 変化 し ませ ん . 
コマ ンド & パラ メー タ 











24 ビ ッ ト ・ バ ターン 

































































boil 邊 較 bc:| 内 実生 還 当 | 値 
0,1 = Don't Care 
2 C コマ ンド ・ コ ー ド $19 
3 | CL | カラ ー コ ー ド 0E7 
| 0 :PSET 1:PRESET 
4 F | ファ ンク ショ ン ・ コ ー ド | 2:AND 3:OR 
4:XOR 5:NOT 
5 A | アン グル 選択 本 文 参 照 
6 W | 交 字 幅 倍率 〔W)=1 で 8 ドッ ト 表 示 
7 H 交 字 高 倍率 〔H〕 = 1 で 8 また は 16 ド ッ ト 表 示 
8.9 X X 座 標 0 一 639 
10.11 | Y | Y 座 標 | 0 399 
12 N | 交 字 数 | 1-80 
13 一 92 | String| 文字 列 文字 列 
7 6 5 4 3 2 1 0 
プン ノ ノノ ノノ 1 ノン ノノ ウジ ク ノン ノノ 
FNT クト ング | ンク | クン クン | ANGLE 
上 MC Code 
Font Select 
0:8*8 
1:8*16 
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〔E)〕) キ 0 の と き に エラ ー あ り 





〔CN)=1 の と き に デー タ が 継続 








2 CN | 維 続 フラ ラグ ビッ ト (MSB)| て 。 こと を 示す .。 
3 | *00 
3 BB | 今回 転送 バイ ト 数 1-124 











4 一 127 | Patten | ドッ ト ・ パ ター ン ・ デ ー タ | ドッ ト ・ パ ター ン 





PU/7 /OCX 7 
対角線 座標 (Xi, Yi) , (Xs, Ys) で 示さ れる 枠 内 に , 指定 され 
た 人 色 ( カ ラー コー ド ) で , ドッ ト ・ パ ター ン を 表示 し ます . 
コマ ンド & パラ メー タ 















































Don't Care 
1 | CN | 継続 フラ グ ・ ビ ピット (MSB) | 51C 
| 5 CN〕) =1 の と き に , デー タ が 
2 コー の 
3.4 | X」 | XX 座標 0 -639 
5.6 | Y」 |Y 座 標 0 399 
7.8 | X。 |X. 座 標 | 0 639 
9.10 | Y。 | Y: 座 標 0 -399 
11 | CL | カラ ー コ ー ド 0-7 
0 :PSET 1:PRESET 
12 F ファ ンク ショ ン ・ コ ー ド 2 :AND 3 :OR 
4 :XOR 5 :NOT 
13 | BB | 今回 転送 バイ ト 数 1 114 
14127| Pattern| ドッ ト ・ パ ター ン ・ デ ー タ ドッ ト ・ パ ター ン 








GE7 LOCX 2 


対角線 座標 (Xi, Yi) , (Xz, Ys) で 示さ れる 枠 内 より , BANK 





0, BANK 1. BANK 2 の 画面 デー タ を 読み 取り ます . 
コマ ンド & パラメータ 





























y 9 Don't Care 
2 c コマ ンド ・ コ ー ド 王 朗 玉 
3.4 光 X」 座 標 | 0 639 
5.6 | Y, 座 禁 | 0 -399 
7.8 X。 | X。 座 標 | 0-639 
9.10 Y。 Y。 座 標 0 399 
復帰 情報 
9 | に | 容 | 値 
2 as 〔E]} キ 0 の と き エ ラー あり 





| (CN) 1 の と き に , デー タ が 継 


1 CN | 継続 フラ グ ・ ビ ッ ト (MSB) 続 す る こと を 示す 





























2 $00 還 
3 B | 今回 転送 パイ ト 数 1 一 124 
4 一 127 | Paltem| ドッ ト ・ パ ター ン ・ デ ー タ | ドッ ト ・ パ ター ン 
エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 


PU7 p/ OCX 2 
対角線 座標 (Xi, Yi) , (Xs, Ys) で 示さ れる 枠 内 の それ ぞ れ の 
バン ク に , ドッ ト ・ パ ター ン を 表示 し ます . 
コマ ンド & パ ラメ ー タ 






































相対 値 | 記号 | 内 
0 Don't Care 
1 CN | 続 フラ グ ・ ビ ピッ ト (MSB) AA と を 示す ー タ が 継続 
2 C | コマ ンド コー ド sIE es 
3.4 | 名 | 座標 | 0-699 
5.6 Y」 | Y, 座 標 | 399 
7.8 | X。 | 座標 _ |0-699 
9.10 | Y。 | Y 座 標 0 -399 
11 < - | Dont Care age 
4 5 0 :PSET 2 :AND_ 
12 F ファ ンク ショ ン ・ コ ー ド | 3:OR 4 :XOR 
| 5 :NOT 
13 日 | 今回 転送 バイ ト 数 11-114 
14-127 | Pattem | ドッ ト ・ パ ター ン ・ デ ー タ | ドッ ト ・ バ ターン 




















GAP7/C CUSOp 


オペ レー タ が グラ フィ ッ ク ・ カ ー ソ ル (+ 印 ) を 制御 し て 指定 
し た , 画面 上 の 座標 値 を 読み 取り ます . 
コマ ンド & パ ラメ ー タ 






































相対 値 | 記号 | 
1 _Dont Care 

ヨ マ ン ドコ ヨー ド IF 

し OK 4 9 四 0 

要求 座標 数 1 -10 

X 座 標 0 一 639 

Y 座 標 0 -399 

復帰 情報 
1 エラ ー コ ー ド 〔E〕 キ 0 の と き エ ラー あり 
1.2 e 光 不定 , $00 

8+4(nーD) | 
444(nD | の Xn 座標 0 -639 昌 
5+4・(nー1) 
st4nD | Yn 座 禁 0 -399 




















エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 


SE/ と EC7 4AC77UE VA ル 7 

グラ フィ ッ ク ・ コ マン ド の 処理 の 対象 と な る VRAM を 指定 
し ます . この コマ ンド に て 処理 の 対象 に 指定 され て いな い VR 
AM の ペー ジ お よび バン ク は , グラ フィ ッ ク ・ コ マン ド の カラ 
ー コ ー ド , ファ ンク ショ ン ・ コ ー ド に か か わら ず 読 み 書き され 
ませ ん . 





&0 


コマ ンド & パ ラメ ー タ 





. ー | Don't Care 
2 | コマ ンド ・ コ ー ド | $21 
| 3 | SF | 選択 フラ グ | 














選択 フラ グ (SF) は 、 ア クティ ブ VRAM を 指定 する た め の フ 
ラグ 群 で あり , 8 ビッ ト の うち の 下位 5 ビッ ト が 有効 で す , 以 
トド に その ビッ ト 構 成 を 示し ます . 


7 6 靖 生 5 4 
多久 区 
ググ ク ク ク ク プン ノノ FAGE BI 


| 
| 
| 
| BANK 0 
| 


























1 : Active 
BANK 1 1 : Active 
BANK 2 1 : Active 
PAGE 0 < 一 > PAGE 3 








SE と EC7 //SP/AY VA ル 7 
画面 に 表示 され る VRAM を 指定 し ます . 
コマ ンド & パラ メー タ 

相対 値 | 記号 | 










Dont Care 


$22 


コマ ンド ・ コ ー ド 
選択 フラ グ | 












ディ スプ レイ VRAM OR 
フラ MM 以 ME そ の ビ ・ ッ ト 構成 を を 示し ます . 











BANK 0 1:Active 
BANK 1 1 : Active 
BANK 2 1:Active 
PAGE 0 < 一 > PAGE 3 
0:200 Line 

1: 400 Line 

















GE 7 g/OCX 3 


対角線 座標 (Xi, Yi) , (Xs, Ys) で 示さ れる 枠 内 の 指定 され た 
色 ( カ ラー コー ド ) の ドッ ト と , コン ソー ル 画 面 の 指定 され た 色 
(カラ ー コ ー ド ) の 文字 を 構成 する ドッ ト の 両方 を 同時 に 読み 取 
り ま す . 


















































コマ ンド & パラメータ 

相対 値 | 記号 容 

0.1 | Don't Care 

2 C | コマ ンド ・ コ ー ル $23 
3.4 | X% | 釣 座標 還 計 0 -639 
5.6 Y」 | Y」 座 禁 0 -899 
7.8 X。 | X。 座 標 0 -639 
9.10 Y。 | Y。 座 標 0 -399 
_11 | N | グラ フィ ッ ク ・ カ ラー コー ド 数 1-8 
12 一 19 CLn グラ フィ ッ ク ・ カラ ー コー に 0 王 7 
20 | NL | テキ スト ・ カ ラー コー ド 数 1-8 
21-28 | CTm | テキ スト ・ カ ラー コー ド 0- 7 

復帰 情報 




















( 証 層 8 コー ド (E) キ 0 の と き エ ラー あり 
| 0 (CN) =1 の と き に デー タ が 継続 
1 CN | 継続 フラ グ ・ ビ ッ ト (MSB) する こと を 示す 
2 | s00 
3 B | 今回 転送 バイ ト 数 1 -124 
4 | Pattem| ドッ ト ・ パ ター ン ・ デ ー タ ドッ ト ・ パ ター ン 














エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 
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&O 


万 AD //SP/AY S747OS 


グラ フィ ッ ク VRAM の 動作 状 遂 を 読み 取り ます . 


コマ ンド & パラ メー タ 


相対 値 | 記号 | 


Don't Care 


















エラ ー コ ー ド (E)+ 0 の と き エラ ー あ り 











] 還 3 

3 - sWO0O 区 マテ 
j : 攻 字 【 

3 HD ハー ドウ ェ ア 状 況 Bit5=1 漢字 ROM あ り 


Bit6 王 1 400 ラ イン CRT 















































4 ACT | アク ティ プ ・ ペ ー ジ | 本文 参照 
5 | DIS | ディ スプ レイ ・ ペ ー ジ | 本 訪 参 照 。 
6 9 で 破 
_ 7 | BC | 背景 色 カ ラー コー ド | 0-7 
_8.9 | PAGE 0 | スタ ー ト ・ ア ドレ ス $00-$8000 
10.11 | PAGE 1 | スタ ー ト ・ ア ドレ ス $00-$8000 ー 
12.13 | PAGE 2 | スタ ー ト ・ ア ドレ ス $00-$8000 
14.15 | PAGE 3 | スタ ー ト ・ ア ドレ ス $00$8000 





エラ ー 内 容 に つい て は エラ ー コ ー ド 表 を 参照 . 

ハー ドウ ェ ア 状 況 (HD) は 、 ハード ウェ ア の 接続 状況 を 示す 
も の で , 漢字 ROM の 有無 。CRT デ ィ ス プレ イ の ライ ン 数 を 示 
し ます . 








現在 アク ティ ブ VRAM に 設定 され て いる ペー ジ の スタ ー ト ・ 
アド レス を 設定 し ます . 
コマ ンド & パラメータ 








Don't Care 
2 C | コマ ンド ・ コ ー ド S26 
0 : スタ ー ト ・ ア ドレ ス の 設定 
1 : スタ ー ト ・ ア ドレ ス の 増減 








3 SF | 設定 条件 











ADDR | スタ ー ト ・ ア ドレ ス ・ デ ー タ 


KAAJ/ SYO/ 


漢字 を 指定 座標 より , 指し た 角度 , 大 きき (倍率 ) で 表示 し ま 


16 ピ ッ ト ・ デ ー タ 


























7 6 5 4 3 2 1 0 

の の ノノ 1 ノノ ノン ノン ノン ノン ノン | ノン ノン 

アイ ノノ K ノノ ノノ ノノ | ノン ノン ノン | フン ノン 

イノ ノ ノン ノン ン ン レン クン ン ン フン ノ | 
| 


KANJI ROM 
DISPLAY 











アク ティ プ ・ ペ ー ジ (ACT) は , 現在 アク ティ ブ VRAM に 設定 
され て いる VRAM を 示し ます . 


(IE BANK 0 1:Active 
BANK 1 1: Active 
BANK 2 1 


: Active 
PAGE 0< 一 > PAGE 3 


ディ スフレ イペ ベー ジ (DIS) は , 現在 ディ スフレ イ VRAM に 設 
定 さ れ て いる VRAM を 示し ます . 


ノノ ノ L ノノ ノ 問 
ノン ノノ ン ノ ノ 
ノノ ノ ノノ ノ AGE 


Em) 二 
BANK 0 1:Active 
ass は AIN KS 1 : Active 
BANK 2 | 


Active 
PAGE 0 < 一 > PAGE 3 
LINE 


と 末 ASE GAP/7/C VA 
グラ フィ ッ ク VRAM の すべ て の ドッ ト を 景 色 カ ラー コー 
ド に 設定 し ます . 





























コマ ンド & パ ラメ ー タ 







Don't Care 









コマ ンド ヨード 
背景 色 カ ラー コー ド 














SE7 GAP7/C S74Z7 ADDpESS 
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す . 漢字 を 表示 する と き に は , 文字 を 構成 する ドッ ト 以 外 は 変 
化し ませ ん . 
コマ ンド & パ ラメ ー タ 
相対 値 | 記 号 内 容 。 | 由 
0.1 ma Don't Care テ 
- | -6 コマ ンド ・ コ ー ド $27 
3 _CL | カラ ー コ ー ド OS 
0 :PSET 1 :PRESET 
4 だ ファ ンク ショ ン ・ コ ー ド 2 : AND 3 : OR 
4 :XOR 5:NOT 
0 : 通常 (ノー マル ) 
に 5 1 : 90 左 回 転 
5 A アン グル ・ コ ー ド 2 : 180 諾 回 転 
3 : 270' 左 回 転 
6 W | 婦 字 横幅 谷 率 1 の と き 16 ド ッ ト 表示 
7 | H | 文字 高 倍率 _ | 1 の と き 16 ド ッ ト 表 示 
_8.9 | X | X 座 標 0 ~639 
10.11 | Y | Y 座 標 0 -399 
_ 12 | N | 漠 字 字数 140 = 
1 人 mn COpEn | 湊 字 文字 コー ド JIS コ ー ド 
12+2・n 




















万 AD FOM7 


泊 字 また は ASCI コ ー ド で 示さ れる コン ソー ル 表示 文字 の 文 
字 フ ォ ン ト を 読み 取り ます . 
コマ ンド & パラ メー タ 








Dont Care 


28 











・ コ マン ド ・ コ ー ド 





$00 : キャ ラク タ (8X8) 
3 | SF| 選択 フラ グ $01 : キャ ラク タ (8※16) 
| $FF : 漢字 (16 X16) 











4.5 | CD 漢字 JIS コ ー ド また は ASCII コ ー ド 8 また は 16 ビ ッ ト ・ コ ー ド ・ デ ー タ 





選択 フラ グ (SF) は , 読み 取る フォ ント の 選択 を し ます . SF 
の 値 が 500 の と き に は 8X8 ド ッ ト の コン ソー ル 表 示 文 字 の フ 
ォ ン ト を , $01 の と き に は 8 ※X16 ド ッ ト の コン ソー ル 表 示 文 字 
の フォ ント を , $FF の と き に は 漢字 の フォ ント を 読み 取り ます 

漢字 JIS コー ド ま た は ASCII コ ー ド (CD) は , 漢字 お よび コン 
ソー ル 表 示 文 字 の コー ド で す . 漢字 の 場合 に は , 16 ビ ッ ト の JI 
S コ ー ド が , コン ソー ル 表 示 文 字 の 場合 に ば は, 8 ビッ ト の ASCII 
コー ド が 用 いら れ ま す . ASCII コ ー ド の 場合 に は , CD の 上 上 位 8 
ビッ ト ( 相 対 値 4 の バイ ト ) に 設定 し ます . 

復帰 情報 


(E〕 キ 0 の と き エ ラー あり 





不 定 
褒 | $00 
1 | ー- 還 sc 
3 一 34 | Pattern | フォ ント ・ デ ー タ | ドッ ト ・ バ ターン 




















エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 


COPY GAP/C VA 
グラ フィ ッ ク VRAM の , 指定 し た 部 分 の 内 容 を , 別 の 部 分 に 
複写 し ます . 


コマ ンド & パラメータ 



































0,1 ー Don't Care 
2 C コマ ンド ・ コ ー ド 33 
3 SC ソー ス ・ ペ ベー ジ 
4.5 SCADR ソー ス ・ ア ドレ ス $0000 一 $3FFF 
6.7 BYTES 1 行 の バイ ト 数 1 一 80 
8.9 LINES 複写 行 数 1 一 200 
10 DS ディ ステ ィ ネ ーション ・ ペ ー ジ 
11,12 DSADR デス ティ ネー ショ ン ・ ア ドレ ス 0000 一 $3FFF 








ソー ス ・ ペ ー ジ (SC) は , 複写 元 と な る VRAM の ペー ジ お 
よび バン ク を 指定 し ます . 同様 に . ディ スト ネー ショ ン ・ ペ ー 
ジ (DS) は , 複写 先 の VRAM の ペー ジ お よび バン ク を 指定 し 
ます . 





(MMUUMUCUNM シ 1 


0 
ンク | ント ン ン ン 
2 クト レク グ FAGE BEE 
r TE RE 
BANK 0 


BANK 1 
BANK 2 
PAGE 




















AAJ/ OU7 


コン ソー ル 画 面 の 現在 の カー ソル 位置 に 漢字 を 表示 し ます . 
コマ ンド & パラメータ 











相対 値 | 記号 | 
0,.1 Don't Care 
2 C コマ ンド ・ コ ー ド $34 
3,4 CODE 漢字 文字 コー ド JIS コ ー ド 














の / と //ME と EX7 と 万 MA/ 
FOM7 OF KAAJ/ 


漢字 の 外字 フォ ント (JIS コ ー ド に 定義 きれ て いな い 文 字 の 
フォ ント ) を 定義 し ます . 

















コマ ンド & パ ラメ ー タ 
き | 
0,.1 = | Don't Care 
2 【(@ コシ ンド Ka コッ ー ド 35 
_ 3.4 CODE 外字 コー ド 外字 コー ド 
5 一 36 FONT 文字 フォ ント ドッ ト > パタ ー シ 











外字 コー ド (CODE) は , 登録 する 文字 の コー ド で あり , JIS コ 
ー ド に 定め て ある 85 区 一 94 区 まで の 940 文字 分 の コー ド を 使用 
じ ま 字 : 


//ME 2 


LINE と 同じ 様 に , 対 角 点 (Xi。 YY) , (Xs や ) を 結ぶ 直線 
また は , (Xi。 必 ) , (Xs。 Y や ) を 対角線 と する 四角 形 を 描き ま 
す が , LINE 2 は , LINE と は 直線 補間 の アル ゴリ ズム が 異な 
リ り , 直線 を 引く と き に 少し で も その 線 に か か る 点 す べ て を 表示 
し じ ま が : 


コマ ンド & パ ラメ ー タ 




















0,1 Don't Care 

2 C | コマ ンド ・ コ ー ド $36 

3 CL | カラ ー コ ー ド 0-7 

4 F | ファ ンク ショ ン ・ コ ー ド 0 : PSET 1 : PRESET | 





&O 





























4 | F | ファ ンク ショ ン ・ コ ー ド | 2:AND 3:OR 
4 : XOR 
5.6 | X」| X 座 標 0 639 
7.8 | Y」| Y, 導 標 0 -399 
9.10 | X。 | X 座 標 0 -639 
11.12 | Y。 | Y. 卒 標 0 -399 
0 : 直 線 
13 | B | ボッ クス ・ フ ラグ 1 : 四角 形 
2 : 四角 形 ぬ ぬり 





キー ボー ドコ マン ド 詳 細 


/WKEY 7 
キー コー ド ・ バ ッ フ ァ よ り 8 ビッ ト ・ キ ー コ ー ド を 読み 込み 
ます . 
コマ ンド & パラ メー タ 





コマ ンド ・ コ ー ド $29 
制御 フラ グ 0-5 
キー コー ド ・ バ ッ フ ァ よ り 8 ビッ ト の キー コー ド を 読み 取り 
ます . キー コー ド 読 み 取 り の と き に , エディ ッ ト ・ キ ー の コー 
ド 変換 お よび PF キー 生成 文字 列 へ の 交換 が 行なわ れ ま す . 
制御 フラ グ (CF) の 値 に よっ て , 次 の 動作 が 行なわ れ ま す . 
0 : キー コー ド ・ バ ッ フ ァ か ら キ ー コ ー ド を 読み 込み ます 
1 : キー コー ド ・ バ ッ フ ァ か ら キ ー コ ー ド を 読み 込み ます . 
キー コー ド ・ バ ッ フ ァ が 空 の 場合 に キー 入力 を 待ち ます . 
2 : キー コー ド ・ バ ッ フ ァ を 空 に し ます . 
3 : キー コー ド ・ バ ッ フ ァ を 空 に し た 後に , キー 入力 を 待 
ち ま す . (以上 形式 1 ) 
4 : 現在 の キー コー ド ・ バ ッ フ ァ の INKEY 1 で 読み 込め 
る キー コー ド の 数 を 求め ます (形式 2 ). 
5 : 現在 の キー コー ド ・ バ ッ フ ァ の INKEY 2 で 読み 込め 
る キー コー ド の 数 を 求め ます (形式 2 ). 
復帰 情報 

















く 形 式 1 > 





形式 値 | 記号 | 























0 E エラ ー コ ー ド 〔E) キ 0 の と き エ ラー あり 

1 不 定 

2 | - $00 | 
3 | K | キー コー ド (8 ビ ピッ ト ) | キー コー ド | 
4 EN キー コー ド の 有無 0 : な し 1: あり 


エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 











ぐ 形 式 2 > 
〔E) キ 0 の と き エ ラー あり 
1 - 不定 
2 ー $00 
3.4 FUN キー コー ド 数 キー コー ド の 数 




















エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 
の と //AE /F S7 万 /MG 


プロ グラ マブ ル ・ フ ァ ン クシ ョ ン (PF) キー に , PF キー 生成 




















文字 列 用 の 文字 列 を 定義 し ます . 
コマ ンド & パラメータ 

相対 値 | 記号 | 内 容 | 山 

0.1 デ Don't Care 

2 C コマ ンド ャ コー ド 2A 

3 NO PF キー 番号 1 10 

4 N 文字 数 0-15 
5-19 | String 文字 列 文字 列 
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&O 


GE7 PF S7 万 /MG 
プロ グラ マブ ル ・ フ ァ ン クシ ョ ン (PF) キー に 定義 され て v 
る , PF キー 生成 娘 字 列 を 読み 取り ます . 
コマ ンド & パラメータ 



































相対 値 | 記号 | 内 容 | 値 
0,1 Don't Care 
2 | e コマ ンド ・ コ ー ド $2B | 
3 | No PF キー 番号 1-10 
復帰 情報 
(E) +0 の と き エ ラー あり 
1 不 定 E 
2 $00 
3 NO PF キー 番号 | 1-10 
4 N | 婦 字 数 。 | 0-05 
5-19 | String 文字 列 文字 列 

















エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照. 


S と 7 /F /V7E 万 UP77OM 

PF キー 割り 込み 機能 を 用 いる PF キー を 設定 し ます . 
コマ ンド & パラ メー タ 

相対 値 | 記号 | 










Dont Care 
コマ ンド ・ コ ー ド $2C 
割り 込み 制御 フラ グ | 10 ビ ピット ・ デ ー タ | 














/MKEY 2 


キー コー ド ・ バ ッ フ ァ よ り 9 ビット ・ キ ー コ ー ド を 読み 込み 


コマ ンド & パラ メー タ 
内 










Don't Care 
2D 





・ コ ー ド 


復帰 情報 


コマ ンド 











(EJ)+0 の と き エ ラ 
不 定 

s00 

キー コー ド 9 ピット ・ キ ー コ ー ド 


AOC47E KEY OOA 万 り 

キー ボー ド が , Display Sub System に 配置 され て いる か , メ 
イン CPU 側 に 配置 きれ て いる か を Display Sub System に 通知 
た 赤 。 


ー あ り 











_ 3.4 |kEYcopE | 

















コマ ンド & パラ メー タ 
相対 値 | 記号 | 








2 放 コマ ンド ・ コ ー ド | $2E 


| 
| Don't Care 
] 





[ALF〕=0 Display Sub System 
〔ALF] キ 0 メイ ン CPU 


タイ ヤマ 機能 解 説 


SE7 7/ ル 7E 万 


タイ マ の 人 各 レ 


3 ALF | アロ ケー ショ ン ・ フ ラグ 














レジ スタ に 値 を 設定 し 
コマ ンド & パラ 


Don't Care 
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2 | C | コマ ンド ・ コ ー ド | ssp 

3 RS | レジ スタ 選択 フラ グ 

4 | TC | 制御 レジ スタ 制御 レジ スタ の 設定 値 
5 一 8 | Tl | 時 計 レ ジス タ | 時 計 レ ジス タ の 設定 値 





9 一 12 | Tl-| | 割り 込み 予約 時 刻 レ ジス タ | 割り 込み 予約 時 刻 レ ジス タ の 設定 値 
13 一 16| T2 | イン ター バル ・ カ ウン タ | イン ター バル ・ カ ウン タ の 設定 値 
17 一 20| T2-D | 再 設定 値 レ ジス タ 再 設定 値 レ ジス タ の 設定 値 


万 EAA 77 ル 7 た 戸 
タイ マ の 各 レ ジス タ の 値 を 読み 取り ます 
復帰 情報 





























EE 














0 E | エラ ー コ ー ド 〔E〕) キ 0 の と き エ ラー あり 
2 ー $00 
11.3 | - 不 定 
| 4 | TC | 制御 レジ スタ 制御 レジ スタ の 内 容 
5 一 8 | T1 | 時 計 レ ジス タ 時 計 レ ジス タ の 内 容 





9 一 12 | TI-I | 割り 込み 予約 時 刻 レ ジス タ | 割り 込み 予約 時 刻 レジ スタ の 内 容 
13 一 16| T2 | イン ター バル ・ カ ウン タ イン タバ ル ・ カ ウン タ の 内 容 
17 一 20| T2-D| 再 設定 値 レ ジス タ 再 設定 値 レ ジス タ の 内 容 


エラ ー 内 容 に つい て は , エラ ー コ ー ド 表 を 参照 . 


の //SP/AY CLOCK 
時 計 レ ジス タ の 内 容 を hh : mm : ss の 形 で コン ソー ル 画 面 上 
に 表示 し ます . 























コマ ンド & パラ メー タ 






相対 値 | 記号 | 内 

Don't Care 
コマ ンド ・ コ ー ド 40 軸 
〔【F〕=0 の と き に 非 表 示 


























表示 フラ グ 〔F) キ 0 の と き に 表示 
表示 カラ ー コ ー ド 0-7 Eo 
X 座 標 0 一 79( コ ン ソ ー ル 座標 ) 
Y 座 標 0 一 24( コ ン ソ ー ル 座標 ) 





CONTINUE 
(継続 コマ ンド ) 
//sp/gy Su の sys7e777 出力 の 場合 


転送 する デー タ の バイ ト 数 が 多く , 1 回 の 転送 で すべ て の デ 
ー タ を 転送 で き な い 場合 な ど に , 残り の デー タ を 継続 し て 転送 

















する の に 用 いま す . 
コマ ンド & パラメータ 
相対 値 | 記号 内 容 | 由 
0 計 Don't Care 
an (CN〕=1 の と き に デー タ が 継 
1 | CN | 継続 フラ グ ・ ビ ッ ト (MSB) 続 する こと を 示す . 
2 | C | コマ ンド ・ コ ー ド $64 
3 | B | 今回 転送 バイ ト 数 1-124 
4 一 127 | DATA | 転送 デー タ デー タ 
























































コン ソー ル 座 標 値 の 誤り 
$3E 作業 領域 の 不足 
$3F グラ フィ ッ ク 座 標 値 の 誤り 
$40 ファ ンク ショ ン ・ コ ー ド の 誤り 
41 座標 値 の 誤り 
42 文字 数 の 誤り 
43 色 数 の 誤り 
44 PF キー の 番号 の 誤り 
$45 コマ ンド ・ バ パラ メー タ の 誤り 
コマ ンド ・ コ ー ド の 誤り 
0 キー ボー ド が メイ ン CPU に 配置 され て いる 








ニー テー テー テー ニテ ーー ニーーーーーーー ニ ーー ニー ニーーー ニ ーーーーーーーー ニ ーー ニー ニー ニー デー 


メモ リ ・ マ ッ プ と メモ リ 管 理 方 式 


ニテ ーー テーー テ ーー ニーー ニ ーーーーー ニ ーーーー ニ ーー ニー ニー ニー ニー ニーーー ニ ーー ニー ニー デニー ニー デー 


びぃ 下記 


メモ リ 空 間 


$00000 


RAM 領 域 
(128K バ イト ) 


$1FFFF 


$FFFFF 


メモ リ ・ マ ッ プ 


図 1 


表 1 


イン ・ プ ブロ ッ ク は 128K バ イト の メイ ン ・ メ モリ ,。 
- 部 お よび 拡張 スロ ッ ト か ら 成 り . 


、 


プ CPU を 含 


・ 


メイ ン ・ ボ ー ド は メイ ン ・ プ ロッ ク と サブ プ プ ロッ ク か ら な り , メ 


イス の - 


$0000 


$FC80 
$FFFF 


メイ ン ・ ブ ロッ ク 


[/O0 イ ンタ アー プ 
サ プ プ ロッ ク は サ 


む デ ィ ス プレ イ ・ サ プシ ステ ム を 構成 し ます . 


メイ ン ・ プ ロッ ク メモ リ ・ マ ッ プ 


/O マ ッ プ 


共有 メモ リ 
(128 バ イト ) 






























































オー ディ オカ セッ ト LP 12 リモ ー ト カセ ッ ト 
sFp00 | 03 デー タ を 送る の 
ライ ンプ リン タ SLCTIN 0 : OFF ライ ト ・ 
た め の ス トロ 未 使用 あ き 未 使用 > 
コン トロ ー ル ・ レ ジ 0: セ レク ト 1 : ON の m グ 
ー プ ・ バ ルス 
スタ 1 : 非 セ レク ト 
穫 
キー ポー ド ・ デ ー タ D Ds Ds D。 Ds D> Di Do 
FD01 
イン リン レ 代 co 
ー タ D, Ds Ds D。 Ds D。 D, Do 
B 
オニ ディ オカ セッ ト 。 カセット 人 PE *KACkiRQ | 上 PERROR |Lp gusy 
5 1 : セレ クト | dipsw 1 : ERROR 
ライ ンプ リン タ リー ド ・ 5 6 未 使用 0 : 紙 あり | 0 : ぁ り 8 0 : ready 
yi ーー クタ | 0 : 非 セレ ク | 1 :Busy2 84 Eo 0 : Not 二 和 0 
詳 四 - ト 0 : Busy Ed 7 ERROR | 7 
Ro08 拡張 メモ リ RS-232C 
中 > 一 割り 込み に LPACK 
) 込 み 許可 2 バリ ティ 失 ee SYNDET RxRDY あみ 半 
(リセ ッ ト 時 0 ) ネジ 95 寺 上 1: 許可 1: 時 可 0 1 才 Ma 1: 許可 
1 : 許可 _- K 1 : 許可 1 : 許可 5 症 Y 
RS・232C キー ボー ド | 拡張 IRQ 09DMA 5"FD LPACK PTM 
0 : 割 り 込み | 0 : 割 り 込み | 0 : 割 り 込み | 0 : 割 り 込 み | 0 : 割 り 込み 0 : 割り 込み | 0 : 割 り 込み 
IRQ フラ グレ ジス タ な し な し な し な し な し 未 使用 な し な し 
$FD03 1 : 割 り 込み | 1 : 割 り 込み | 1 : 割 り 込み | 1 : 割 り 込み | 1 : 割 り 込み 1 : 割り 込み | 1 : 割 り 込み 
あり あり あり あり あり あり あり 
ンー あぁ き 
(リセ ッ ト 時 0) 5 
1 : ON 
外部 FIRG ATTENT 
s*Fp04 | FIRQ フ ラグ 0 : 判り 込み あぁ き 未 使 用 | Prek キ ー |: 割り 込み 
レジ スタ な し 0 : キーOFF 了 
な し 
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8 6 時 
の 1 : 割り 込み Co た 玉 全 用 1 キーoN | | | 割り 込み 
あり あり 
メイ ン ・ シ ステ ム 
Ko テ この アド レス に ライ ト す る こと で , サ プ の メイ ン ・ ア ッ ク ビ ッ ト が ON に な り , メイ ン に か か っ て いた 割り 込み が 解除 され る . 
アテ ンション アッ ク 
レジ スタ 
IEEE-488 RS-232C 検 出 
サ プ P2 LP1 検 出 | HD 検 出 
イン ター フェ イス Be ONEES 部 検出 COM3.4 COM1.2 9IEBA 本 上 6 
る 1 : Busy 0 : あり 0 : あ り 0 : あり 0 : あ り 
レジ スタ 8 2 が 0 : あり 0 : あり 0 : あり 才 SL 
・ が < ・ な - な 
$FD05 3 1 : な し 1 : な し 1 : な し ~ 
サブ 2Z80 サ プ ホ ー ル ト | キャ ン セ ル Z80 
イン ター フェ イス 1 : 要求 IRQ スト ロー あ き 未 使用 0 : メ イン 
レジ スタ 0 : 解除 プ ・ バ ルス 1 : Z80 
1 シ リ アル 受 信 デー タ 
sFp06 | Rs-232c D: Ds Ds D, D: D: Di D。 
シン ! : デー 
(CoM0 : ) の 介 ク 
D: D。 Ds D, Ds D。 D, D。 
イン ター フェ イス ー 
ス テー タ ス ・ レジ ス タ 
DSR 
SYNDET FE OE PE TXE RxRDY TxRDY 
0:DSR 端 子 _TX バ ッ フ ァ 
1:DSR 端 子 L | 1: 検 出 1: 検 出 1: 検 出 1: 検 出 1:Empty 1 : RxRDY Empty 
SGS モー ドコ マン ド ・ レ ジス タ (リセ ッ ト 後 有効 : 同期 モー ド ) 
SYNDET EP キャ ラク タ 長 
SYNC char 5 
バリ ティ 
0: ダ プル 0: 偶 
シン グル | 1:SYNC 検 出 | 1: 奇 。 E) 0 0 
$FD07 
モー ドコ マン ド ・ レ ジス タ (リセ ッ ト 後 有効 : 非同期 モー ド ) 
スト ッ プ ・ ビ ピット EP PE キャ ラク タ 長 ポー レー ト ・ ク ロッ ク 
バリ ティ バリ ティ 
0: 偶 0: 禁 止 
S。 S, 1: 奇 1: 許 可 し 。 ヒ B。 B 
コマ ン ド F ・ レジ ス タ 
EH IR RTS ER SBRK RxE DTR TxEN 
1:SYNC 1: 内 部 リセ ッ 0: 禁 止 0: 禁 止 
サー チ ト 1:RTS=0 1 リセット 1 : TxD=L | 1: 許 可 1:DTR=0 1: 許 可 
※ カウ ンタ ・ VReset INT STOP START 
SFD08 音声 合成 あ き クリ ア あ き 1: DSP 
イン ター フェ イス 1: ク リア リセ ッ ト 1: 有 効 1 ストップ に スズ ター ト 
CM3 CM2 CM1 CM0 DATA3 DATA2 DATA1 DATA0 
$FD09 
コマ ンド ・ デ ー タ 2 グ 
Busy 
sFD0A 0:busy あ き 
1:ready 
音声 デー タ メモ リ ・ バ ッ フ ァ 
$FD0B 
D: D。 Ds D, D。 D。 D, Ds 
ae 変換 デー タ 
本 あ き Dout 
AD コン バー タ 
*FD0C CS RS チャ ネル ・ セ レク ト 
チッ プ ・ セ レ | 0:0-5/8V 
あ き 
クト 1:0 一 5/2V 
0: セ レク ト で C。 
$FD0D 
$FD0E 
$FD0F 
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$FD10 
$FD12 % 
@Epi2 | ダブル ダ メモ リィ 
イン ター フェ イス 
$FD13 
$FD14 
$FD15 
$FD16 
$FD17 
ス デー タタ スー レジ ス 夕 (type1) 
Not Ready 1 Head Load Seek エ ラー | CRC エ ラー Track00 Index Busy 
中 NotReady| 1:Protect 1 : ON 1 : エラ ー 1 : エラ ー 1 :00 1 : ON 1 : busy 
ス テ 一 タタ ス ・ レ ジ ス タ (typeli, 忠 ) 
Not Ready | Write レコ ー ド ・ タ | Record CRC エ ラー ロス ト ・ デ ー | デー タ ・ リ ク | Busy 
に 1:NotReady| .Protect | イブ Not found 1 : エラ ー タ エス ト 1 : busy 
1:Protect 0 : デー タ *< マ | 1 : Not 1 : ロ スト 1 : セ ッ ト 
レニ ンス found 
1 デリー ニテ 
ドア デポ ドレス 
・ マ ー ク 
1 コマ ンド ・ レ ジス タ 
type I Restore 0 0001V0O0O 
ミニ ブロ ッッ ピ ー 
ポン ター な オイ Seek 00011V0O0 
Step 001U1V0O0O 
(EX、 AD のみ) 6 
Stepin 0 1 0U1VO0O 
Stepout 0 1 1U1V0O0 
WW type II Read 1 0 0mXEOO 
Write (デー タ ・ マ ー ク ) 10 1mxEOO 
write (デリ ー テ ッ ド デー タ ・ マ ー ク ) 1 0 1 mXEO1 
type II Read address 1 1000100 
Write track 1 1 1 1 0 1 0 0 
type IV Force interrupt 1 1 0 1 is lzh lo 
V:veryfy.U:update.m:multiple record 
E:30mS delay、 Iiinterrupt 
$FD19 R /W トラ ッ ク ・ レ ジス タ 
$FD 1 A R/W セク タ ・ レ ジス タ 
$FD1B R/W デー タ ・ レ ジス タ 
DRG IRQ SIDE 
R 0 :OFF 0 :OFF あ き 0 
$FD1C 1:ON 1 :ON 1 
SIDE 
W あ き 0 
1 
年 ー ドラ イプ ・ 
0 :OFF ディ スエ ー 
mw | 2 あ き “ライブ No 
0: イ ネー プル 
$FD 1D 2 0 一 3 
1: デ ィ ス エー 
プ ブル 
リセ ッ 0 1 0 0 
ト 時 
$FD1E あ き 
DRQG IRQ SIDE 
$FD1F R 0 :OFF 0 :OFF あ き 0 
1 :ON 1 :ON 1 
$FD18 
5 あ き 
$FD1E| BASIC 
0 デ タ ・ レ ジ ス タ 
ター 則 D Ds Ds M Dx 、 癌 Ds Di po 
(ST の み ) - 
SFD1F w ROM セ レク トレ ジス タ 
リセ ッ ROM 2 ROMI 
ト 時 あ き 1 : セ レク ト 1 : セ レク ト 
9 0: 非 セレ クト | 0: 非 セレ クト 
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$FD21 ダー タマ 
レジ スタ 
アデ ジン ジョシ ・ ダ マー 放 2 
$FD22 
ソフ トウ ェ ア 読 み 出 し 用 デイ ッ プ スイ ッ チ ・ ス テー タス 0 :ON 1 :OFF 
ディ ッ プ スイ ッ チ ・ レ ジス タ Sw8 | SW7 SW 6 SW5 | SW4 SW3 SW 2 SW 1 
$FD23 LPAck ク リア ・ レ ジス タ 
LPAck 
あ き 1: ク リア 0 : 何 も せ ず 
クリ ア ・ レ ジス タ 
LP 2 LP 1 LP0 
6 受信 デー タ 
$FD24 0 
RS-232C に 
(coM1 :) 送信 デー タ 
ステ ー タ ス 
$FD25 
紀 マジ リド 
要 偽 データ 
$FD26 > 
RS-232C > 
(coM 2 :) の の タ 
ステ ーー タス 
$FD27 
の AZ ド 
腕 : 棋 デー タ 
$FD28 
RS-232C 本 
(coM 3 :) 送信 データ 
ステ ー タ ス 
$FD29 
引 マグ ド 
受信 デー タ 
$FD2A と 
RS-232C ーー 
(coM 4 :) 4 
ステ ー タ ス 
$FD2B 
に スン 位 2 
※ 拡 張 IRQ 拡張 RS 8"FD LP1Ack LP2Ack IEEE-488 HD 
フラ グ ・ レ ジス タ 0 : 割 り 込み 0 : 割 り 込み 0 : 割 り 込み 0 : 割 り 込み 0 : 割 り 込み 0 : 割 り 込み 
あり あり あり あり あり あり reserve 
1: 割 り 込み 1: 割 り 込み 1 : 割 り 込み 1: 割 り 込み 1: 割 り 込 み 1 : 割 り 込み 
$FD2C な し な し な し な し な し な し 
※ 拡 張 IRQ RS-232C COM1 一 4 LP 1.2 8" FDC 
許可 レジ スタ SYNDET RxRDY TxRDY Ack 0 : 禁 止 
(リセ ッ ト 時 0) 0 : 禁 止 0 : 禁 止 0 : 禁 止 0 : 禁 止 1 : 許 可 0 し 
1 : 許 可 1 : 許 可 1 : 許 可 1 : 許 可 
$FD2C 
$FD2E 
Z80 バ ンク ・ レ ジス タ 
$FD2F | Z80 バ ンク ・ レ ジス タ あ き 
(リセ ッ ト 時 0 ) As Ai Ag | As 
ス テ ーー タタ ス ・ レ ジス タ (type 1) 
Not Ready |Write Protect| Head Load | Seek エ ラー | CRC エ ラー Track 00 Index | Busy 
1:Not Ready| 1: Protect 1:ON 1: エ ラー 1: エ ラー 1:00 1:ON 1: busy 
ス テ ーー タタ ス ・ レ ジ ス タ (typell, 中 ) 
$FD30 Not Ready |Write Protect| レコ ー ド タイ | Record Not | CRC エ ラー | ロスト ・ デ ー | デー タ ・ リ ク Busy 
プ found タ エス ト 
※ 0 デー タツ マ 
標準 フロ ッ ビ ピ ィ ー 1: Not Ready | 1: Protect ー ク 1: Not found | 1: エ ラー 1: ロ スト 1: セ ッ ト 1: busy 
イン ター フェ イス Lo た ニン ン / 
ドア ドレ ス 
> マー ク | 
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コマ ンド ・ レ ジス タ 
type 1 Restore 00001V0O0 
Seek 000 11V00 
Step 0 0 1U1V0O0 
Stepin 0 10U1V0O0O 
Stepout 0 1 1U1V00 
$FD30 0 type II Read 1 0 0mXEOO 
Write (デー タ ・ マ ー ク ) 1 0 1mxEOO 
Write (デリ ー テ ッ ド ・ デ ー タ ・ マ ー ク ) 1 0 1 m ぶ XEO 1 
type II Read address 1 1 0 0 0 1 0 0 
Write track 1 1 1 1 0 1 0 0 
type IV Force interrupt 1 1 0 1 sl lo 
V:veriy.U:update. m:multiple record. 
E:30mSdelay. IEinterrupt 
$FD31 R/W トラ ッ ク ・ レ ジス タ 
$*Fp82 | 堂 フ ロ ツー リ | 諏 2w セク タ ・ レ ジス タ 
$FD33 パン クエ スズ リョ 2 デー タ ・ レ ジス タ 
SIDE 
$FD34 R/W あ き 0 
1 
ドラ イプ ブ ・ レ ジス タ 
ドラ イプ ・ セ レク 
SD RW 1 ステ ニブ あ き “ライ ブ プ No 
ル ・ フ ラグ 
SFD36 
DRQG IRQ 
SFD37 R あ き 
1:ON 1:ON 
R ノー オペ レー ショ ン 
$FD38 Programable Timer コン トロ ー ル ・ レ ジス タ 2 の ビッ ト 0 ニ 0 の と き コン トロ ー ル ・ レ ジス タ 3 に 書き 込み 
w 
コン トロ ー ル ・ レ ジス タ 2 の ビッ ト 0ー ニ 1 の と き コン トロ ー ル ・ レ ジス タ 1 へ の 書き 込み 
ステ ー タ ス ・ レ ジス タ 
R 複合 割り 込み タイ マ 3 タイ マ の 2 タイ マ 1 
フラ グ 割り 込み 割り 込み 割り 込み 
$BFD39 
コン トロ ー ル ・ レ ジス タ 
0 出力 許可 割り 込み 許可 カウ ント ・ モ ー ド | クロ ッ ク 源 | 0:CR3 
0: 禁 止 動作 モー ド 0:16 ビ ッ ト 0:C 
1: 許 可 1: 許 可 1: 8 ビッ ト X2 | 1:E 1:CR1 
BFD3A 
R/W タイ マ 1 カ ウン タ アク セス は 16 ビ ピッ ト 単 位 で 行なう 
sFD3B 
sFD3C 
R/W タイ マ 2 カ ウン タ アク セス は 16 ビ ッ ト 単 位 で 行なう 
BFD3C 
SFD3E 
R/W タイ マ 3 カ ウン タ アク セス は 16 ビ ピット 単位 で 行なう 
BFD3F 
Color #0 
$FD98 あ き T 還 加 
$FD99 あ き So 
I G R B 
Color 2 
SFD9A | バレ ッ ト ・ レ ジス タ あ き 
3 1 G R B 
( 注 2 ) Color 半 3 
$FD9B あ き 
2 I G R B 
$FD9C あ き Color キ 4 
1 G R に 】 
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I G R BB 
Col 
$FD9E あ き 0 2 
I G R B 
Col 
$FD9F あぁ き OU2 げ 閉め 
I G R B 
ん ン ブ レ スン た ルン キャ ラク タ を 
ビデ オォ 出力 グラ フィ ング ャ ラ 3 
Green へ カラ ー へ Green へ カタ ジー で 
$FDA0 コン トロ ー ル ・ レ ジス Ww あ き 
0: 出 力 し な い | 0: 出 力 し な い | 0: 出 力 し な い | 0: 出 力 し な い 
タ ( リ セッ ト 時 0 ) - 
1: 出 力 する 1: 出 力 す る 1: 出 力 する 1: 出 力 する 





注 1) "あき ? は ここ に ハー ドウ ェ ア が な いこ と , “ 未 使用 "は バッ ファ ・ ラ ッ チ が つなが っ て いる が 使っ て いな いこ と を 示す . ※ 印 は オプ ショ ン で ある . 
注 2 ) 下位 4 ビット の み R/W 可 . た だ し , リセ ッ ト に よっ て 次 の よう に イニ シャ ライ ズ さ れる . | は Intensity. 
表 1- 1 =g 
PT6 吉 ビ 生 の リセ ッ ト 時 の 設定 図 2 サ プ ブ ロッ ク メモ リ ・ マ ッ プ 

Color 半 


IN3 or A3 IN2 or A1 IN1 or A0 IIGIRIB 


0 0 0 0 ilololo $0000 
1 0 0 1 ilololi 
2 0 1 0 110|1110 
3 0 1 1 11011 1 
4 1 0 0 1 11010 
5 1 0 1 1 1101|1 
6 1 1 0 1 | 着 同 震 了 り 
7 1 1 1 1 央 且 1 
パレ ッ ト ・ レ ジス タ と 
ビデ オ 出 力 コ ント ロー ル ・ レ ジス タ 
パレ ッ ト ・ レ ジス タ と ビデ オ 出 力 コ ント ロー ル ・ レ ジス タ は 。, 
メイ ン CPU の アド レス 空間 に 属し , 6809CPU ボ ポー ド 使 用 時 は そ 
s8000 GVRAM | GVRAM| 1GVRAM|1GVRAM | IGVRAM | | GVRAM 












れ ぞ れ $FD98 一 9F と $FDA0、8088CPU ボ ポー ド 使 用 時 は I/O 
"ドレ ス の 0FD98H 一 9FH と 0FDA0OH に な る . レ ジス タ の 構成 
を 家 1 - 1 に 示す . 
6809CPU ボ ー ド 使用 時 の メモ リ ・ マ ッ プ と 
ウイ ンド ウ ・ レ ジス タ , MMR 
リセ ッ ト ・ ベ クト ル は ブート ROM (MBM2732A) の アド レス 
$ 5FFE、$ 5FFF の アド レス に 書き 込ま れ て いな けれ ば な ら 
な い . リ モッ ト 中 は $FFFE, $FFFEF は 上 記 ROM ア ドレ ス に 割 
り 当 て られ る が 。 リ モット 解除 後 は 8809CPU ポ ー ド 内 の RAM 
に 割り 当て られ る . た だ し , この RAM に 書き 込ま れ た デー タ は 
リセ ッ ト ・ ベ クト ル に は な ら な い . 
また 、 リ モッ ト 時 に Memory Mapping Register (以下 MMR 
表 2 サブ プ シ ステ ム 1/O マ ッ プ 


CVRAM 
+AVRAM 
SYSRAM| $9000 


1/O レ ジス タ の 
詳細 は 表 2 





$9F80 





$ 9FFF 





$FFFF 






























































MIX レ ジス タ カー ソル 表示 | ライ トペ ン | WIDTH FLASH INSLED Busyflog 
ジ 
$ AFE0 R/W あ き 0:LSB=0 0: レ ベル 0:40 0:OFF 0:OFF 0:busy 
(リセ ッ ト 時 0 ) 」 
1:LSB=1 1: ト リガ 1:80 1:ON 1:ON 1:ready 
グラ フィ ッ ク VRAM リー ドア ウト ・ コ ント ロー ル バイ ト ゼ ロ ・ ラ イト RAM セ レク ト ・ ビ ピッ ト 
$AFE1 | アッ プ デ イ ト ・ レ ジ | R/W 0: す る 1: し な い 0: 非 セレ クト , 1: セ レク ト 
スタ RC 2 RC 1 RAM 3 RAM 2 RAM 1 RAM 3 RAM 2 RAM 1 
グラ フィ ッ ク VRAM モー トド 設定 M1 ペー ジ ・ セ レク ト RAM セ レク ト ・ ビ ピット 
$AFE2 | ディ スプ レイ モー ド ・ w あ き 0:200 ド ッ ト あ き 0: 非 セレ クト , 1: セ レク ト 
レジ スタ (リセ ッ ト 時 0) 1:400 ド ッ ト PS 2 PS 1 RAM 3 RAM 2 RAM 1 
グラ フィ ッ ク VRAM ベー ジ ・ セ レク ト 
BAFE3 | ペー ジ ・ セ レク ト ・ レ ジ W あ き あ き 
スタ (リセ ッ ト 時 0) PS 2 PS 1 
ライ トペ ベン キー ボー ド 
0: 割 り 込み 0: 割 り 込 み 
FIRQ ク リア ・ レ ジス 
$ AFE4 R な し あ き な し 
タ (リー ド 後 0) に 3 。 
1: 割 り 込み 1: 割 り 込み 
あり あり 
キャ ン セ ル IRQ 
$AFE5 、 R この レジ スタ を リー ド す る こと で キャ ン セ ル IRQ の 要因 を クリ ア で きる . 
クリ ア ・ レ ジス タ 
還 お プラ ン キ ング | ディ スプ レイ | 漢字 ROM VSYNC ライ ト ベ ン LSB| ライ トペ ン Sw 
ステ ー タ ス 表 示 R 0 R ー 
AFE6 な 区 0: プ ラン キン グ | 1:400 ラ イン | 1: 実 装 あ き 1:VSYNC 中 | 0:LSB=0 0:OFF 
鐘 1: 表示 中 0:200 ラ イン | 0: 未 実装 1:LSB=1 | loN 
アテ ンション FIRQ | Dont 
$ AFE7 2 メイ ン ・ シ ステ ム が Ack を ON に し た と き に クリ ア さ れる . 
フラ グ ・ レ ジ ズ タ Care 
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スタ ー ト ・ ア ドレ ス 上 位 バ 
$AFE8 | アク セス ・ ス ター ト ーー 電 2Y 
の 3 光ら 2 あ き Ax Ass 上 As An Ano As As 
ーー * “レス さ 
$AFE9 | (リセ ッ ト 時 0) iu 
Az Ae As Ax As Az Ai あ き 
$AFEA グラ フィ ッ ク ・ ス タ スタ ー ト ・ ア ドレ ス 上 位 バ イト 
W あ き As As Ai Ai Aio As As 
sAFEB | / ド レス ・ レ ジス タ スタ ー ト ・ ア ドレ ス 下位 バイ ト 
(リセ ッ ト 時 0) Az As As A。 As Az Ai あ き 
Key in data 
$AFEC ぁ き D 8 
レジ スタ 
1 ッ em デー 
さ 所 EE | キー 入力 デー タ 
リー ド 後 0 D, D。 D。 D。 D。 D。 Di Ds 
CRTC レ ジス タ ・ ア ドレ ス 
$AFEE 合 用 
D. D。 D。 D, De 
CRT コ ント ロー ラ | R/W 
CRTC デ ー タ ・ ア ドレ ス 
F 
の RE D: D。 D。 D. D > D。 D, D。 
AR アテ ンション ・ デ ー タ キ 0 
D, D。 | D。 D. D。 D。 D, D。 
アテ ンション =3 5 
$AFF 1 レジ スタ w の の の 2 コー の 
に 6 D D。 D。 D。 D。 D。 p, D。 
(リセ ッ ト 時 Ack ON) ー 思 
$AFF 2 アテ ンション シ ・ デ ー タ 皇 2 
D: D。 D。 D. D。 D: Di D。 
メイ ン ・ ア ッ ク 
$AFF 3 R | 0:AckOFF 未 使 用 
1:Ack ON 
SAFF4 あ 3 読み 出し アド レス 上 位 バ イト 
上 Ais Ax Ais Ais 
ょ AF 5 | 洪 字 ROM 有 み 出し 漢字 ROM 読み 出し アド レス 下位 バイ ト 
レジ スタ Ai Au Az | _A& A: As As A。 
(リセ ッ ト 時 0 ) 漢字 ROM 読み 出し デー タ 上 位 バ イト 
$AFF 6 
き Di。 D,。 Di。 | _p: pi Di。 D。 D。 
SAFF 7 漢字 ROM 読み 出し デー タ 下 佐 バ イト 
D, D。 Ds 寺 *pX D、 D。 D D。 
SAEES 叶 ジ 太 み Read で プ ザ ー ON 
トス RMK Write で プ ザ ーOFF 
$AFF9 | (リセ ッ ト 時 OFF) 
> MSR 
図 3 リセ ッ ト 直 後 の 6809CPU ポ ボー ド メ モ リ ・ マ ッ プ 共 る 
$FD93 bit7|pit6lpit5|bit4|bitslbit2 
R/w プー ト 
(リセ ッ ト ROM 
時 0 ) 0: 有 効 
| 1: 無 効 


メイ ン ・ ボ ー ド 内 D-RAM $00000 一 $04FFF 


メイ ン ・ ボ ー ド 内 D-RAM $06000 一 $0FBFF 



























と 略す )、Memory Segment Register( 以 下 MSG と 略す ), Win- 
dow Offset Register (以下 WOR と 略す ) お よび Window Bank 
Register (以下 WBR と 略す ) は 、 すべ て ディ スエ ー ブ ル に な っ 
て いる . 

プー ト ROM は 表 3 に 示す Mode Select Register (以下 MSR 
と 員 す ) の ビッ ト 0, ブー ト ROM ビ ッ ト に 1 を 書く こと で 禁止 
し , ブート ROM が 占め て いた エリ ア を メイ ン ・ ボ ポー ド 上 の D- 
RAM に する こと が で きる . この と き の メ モリ ・ マ ッ プ の 様子 を 
図 4 に 示す . 
ウイ ンド ウ ・ レ ジス タ を 使っ た 

メモ リ の アク セス 

ウイ ンド ウ ・ レ ジス タ は CPU 空間 の $ 7C00 一 $ 7 FEFF の 領 
域 と 、 メ モリ の 実 ア ドレ ス と の 対応 を 取る レジ スタ で , WBR 

(Window Bank Register)、 と WOR (Window Offset 
Register) の 2 つの レジ スタ か ら 成 る . 

WBR は 64K バ イト 単位 の どの メモ リ ・ バ ンク を 、 ウイ ンド ウ 
経由 で アク セス する か を 指定 する レジ スタ で ある . WOR は 
WBR で 指定 され だ た Bank 内 の どの アド レス を ウイ ンド ウ 領 域 
こ 割 り 当て る か を 指定 する レジ スタ で , アド レス $ 7C00 に 対 
する 256 バ イト 単位 の オフ セッ ト 量 を 書き 込ま な けれ ば な ら な 
い .。 WBR, WOR は ほ は リ モット 時 に 0 に 初期 化 さ きれる. この と 
き , ウイ ンド ウツ 機能 は $FD93 の MSR の ビッ ト 6 が 0 に な っ て 
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図 4 プー ト ROM を 禁止 し た と き の メ モリ ・ マ ッ プ 図 5 6809CPU ボ ー ド メモ リ ・ マ ッ プ 


レ 人 の | 
(4 K バ イト ) 


RAM 
(128 バ イト ) 


メイ ン ・ ボ ー ド 内 D・RAM $00000 一 $0FBFF 


E: マ て 年 3)』 
(6 し: な ど 仙 ) 


1/O 
領域 


RAM 
(510 バ イト ) 


(リセ ッ ト 用 は 


$ 5FFEーFF) 





表 4 6809CPU ボ ー ド 1I/O マ ッ プ 








































































































$FD40 CH0O アド レス ・ レ ジス タ 上 位 バ イト 
Ais Ai。 Ais ] Ais Ani Aio As As 
si 
$FD41 CH0O アド レス ジス タ 下 位 バ イト 
Az A。 As A。 As As Ai Ac 
= pp < 
$FD42 CH0 転送 語数 レジ スタ 上 位 バ イト 
D,。 Di。 Ds Di。 Di Dis Ds Ds 
= (5 < 
$FD43 CH0 転送 語数 レジ スタ 下位 バイ ト 
D: D。 Ds D。 D。 Ds D, D。 
ドレス ・ レ ジ 1 
$FD44 CH1 アド レス ジス タ 上 位 バ イト 
Ais As Ais Ais Ai Ao As As 
$FD45 CH1 アド レス ・ レ ジス タ 下 位 バ イト 
Az As As Ax。 As Az Ai Ao 
= 5 の 
$FD46 CH1 転送 語数 レジ スタ 上 位 バ イト 
Di。 Di。 Di ] Di Di Di。 Ds Ds 
H > レジ * 
$FD47 CH1 転送 語数 レジ スタ 下位 バイ ト 
D: Ds Ds D。 Ds D: Di D。 
DM R/w “レス ・ レ ジ 1 
$FD48 AC の CH2 アド レス ジス タ 上 位 バ イト 
Ais Ai Ans Ai Ai Ai As As 
5.5282 < 
$FD49 CH2 アド レス ジス タ 下 位 バ イト 
Az As As Ax As As Ai Ao 
$FD4A CH2 転送 語数 レジ スタ 上 位 バ イト 
Ds Di。 Di D: D, D,。 D。 Ds 
で : レジ ス バ 
$FD4B CH2 転送 語数 レジ スタ 下位 バイ ト 
D: D。 D。 D。 D。 D: D, Ds 
3 ・ レ ジ * 
$FD4C CH3 アド レス ジス タ 上 位 バ イト 
Ais Ai Ais Ais Ai Aie As As 
“レス ・ レ ジス 1 
$FD4D と CH3 アド レス ジス タ 下 位 バ イト 
Az As As Ax As Az Ai Ac 
ェ 送 語数 レジ ス * 
$FD4E CH3 転送 語数 レジ スタ 上 位 バ イト 
Di Di。 Di Di Di Dis Ds Ds 
CH > レジ ス 1 
$FD4F 3 転送 語数 レジ スタ 下位 バイ ト 
D: D。 Ds D。 D: D: D, D。 
CH0 . CHCR 
DEND Busy アド レス TSC サイ クル ・ ス | R/W 
Ready up/down /HALT チー ル / バ ー 
*FD50 DMAC Bi 内 了 スト 
it0O 一 
人 バー スト 
『 
半 1: 出 力 中 1:DMA 中 1:down ETSC 0: サ イク ル ・ | 1 :M 一 IO 
1 R/w | 0: 未 出力 0:DMA 完 0:up 0:HALT スチ ー ル | 0:io 一 M 
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CH1. CHCR 
DEND アド レス TSC サイ クル ・ ス | R/W 
bit6, Busy 
Read up/down /HALT チー ル 
に た 【 
swFp51 | DMAC 罰 2 で / バ パー スト 
R の み 未 使 用 
CH2. CHCR 
DEND Busy アド レス TSC サイ クル ・ ス | R/W 
/Ready up/down /HALT チー ル 
$FD52 / バ パー スト 
未 使 用 
CH3. CHCR 
DEND Busy | アド レス TSC サイ クル ・ ス | R/W 
/Ready up/down /HALT チー ル 
sFD53 / タ ServeE 
未 使 用 
PCR 
ロー テー ト TxRQ TxRQ TxRQ TxRQ 
制御 CH3 CH2 CH1 CH0 
SFD54 R/W 未 使 用 
1: イ ネー ブル | 1: イ ネー ブル | 1: イ ネー ブル | 1: イ ネー ブル 
0: デ ィ ス エー プル | 0 : ディ スエ ー ブ ル | 0: デ ィ ス エー ブル | 0: デ ィ ス エー ブル 
ICR 
bit3 IRQ フラ グ TxRQ TxRQ TxRQ TxRQ 
は CH3 CH2 CH1 CH0 
$FD55 R/W 雪 
bit7 1:IRQ 出 力 0 未 使 用 
は 0:IRQ 出 力 1 1: イ ネー プル | 1: イ ネー ブル | 1: イ ネー ブル | 1: イ ネー ブル 
R の み 0: デ ィ ス エー ブル | 0: デ ィ ス エー ブル | 0: デ ィ ス エー ブル | 0: デ ィ ス エー ブル 
DCR 
2/4 チ ャ ネル | デー タ ・ チ ェ イ ン ・ チ ャ ネル | デー タ ・ チ ェ 
モー ド | 指定 イン 
sFD56 R/W 
未 例 用 
1:4ch 00: CH0, 01:CH1 1: イ ネー プル 
0:2ch 10 :CH2 0: デ ィ ス エー ブル 
拡張 メモ リ | DMA 
NMI 割 込 レレ メタ | R | フィ | 2023 ンー あ き 
0 2 1 : な し 0 : な し 
0 : あ り 1: あ り 
A 
MO W リセ ッ ト ・ コ マン ド 
コン トロ ー ラ 
86 CPU アド レス 0000 一 0FFF の 割り 当て メモ リ ・ ア ドレ ス 
Ais Ais Az Ans As Ai。 Ais Ais 
CPU アド レス 1000 一 1 FFF 
$FD81 
Ais Ais Az Ais Ais Aix Ais Ais 
CPU アド レス 2000 一 2FFF 
$FD82 
Ais Ais Ar Ai Ais Ai Ais Ais 
CPU アド レス 3000 一 3 FFF 
$FD83 
Ais Aia Aiz Ais Ais Ax Ais Ais 
CPU アド レス 4000 一 4 FFF 
$FD84 
Ais Ais Ar Ais Ais Ans Ais Ais 
Memory CPU アド レス 5000- 5 FFF 
$FD85 
Management Ais Ais Ai Aie Ais Ai Ais Ais 
Register R/W CPU アド レス 6000 6 FFF 
$FD86 
Ans As An7 Aie Ais An Ais Ans 
CPU アド レス 7000- 7 FFF 
$FD87 
Ais Ais Ans Ai Ais Ai。 Ais Ais 
CPU アド レス 8000 8 FFF 
$FD88 PO 
Ais Ais Any Ai Ais Ai。 Ais Ais 
CPU アド レス 9000 9 FFF 
$FD89 
Ais Ais Az Ais Ais Ai。 Ais Aiz 
CPU アド レス A000--AFFF 
$FD8A 
Ais Ais Ar Aie Ais Ai。 Ais Ais 
CPU アド レス B000--BF 
$FbsB 000 一 BFFF 
Ais Ais Ai: Ais Ais Ai。 Ais Ais 
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CPU アド レス C000 一 CFFF 
$FD8C 
Ais Ais Aiy Ais Ais As Ais Ais 
CPU アド レス D000 一 DFFF 
$FD8D 
Ais Ais Ai Ais Ais Ax Ais Ais 
CPU アド レス E000 一 EFFF 
$FD8E 
Ais Ais As Ais Ais Ax Ais Ais 
CPU アド レス F000--FBFF 
$FD8F 
Ais Ais Az Ais Ais As Ais As 
MMR Segment 
FD90 Register MM W あ き 
(リセ ッ ト 時 0) S3 S 2 S1 S0 
Window Bank 
ゃ FD91 Register W あ き 
(リセ ッ ト 時 0 ) Ais As Ai7 Aie 
Window Offset ウィ ンド ウ ・ オ フ セ ッ ト アド レス 
$FD92 Register W 
(リセ ッ ト 時 0 ) OA15 OA14 OA13 OA12 OoA11 OoA10 OA9 OA8 
Mode Select MMR ウィ ンド ウ プー ト ROM 
SFD93 Register R/W | 0: 無 効 0: 無 効 あ き 未 使用 0: 有 効 
(リセ ッ ト 時 0 ) 1: 有 効 1: 有 効 1: 無 効 
*FD94 あ き CH0 
BN Ans Ais As Ais 
$FD95 あ き CH1 
バン ク ・ レ ジヌ タ | w Ais Ais 還 A7 Ais 
sFD96 あ き 
Ais Ais Ai Ais 
SFD97 あ き CH3. 
Ais Ais Az Ais 
6 表 6 MSR 
いる た め 人 禁止 され て いる . ウイ ンド ウツ 機能 は , この ビッ ト を 1 
N bit6 | bit5 | bit4 | bit8 | bit2 | bitl | bit0 
に する こと で イネ ー ブ ル と な る . 表 5 に MSR の 構成 を 示す . *FD93 MMR 
表 5 MSR R/W 0: 無 効 
Ba bit7 bit5 | bit4 | bits | bit2 | bitt | bito Ui 
R/W $FD80 一 $FD8F) の 2 種 の レジ スタ に よっ て 行なわ れ て いる . 
(9: セト MMR は 16 バ イト の レジ スタ の 16 セ モッ ト か ら 上 成る. どの レジ 
時 0 ) スタ ・ モ セッ ト を 選択 する か は , MSR の 内 容 に よっ て 決ま る . 




















た と そえ ば, ウイン ドウ 領 域 に メイ ン ・ メ モリ ・ ア ドレ ス $18800 
ー$18BFF を 割り 当て る 場合 は , 


01 一 WBR、 0C 一 WOR 


を それ ぞ れ 書き 込め ば 良い . 

また , オフ セ モット を か けた アド レス は 同一 バン ク 内 で ルー プ 
する . た と えば , WBR=01, WOR=82 と し た 場合 は , ウィ ン 
ドウ 領域 と 突 メ モリ ・ ア ドレ ス と の 対応 は 図 6 の よう に な る . 
メモ リ ・ マ ッ ピ ング ・ レ ジス タ を 使っ た 

メモ リ の アク セス 

MMR は 6809CPU の 64K バ イト の アド レス 空間 に , 1 MB の メ 
モリ 空間 を 割り 当て る も の で , ダイ ナミ ッ ク ・ ア ロケ ーション 
領域 は 4K バ イト 単位 に な る . 

メモ リ ・ マ ッ ピ ング 機能 の イネ ー ブ ル , ディ スエ ー ブ ル は 
MSR の bit 7 ( 表 6) に 1, 0 を 書く こと で 行なわ れる . 

メモ リ ・ マ ッ ピ ング 機能 は , MSG 
$ FD90) 


(Memory Segment 
と MMR (Memory Mapping Register ・ 


図 6 


Register ・ 


MMR の 第 0 バイ ト 目 は , CPU 空間 の $0000 一 $OFEFF, 第 1 バ 
イト は $1000 一 $ 1FFF, … の よう に 順に 4K バ イト ご と の CPU 
空間 に 対応 する . 

た だ し , 最終 バイ ト ($FC00-FFFF) は アロ ケー ショ ン き さき 
MMR へ の 書き 込み 内 容 は 、 MSB か ら 順 に メイ ン ・ メ 
モリ ・ ア ドレ ス の 最上 位 ビ ッ ト A19 一 A12 に な る . 

MSG は リセ モット 時 に クリ ア さ れる が MMR は 不定 な の で , 
MSR の MMR ビ ッ ト で MMR を イネ ー ブ ル に する 前 に 、 ソ フト 
ウェ ア で 初期 化し な く て は な ら な い . さら に , MMR 機 能 は ウイ 
ンド ウ 機 能 と の 併用 が 可能 で は ある が , $ 7C00 一 $ 7FFF は ウ 
イン ドウ 機能 が 優先 され る . 

以下 に MMR の 使用 例 を 示す . 

⑩ 。 MSG=00,。 MMR の $FD80 か ら 順 に 0F、OE、0D…, 
02、01、00 と 書き 込ん だ 場合 の メモ リ 空 間 は 図 7 に な る . 

@ ⑳ に 続い て MMR の $FD80 に $11 を , SFD82 に $1F を 
書い た 場合 の メモ リ 空 間 は 図 8 に な る . 

@ に 続き MSG=01 に し , MMR は @ の と まき に 書い た 通り 
の デー タ を 入れ て お いた 場合 . MSG=00, 01 と 書き 換え る こと 


れ な い . 


同一 バン ク 内 で の ルー プ が ある 場合 


$1FE00 


$1FFFF 
$10000 


メイ ン ・ メ モリ 


$1101FF 
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図 7 MMR 使 用 例 び 


1) MSG=00,. MMR の $FD80 か ら 順 に , 0F、 0E, 0D, 
02。 01, 00 と 書き 込ん だ 場合 の メモ リ 空 間 
CPU 論理 アド レス 


MMR 使 用 例 @ 


メイ ン ・ メ モリ 領域 物理 アド レス 


= 
ーー 
。 
で ーー 
< 一 
< 一 
マー 
< 一 
ぐ と 一 
マーー 
ーー 
<ーー 
ーー 
で ーー 
ーー 
ーー 


0F000 一 0FFFF 
0E000 一 0EFFF 
0D000 一 0DFFF 
0C000 一 0CFFF 
0B000 一 0BFFF 
0A000 一 0AFFF 
09000 一 09FFF 

08000 一 08FFF 

07000 一 07FFF 
06000 一 06FFF 
05000 一 05FFF 
04000 一 04FFF 
03000 一 03FFF 
02000 一 02FFF 
01000 一 01FFF 
00000 一 00BFF 


図 8 


@②⑥ に 続い て MMR の $SFD80 に $11 を , 
書い た 場合 の メモ リ 空 間 


$FD82 に $1F を 





CPU 論理 アド レス メイ ン ・ メ モリ 領域 物理 アド レス 


0000 
2000 


FFFF 


ぐー 11000 一 11FFF 


そ 一 - OE000 -- OEFFF 
そ ー 1F000 一 1FFFF 


で ー 0C000 一 0CFFF 


で 図 7 の マッ プ と 図 8 の マッ プ を 明 時 に 切り 換え る こと が で き 
る ( 図 9). 


る 
1 


@ 例 ⑳ に , WBR==$01、 WOR ニ $08 と し ,、 ウ イン ドウ 機 
E も 合わ せ て イネ ー ブ ル と し た 場合 の メモ リ 空 間 は 図 10 に な る . 
図 9 


MSG=00 


ーー 0F000 一 0FFFF 


ーー 0E000---0EFFF 


ーー 0C000 一 0CFFF 


ーー 0B000--0BFFF 


琶 一 - 00000 一 00BFF 
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図 10 MMR の 使用 例 


CPU 論理 アド レス 
0000 


メイ ン ・ メ モリ 領域 物理 アド レス 


で ー 0F000 一 0FFFF 


MMR 失 能 に よる 


08BFF 
18400 


187FF 


| ウィ ンド ウ 検 能 
07000 


図 11 8088CPU ボ ー ド メモ リ ・ マ ッ プ 


メモ リ 空 間 


ボー ド 内 1/O 


拡張 !/O 領域 


アク セス 禁止 


本 体内 !/O 領域 


※ シ ョ ー ト ・ ビ ン に より 拡張 RAM に 割り あて る こと も 可能 


8088 こ CPU リボ ー ド 使用 時 の 
メモ リ ・ マ ッ プ (EX の み ) 


0F0000 


0FF000 
0FFFFF 


8088CPU は 1M バ イト の アド レス 空間 を 生成 する た め 、 6809 
CPU ボー ド の 場合 と 異な り 、 アド レス 生成 用 の ハー ドウ ェ ア 
(MMR,. ウイ ンド ウ ) を 必要 と し な い . さら に , ブー ト ROM 
の 禁止 も 行なっ て いな い . 8088CPU ボ ー ド 内 の I/O は すべ て 


8088CPU の I/O ア ドレ ス に 割り あて て ある . 
ー ド 使用 時 の メモ リ 


図 11 に 8088CPU ボ 
・ マ ッ プ と I/O マ ッ プ を ポ ボ す . 


MMR 使 用 例 


MSGー01 


11000 一 11FFF 


0E000 一 0EFFF 


1F000 一 IFFFF 


0B000 一 0BFFF 


00000 一 00BFF 
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表 7 


8808CPU ボ ー ド |/O マ ッ プ 





















































































































































1CW 1 
w 
A7 A6 A5 1 LTIM ADI SNGL IC4 
OCw 2 
w 
R SL EOI 0 0 Lz し Lo 
OCwW 3 
0000 Ww 
上 X FSMM SMM 0 1 P RR RIS 
割り 込み 
コン トロ ー ラ ER 
(MBL8259A) R 
IR 7 IR6 IR 5 IR4 IR 3 IR 2 IR 1 IR0 
ISR 
R 
IS 7 IS 6 1S 5 IS4 IS 3 1S 2 IS 1 IS 0 
1ICW 2 
w 
Ais/T7 Ai4/T 6 Ais/T 5 Aisz/T4 Aii/T 3 Aio As As 
ICW 3 
Ww 
0001 S: S。 Ss S。 Ss Ss S, Ss 
ICW4 
w 
0 0 0 SFNM BUF M/S AEOI zPM 
OCW 1 
R/W 
Mz Me Ms M。 Ms M: Mi Me 
0002 一 
000F ク 老 ス 禁 止 
CH0 アド レス ・ レ ジス タ 
0010 
Az/Ais As/Ai。 As/Ais A4/Ais As/Aii As/Aio Ai/A。 Ao/As 
CH0 転送 数 レジ スタ 
0011 
Wz/Wis We/W,, Ws/Wis W./Wis Ws/Wii W:/Wio Wi/Ws W。/Ws 
CH1 アド レス ・ レ ジス タ 
0012 
A:/Ais As/Ai。 As/Ais A4/Ais As/Ai」 As/Aio Ai/As Ao/A。 
DMA CH1 転送 数 レジ スタ 
0013 コン トロ ー ラ 
8 W:/Wis W。/W, Ws/Wi。 W./Wis Ws/Wii W。z/Wio Wi/W。 W。/Ws 
(18237A) CH2 アド レス ・ レ ジス タ 
0014 
Az/Ais A。/Ai。 As/Ais A。/Ais As/Ai Az/Auo Ai/As Ao/As 
CH2 転送 数 レジ スタ 
0015 
Wz/Wis W。/Wi。 Ws/Wi。 W./Wis W。/Wii W。/Wi。 Wi/Ws W。/Ws 
CH3 アド レス ・ レ ジス タ 
0016 
Az/Ais As/Aix As/Ais A4/Ais As/Aii Az/Aio Ai/As Ao/As 
CH3 転送 数 レジ スタ 
0017 
Wz/Wis wW。/Wi。 Ws/Wis W./Wis Ws/Wii Wz/Wio Wi/Ws We/Ws 
ステ ー タ ・ ス レジ スタ 
R CH 3 CH 2 CH 1 CH0 CH3 CH 2 CH 1 CH0 
0018 REQ REQ REQ REQ TC TC TC TC 
コマ ンド ・ レ ジス タ 
w DACK DREQ wRITE PRI TM ENB CH0 MM 
リク エス ト ・ レ ジス タ 
党 w 使 用 REQ CHBIT 1 CHBIT 0 
シン グル マス ク ・ レ ジス タ 
JA w 使 用 MASK CHBIT 1 CHBIT 0 
モー ド ・ レ ジス タ 
アド レス オー ト ・ 転送 セレ クト ・ ビ ピット 
シン グル ・ モ ー ド ・ H 
001B DMA w ら ま る ご と inc/dec イニ シャ ル 2CH0 01 : CH1 
コン トロ ー ラ 0:dec 0: デ ィ ス エー ブル 01:write 10 : CH2, 11 : CH3 
(18237A) 1:inc 1: イ ネー ブル 10:Read 
001C w クリ アバ イト ・ ボ イン タ FF ビ 
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00ip 
w マス タ ・ ク リア 
001A W クリ アマ スク ・ レ ジス タ 
オー ル マ ス ク ・ レ ジス タ 
001F w 未 使 用 較 
CH 3 CH 2 CH 1 CH0 
CH0 
0020 あ き 
Ai。 As As Aa 
CH1 
0021 あ き 
DBMA 9 As As Ar Ai。 
0022 人 あ き の 
レジ スタ Ais Ai Ai7 Ais 
easel 
0023 あ き SH9 
As Ai。 Ar Ara 





























表 8 Z80CPU ボ ー ド I/O マ ッ プ 































Z80 バ ンク ・ レ 
タ あ き 
(リセ ッ ト 時 0 ) Al9 。 | Al A17 。 | Aie 
Z80 割 り 込 み IRQ7 IRQ3,4 IRQ2, 9 IRQ0 FIRQ0, 2, 3 IRQ5,6 IRQ1 IRQ8 
・ レ ジ FIRQ1 

srp50 | "スク トレ ジス ター | syw - SN 

(リセ ッ ト 時 0 ) 1: イ ネー プル | 1: イ ネー ブル | 1: イ ネー ブル | 1: イ ネー ブル | 1: イ ネー ブル |1: イ ネー ブル | 1: イ ネー ブル | 1: イ ネー ブル 
0: ディ スエ ー ブ プル | 0 : デ ィ ス エー プル | 0: ディ スエ ー プ ブル | 0: デ ィ ス エー プル | 0 : デ ィ ス エー プル | 0: ディ スエ ー プ ブル | 0 : デ ィ ス エー ブル | 0: デ ィ ス エー ブル 

図 12 有 Z80CPU ボ ー ド の メモ リ ・ マ ッ プ 図 13 メイ ン CPU- サ プ CPU イ ンタ ー フ ェ イ ス ・ ブ ロッ ク 図 


Z80CPU ア ドレ ス メイ ン メ モリ ・ ア ドレ ス 


0000 6809 時 8088 時 


00000 10000 メイ ン cPU 


BUSY 





SUB HALT _ REQUEST 


CANCEL IRQ 
ATTENTION 割り 込み 





X : Z80 バ ンク ・ レ ジ シ タ の 内 容 


アド レス ・ バ ス っ 


ー タ ・ バ ス 





OFC00 





Z80CPU ボ ー ド 使用 時 の メモ リ ・ マ ッ プ 
① 共有 メモ リ 部 


80CPU も 8088CPU 同 様 I(O ア ドレ ス 空 間 を 持つ が , FM-11 ②⑨ アテ ンション ・ レ ジス タ 部 
で は 使用 し て いな い . また , メモ リ ・ ア ドレ ス 空 間 は メイ ン CPU ③ キャンセ モル IRQ 部 
が 6809 の と き は $00000 一 $0FFFF を , 8088 の と き は $10000 一 ① 共有 メモ リ 
$ 1FFFF を 占め る よう に な っ て いる . 表 8 に Z80CPU ボ ー ド の サブ CPU 側 の アド レス $9F80 一 $ 9FFF の 128 バ イト の 領域 
I/O マ ッ プ を 示す . と ,、 メ イン CPU に 6809 を 使っ て いる と き は メイ ン ・ ア ドレ ス 
Z80CPU ボ ー ド 内 の レジ スタ は , $FD2F の Z80 バ ンク ・ レ ジ SFC80 一 SFCFF, 8088 を 使っ て いる と き は メイ ン CPU の 1/O 
スタ と $FD50 の 割り 込み マス ク ・ レ ジス タ の み で ある . アド レス の 0FC80H 一 0FCFFH の 128 バ イト の 領域 と は , 両者 で 
だ た だし, 2Z80 バ ンク ・ レ ジス タ だ け は , メイ ン CPU か らち も R/ 共有 する メモ リ 領 域 と な る , た と えば , サブ 側 $9F80 の アド レス に 
W で きる よう に な っ て いる . $ AA と いう デー タ を 書き 込め ば . メイン ・ ブ ロッ Nr 
@ 9 CS の 2 80 (ある い は OFC80H) の アド レス を アク セス する と , 同じ デー 











CPU 制御 タ で ある $AA と いう 値 を 読み 取る と が 可能 で ある . ま た, メ 


イン と サブ の 事象 が 送 の 関係 に な っ て も 上 記 が 成立 する . 
た だ し , 同時 刻 に メイ ン と サブ プ 側 の 両方 か ら メ モリ を アク セ 


に 


メイ ン CPU/ サ プ CPU の イン ター フェ イス 





ス す る こと は 不可 能 で ある た め , メイ ン 側 より 共有 スズメ モリ を ア 
メイ ン CPU 部 と サブ CPU 部 の イン ター フェ イス は 以下 の 3 クセ ス す る と き に 限り . まず サブ CPU を ホー ルト 状態 に し た 後 
種類 に 分 類 で きる . に , 共有 メモ リ を アク セス し な けれ ば な ら な いと いう 制限 を つ 
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ける . 実際 の 共有 メモ リ 領 域 に は CRT 表 示 の た め の ラ イン ・ デ 
ー タ , メ イン か ら サ プ ブ CPU へ 通知 する た め の コ マン ド ・ レ ジス 
タ 、 サ プ CPU か ら メ イン CPU へ 通知 する た め の ス テー タス ・ レ 
ジス タ 。 タイ マ ・ カ ウン ト ・ レ ジス タ な ど が 合 ま れ て い 

サブ CPU 側 で メイ ン CPU か ら の コマ ンド を aa 実 
行 する 場合 に , 実行 が 終了 し な い 間 に メイ ン CPU 側 か ら 新 し い 
コマ ンド を 受け 付け な いよ うに , サブ CPU は 命令 実行 中 は メイ 
ン CPU 側 へ Busy 信 人 号 (1 : 命令 実行 中 、 0 : 実行 終了 Ready 状 
態 ) を 送出 する . Busy 信 号 は サブ プシ ステ ム 側 で は $AFE0 の ビ 
ッ ト 0, BUSY フ ラグ ・ ビ ッ ト , メイ ン ・ シ ステ ム 側 で は $FD 
05 の ビッ ト 7 で それ ぞ れ 見 る こと が で きる (一, 回). 

まだ た, メイ ン ・ シ ステ ム が サブ CPU に ホー ルト を か け , サブ 
CPU が ホー ルト 状態 に な る と ,. ハー ドウ ェ ア に より 自動 的 に 
Ready 状 態 か ら ぬ け , Busy 信 号 を 出す . さら に 例外 と し て , サ 
プ CPU が Busy 状 態 で あっ て も , メイ ン CPU は IRQ 信号 に よっ 
て サ プ CPU の BUSY 状 態 を 解除 する こと が で きる . た だ し , こ 
の と き の Busy 信 号 は サブ プ CPU が ソフ トウ ェ ア で お ろ さ な けれ 
ば な ら な い . 
細 サ プシ ステ ム MIX レ ジス タ 


bit7 | bit6 bit5 bit4 bit3 bit2 











BUSY 
AFEO | の の 
R/W あ き 引 
Busy 
1 
Ready 





加 メ イン ・ シ ステ ム イン ター フェ イス ・ レ ジス タ 
bit6 | bit5 bit4 bit3 bit2 bit1 bit0 




















ゃ FD05 
Read 

















メイ ン CPU と サブ CPU の 共有 メモ リ 領 域 の 同時 アク セス を 
避け る た め ,. メイ ン CPU か ら 共 有 メ モリ を アク セス する 場合 
は , まず HALTT 有 要求 信 号 を サブ CPU へ 送出 し . サ プ CPU を ホー 
ルト 状態 に し た 後に メモ リ ・ ア クセ ス を し な けれ ば な ら な い . 

ホー ルト 状態 の 解除 も メイ ン CPU が 共有 メモ リ 領 域 の アク モ 
人 し た 時 点 で メイ ン CPU が 行なう . サ ブ の HALT 要 求 は 
9 5 ドレ ス $FD05 の ビッ ト 7 の サブ プ ホ ー ル ト 要 求 ビ ッ ト 
に 1 を 書く こと で , また 解除 は 0 を 書く こと で 行なう . 央 に こ 
の レジ スタ を 示す . 

回 サ プ ・Z80 イ ンタ ー フ ェ イ ス ・ レ ジス タ 


bit5 | bit4 | bits | bitz 








メイ ン ・ シ 
ステ ム 
$FD05 
Write 
(リセ ッ ト 時 
0) 
② アテ ンション ・ レ ジス タ 

アテ ンション ・ レ ジス タ に よる 通信 は ,. サブ プ シ ステ ムー メイ 
ン ・ シ ステ ム の 単 方 向 の み 行 な われ , 以下 に ボボ す よ うな 3 バイ 
トト 以下 の デー タ の 転送 の 場合 の み 用 いら れる 

但 イ ンタ ー バ ル ・ タ イマ ・ ク ロッ ク 

@ プ ログ ラマ ブル ・ フ ァ ン クシ ョ ン ・ キ ー 

アテ ンション 割り 込み は 6809CPU ボ ー ド で は FIRQ に ., 8088 
CPU ボー ド で は INTR に , それ ぞ れ つなが っ て いる . 

サ プ シ ステ ム は アテ ンション ・ レ ジス タ の メイ ン ア ッ ク ・ ビ 
ッ ト を 見 て 。 メ イン ・ シ ステ ム が すでに アテ ンション ・ デ ー タ ・ 
レジ スタ の 内 容 を 使っ た こと を 確認 し た の ち . アテ ンション ・ 
デー タ ・ レ ジス タ に デー タ を 書き 込み , 略 に 示す サブ プア ドレ 
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ス $.AEEB7。 アテ ンション HEIRQO ラ ラグ < レジ スク タ を アク セス し 
て メイ ン ・ シ ステ ム に FIRQ (ある い は INTR) を か ける . この 
と き , ハー ドウ ェ ア で メイ ン ア ッ ク ・ ビ ピット は OFF に な る 

メイ ン ・ シ ステ ム は 割り 込み 処理 ルー チン 内 で , 回 に 示す 
FIRQO フ ラグ ・ レ ジス タ の ビッ ト 0 の アテ ント ・ フ ラグ を 見 て サ 
プ か ら の アテ ンション 割り 込み で ある こと を 確 め た 上 で , 固 
に 示す メイ ン 側 の アテ ンション ・ デ ー タ ・ レ ジス タ か ら デ ー タ 
を 受け 取る . その の ち , に 示す アテ ンション アッ ク ・ レ ジ 
スタ を アク セス する こと で サブ シス テム の メイ ン ア ッ ク ・ ビ 
ッ ト が ON に , また メイ ン ・ シ ステ ム に か か っ て いた 割り 込み が 
解除 され . も と の 状態 に 戻る . 


較 サ プシ ステ ム ・ ア テン ショ ン FIRQ フ ラグ ・ レ ジス タ 





ああ 多 を 汗 bit7 | bit6 | bit5 | bie | bits | bi2 | bi | bit0 
の 1 
SAFE7 アク セス する だ け で メイ ン ・ シ ステ ム へ 割り 込み を か ける 。 
Access 





回 メイ ン ・ シ ステ ム FIRQ フ ラグ ・ レ ジス タ 

メイ ンー シト | bit7 | pie | bits | bi | pis bitl 
ステ ム 
SFD04 
Read 














未 使 用 

















回 メイ ン ・ シ ステ ム アテ ンション ・ レ ジス タ 


を を 生 ン 多 視 bit7 | bit6 | bit5 | bi | bit5 | bit2 | piti | bit0 








テム ーー レレ こ * デ デ タ 
*FD20 バア デン の: 時 の ま 0 
Read D: Ds Ds D, D。 D。> Di Ds 
*FD21 アテ ンション ・ デ ー タ キ 1 
Read 
D: D。 Ds D, Ds Ds Di D。 
FD22 の デンジ 且 シ と ジー タ | 汰 2 
Read 
D: Ds Ds D, Ds Ds Di Ds 


























罰 メ イン ・ シ ステ ム アテ ンション アッ ク ・ レ ジス タ 








あま 光導 bit7 | bit6 | bit5 | bit4 | bit5 | bit2 | bitl | bit0 
テム 

ea 拓 ここ に ライ ト す る こと に よっ て , サ プ の メイ ン ア ッ ク ビ ピッ ト が 
Wiit ON に な り , メ イン に か か っ て いた 割り 込み が 解除 され る 。 

rte 





3⑬③ キャ ン セ ル IQR 

サブ プ CPU が メイ ン の コマ ンド を 実行 中 で あっ て も , メイ ン 
CPU は 必要 に 応じ て サブ CPU に IRQ 割り 込み を 発生 きせ , 強制 
的 に コマ ンド の 実行 を 解除 する こと が で きる . 

回 に 示す キャ ン セ モル IRQ ビッ ト に 1 を 書い て , その の ち 再 び 
0 に 戻す と サブ プシ ステ ム に キャ ン セ ル IRQ が か か る . 

サフ シス テム の IRQ 割り 込み は 、 メ イン か ら の キャ ン セ モル の 

系統 の みな の で , サブ シス テム は IRQ 割り 込み が か か る と す 
ぐに , キャ ン セ モル 処理 を 始め る こと が で きる . サブ プ シ ステ ム に 
か か っ た IRQ は サ プ ア ドレ ス $AFE5.、 キャ ン モ セル IRQ クリ ア 
レジ スタ を 読み 出す だ け で 解除 する こと が で きる . キャ ン セ ル 
IRQ クリ ア ・ レ ジス タ を 回 に 示す . 
回 サ プ シ ステ ム ・ キ ャ ン セ ル IRQ ク リア ・ レ ジス タ 


サブ シュテ 還 没 較 配 避 周 四 区 区 症 還 3 


bit2 | bitl | bit0 


ム 
AFE5 Read す る こと で IRQ を 解除 する 
Read 








メイ ン CPU Z80CPU の 切り 換え 

基本 的 に は メイ ン CPU か ら Z80CPU へ の 切り 換え は , $FD05 
サブ プ , 乙 80 イ ンタ ー フ ェ イ ス ・ レ ジス タ の ビッ ト 0 に 1 を 書く こ 
と で ,。 また Z80 か ら メ イン CPU へ の 切り 換 そ は 0 を 書く こと で 








FM-11[ ハ ー ト 仕様 」 


図 14 CPU 切り 換え ロジ ッ ク 


メイ ン DB0 


*FD05W 


* RESET 


Z80 め ゅ 


CPUSEL 


HACK09 


HACK88 





行なわ れる . 図 14 に CPU 切り 換え ロジ ッ ク を 示す . 

リセ ッ ト 直 後 は L2 の Q 出 力 は 0 で ある の で , * WAITZ が 有効 
で あり , 6809 と 8088 の 選別 は CPUSEL に よっ て 決ま る . どちら 
に せよ , この まま の 状態 で は Z80 に wait が か か り 続 け 、Z80 は ア 
ドレ ス 0000H で 止ま っ た まま で ある . 

メイ ン CPU が $FD05 の ビッ ト 0 に 1 を 書く と L1 の Q が 1 
に な り , これ が Z80 ぁ る で サン プル され て L2 の Q 出 力 と な る . L2 の 
Q が 1 に な る と , メイ ン CPU の *HALT が アク ティ ブ と な り 、 
し ば らく の ち CPU が 止ま っ て HACK 信号 が 1 に な り G4 の 出力 
が 1 に な る . その 結果 ,G3 の 出力 が 0 と な っ て *WAITZ が 解除 
と な っ て Z80 が 動き 出す . Z80 か ら メ イン CPU に 切り 換え る こ 
と も これ と 同様 に し て 行なわ れる . 

Z80CPU ボ ー ド が 実装 きれ て いな いと き は 、 2Z80 ぁ が 1 に な っ 
て いる の で , メイ ン CPU が $FD05 の ビッ ト 0 へ 書き 込ん で も L 
2 に その 情報 が 伝わら ず , メイ ン CPU が その た め に 止ま る こと 
は な い . 

Z80CPU ボ ー ド は 設計 上 , メイ ン D-RAM, I/O の $FD05、Z 
80CPU ボ ー ド 内 の Z80 用 バン ク ・ レ ジス タ 、 共有 スズメ モリ 、i8251 
A の リー ド お よび ライ ト は 保障 し て いる が , それ 以外 の IL/O, メ 
モリ は アク モス の 保障 を し て いな い . し た が っ て , その よう な 
I/O を アク セス する と き は , いっ た ん 6809 ま た は 8088CPU に 制 
御 を 移し . I/O を アク セス し て メモ リ に デー タ を 展開 し て も ら 
っ て お いて か ら , Z80 に 再び 制御 を 戻し . この デー タ を 使う と い 
う 形 式 を 取る . 

また , CPU を 切り 換え た と き に 割り 込み が ば いる と , CPU の 
切り 換え を ダイ ミン グ に よっ て は , 双方 の CPU が 割り 込み 要求 に 
応答 し な い (いわ ゆる “抜け 7) か 、 あ る い は 双方 共 割 り 込み 処 
理 を 行なっ て し まう (いわ ゆる 重複?) が 発生 する 可能 性 が あ 
る . し た が っ て CPU の 切り 換え 時 に は , 割り 込み の 発生 を 原則 
と し て 禁止 し な けれ ば な ら な い . 

Z80CPU は ほ は リセット 後 , 0000H か ら リ スタ ー ト する よう に な 
っ て いる だ ため, メイ ン CPU が この アド レス に ジャ ンプ 命令 を 記 
込 し 。 ユー ザー プロ グラ ム へ 飛ば す よ うに し て お く 必 要 が ある . 

Z80 用 バン ク ・ レ ジス タ は 自分 自身 は も と より . メイ ン CPU か 


*HALT09 


* ま HALT88 


* WAITZ 


表 9 Z80 用 バン ク ・ レ ジス タ 





$FD2F 
Write 

(リセ ッ ト あ き 
時 0 ) 














ら も 書く こと が で きる . この レジ スタ の 内 容 を 上 位 4 ピット と 
し て Z80 の アド レス $4000 一 $ BFFF の 領域 を バン ク ・ ア ドレ ス 
と する . 表 9 に Z80 用 バン ク ・ レ ジス タ の 構成 を が す . 


ニー ニー ニー ニーーー ニ ーーー ニー ニーーーーー ニ ーーーー ニ ーー ニーーーー ニ ーー ニーーーーーー ニ ーーー デー 


割り 込み 


ニー ニーーーー ニ ーーーーー ニ ーーーー ニ ーー ニーーーーーー ニ ーー ニーー ニ ーーーー ニ ーー ニー ニー ニー デー 


6809CPU ボ ー ド 


6809CPU は NMI, IRQ. FIRQ の 3 種 の 割り 込み を サポ ー ト し 
て いて , 各 割 り 込み は 表 10 に 示す アド レス か ら そ の 割り 込み も 
と が わか る . 
① NMI 割 り 込 み 

DMA タ イム ・ オ ー バ パー : ホー ルト ・ バ バー スト ・ モ ー ド の DMA 
転送 時 ,、I/O と DMA コ ント ロー ラ と の 間 で DMA 転 送 の や り と 
り が 正常 に 行なわ れ な か っ た 場合 、 シ ステ ム は デッド ロッ ク を 
起こ し て し まう た め 、 こ れ を 避け る た め に 一 定時 間 以 上 DMA 
が 終了 し な い 場 合 は 強制 的 に DMA コ ント ロー ラ に リセ ッ ト 
を か け て DMA を 終了 させ る と 共に メイ ン CPU に NMI 割 り 込 
み を 発生 きせ て DMA 転 送 が 正常 終了 し な か っ た こと を 通知 す 
る . 

拡張 メモ リ ・ パ リティ 割り 込み : オプ ショ ン の 拡張 メモ リ に 
付い て いる ,、 パリ ティエ ラー で 生じ る 割り 込み で ある . 割り 込 
み 許 可 レジ スタ の ビッ ト 6 を 0 に する こと に よっ て この エラ 
ー 検 出 機能 を 止め る こと が で きる 。. 
② FIRQ 割 り 込 み 

ATTENTION : サブ CPU が メイ ン CPU へ 通知 する 割り 込 
み で 。 インター バル ・ タ タイマ, グロック 。 プ ログ ラマ プル ・ フ 
ァ ン クシ ョ ン ・ キ ー が 要因 で ある . 

Break キ ー : キー ポー ド の Break キ ー か ら の 直接 の 割り 込み で 









233 


表 10 6809 割 り 込 み レ ジス タ 




































RS-232C キー ボー ド 拡張 IRQ DMA(09) 5"FD LPAcK 
IRQ 0: 割 り 込み な | 0: 割 り 込 みな | 0: 割 り 込 みな | 0: 割 り 込 みな | 0: 割 り 込み な 0: 割 り 込 みな | 0: 割 り 込み な 
$FD03 らら グセ 用 R し し し 1 し 未 使 用 し し 
1: 割 り 込 みあ | 1: 割 り 込 みあ | 1: 割 り 込み あ | 1: 割 り 込み あ | 1: 割 り 込み あ 1: 割 り 込 みあ | 1: 割 り 込 みあ 
り り り り り り り 
外部 FIRQ Break キ ー ATTENT 
FIRQ 0: 割 り 込 みな 0: 割 り 込み な 
SFD04 ウラ ラウ ンジ スグ R し き 未 使用 し 
1: 割 り 込 みあ 0: キ ーOFF | 1: 割 り 込み あ 
り 1: キ ーON り 














拡張 メモ リ |DMA 
バリ ティ | タイ ム ・ オ ー 














NMI 
ゃ FD57 R バー 
割り 込み レジ スタ 
1: な し 0: な し 
0: あ り 1: あ り 











ある . 離さ きれ る まで か か りっぱ な し に な っ て いる 。. 
拡張 FIRQ : 100 ピ ン バ ス の *FIRQ2 が つなが っ て いる . 拡張 ス 
ロッ ト に は いる モジ ュー ル か ら の 割り 込み で ある . 
③ IRQ 割り 込み 
RS-232C: メイ ン ・ ボ ポー ド 上 の RS-232C 0 の ポー ト ) か ら 
の 割り 込み で , i8251A の TxRDY, RxRDY, SYNDET の OR に 
な っ て いる . 
キー ボー ド : キー ボー ド ・ エ ンコ ー ダ か ら の キー デー タ ・ リ 
ー ド 有 要求 割り 込み 。 キー ボー ド ・ エ ンコ ー ド ・ デ ー タ は メイ ン 
CPU, サブ プ CPU の どちら で も 読み 取り が 可能 で ある が , 以下 の 
条件 が ある . 
1) キー ボー ド 割 り 込 み ビ ッ ト が $FD02 の ビッ ト 7 に あり . 
メイ ン CPU は この ビッ ト に 1 を 立て る こと に より 。 キ ー ボ ポ 
ー ド か ら の 割り 込み が メイ ン CPU の IRQ に は いる よう に 
な っ て いる . 電源 リス ター ト 直 後 は この ビッ ト は 0 に な っ 
て お り , サブ CPU が キー ボー ド か ら の 割り 込み を FIRQ で 
受け 取る よう に な っ て いる 
2) キー デー タ を 読み 取る こと に より , レジ スタ 類 は 自動 的 
に クリ ア さ れる . すなわち ,。 デー タ を 2 度 読 むこ と は で き 
な い . 
拡張 IRQ : 100 ピ ン バ ス の * ネ IRQ2 が つなが っ て いる . 拡張 スロ 
ッ ト モ ジュ ー ル か ら の 割り 込み で ある . 
DMA : 6809CPU ボ ー ド 内 の DMACHD46504 か ら の 割り 込み で , 
DMA 転 送 終 了 の と き に メイ ン CPU に IRQ を か ける . 
5? フ ロッ ピ ィ っ ディ スク : 本 体内 の FDC が CPU に 与え られ た 
コマ ンド を 終了 し た と き に , 割り 込み を 発生 する . FDC 内 の ス 
ー タ ス ・ レ ジス タ の リー ド か 湊 の コマ ンド の ライ ト で 復帰 す 





の t 


LP Ack: ラ イン プリ ンタ か ら の Ack 信 号 に より 割り 込み が 
か か る . 
ビッ ト 7 以外 の 全 ビ ッ ト で . 0 の と き は 割り 込み を 付 止 し . 1 
の と き に 割り 込み を 許可 する . 

オプ ショ ン ・ カ ー ド 用 の IRQ フラ グ , マス ク ・ レ ジス タ は , 別 
に アド レス $FD2C に 設け て ある . 表 11 に 示す 各 ビ ッ ト の 内 容 
に つい て は , 各 オ プシ ョ ン ・ カ ー ド の 仕様 書 を 参考 の こと . ま 
だ た だ, この レジ スタ と $FD03 の 拡張 IRQ ビッ ト は 無関係 で ある . 


8088 CPU ボー ド 


8088CPU の 割り 込み 入力 は INTR と NMI の 2 本 で ある . NMI 
は 6809 の 場合 と 同様 に 、DMA の タイ ム ・ オ ー バ ー を 見 る の に 使 
っ て いる の で . IRQ と FIRQ は すべ て INTR で 処理 を 行なう こと 
に な る . 割り 込み も と を 知る た め の レ ジス タ は 、 表 10 よ り DMA 
タイ ム ・ オ ー バ ー と DMA (09) の ビッ ト が な く な っ た だ け で , 
残り の 割り 込み は 6809CPU の 場合 と まっ た く 同 じ で ある . また . 割 
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表 11 拡張 IRQ フラ グ ・ レ ジス タ 
拡張 IRQ 許可 レジ スタ 















$FD2C bit7 | bit6 | bit5 | bit4 | bit8 | bit2 
Read 拡張 |8"FD |LP1A |LP2A |IE*488 | HD 
RS ck ck reSer 0 
0: あ り | 0: あ り | 0: あ り | 0: あ り | 0: あ り | 0: あ り 
1: な し | 1: な し | 1: な し | 1: な し | 1: な し | 1 な し 
$FD2C RS /232C COM1 一 4 | LP1.2 18"FD 
Write | SsYNDIRxRDYITxRDY| AckE | 0: マス 
(セット lgT lpy pY | Na | ク reserve 
時 0 ) 0: マ ス |0: マ ス |0: マ ス |10: マ ス |1: イ ネ 
ク ク グ ク ー プ ブル 
1: イ ネ |1: イ ネ |1: イ ネ |1: イ ネ 
ー ブ プル | 一 プ ブル | 一 プル プル 


























表 12 8259A の IR 入 力 と 割り 込み 要因 
割り 込み 


入力 


























IR0 タイ マ iR5 8087, 拡張 IRQ, 
ユー ザ IRQ 
IR1 キー ボー ド , Break 
IIR6 5"FD 
IR2 (8"FD, HARD DISK) 
HI IR7 LP Ack 
1 ATENTION, 拡張 FIRQ 
ユー ザ FIRQ 
IR4 RS-232C 























り 込 み 許 可 レ ジス タ も 6809 の 場合 と まっ た く 同 様 に 使え る . 

8088CPDU ボ ー ド で は IRQ, FIRQ 割 り 込 み の よ うな レベ ル 割 
り 込み の コン トロ ー ル に MBL8259A-2 を 使っ て いる . 8259A の 
割り 込み 入力 と 各 康 と の 関係 を 表 12 に 示す . 

MBL8259A は MBL8086,8088 周 辺 の 割り 込み コン トロ ー ラ で 
以下 の よう な 特徴 を 持つ . 

信 8 レベ ル の 割り 込み を サポ ー ト . 

介 訓 り 込 み モ ー ド を プロ グラ マブ ル に 設定 する こと が で 

倫 各 割り 込み ご と に マス ク が で きる . 

8259A の 内 部 に は 、 CPU が リー ド あ る い は ライ ト で きる レジ 
スタ は 9 個 あ る が , 8251A と 同様 に 書き 込む 順に 従っ て 各 レ ジ 
スタ を 選択 し て いる た め 、 CPU の 1I/O ア ドレ ス 上 で は 2 バイト 
の み 占 め る . 

詳し く は 8259A の デー タ ・ シ ー ト 参照 の こと . 
デア シス テム 

サ プ シ ステ ム に 使用 し て いる MBL6809E に は 3 種 の 割り 込み , 
NMI、 IRQ, FIRQ が あり , 表 13 に 示す 目的 に 用 いて いる . その 


他 に RESET 入 力 が ある が , これ は シス テム の リス ター ト の 際 
に 用 いる . 


リコ 


る . 





表 13 サブ プシ ステ ム 割 り 込み 用 途 









サ プ ブシ ステ ム ・ イ ンタ ー 


20mS に 1 回 か か る 
バル ・ タ イマ 








メイ ン か ら の コマ ンド ・ キ ャ ン セ ル 要 求 . 要求 の ク 
IRQ キャ ン セ ル IRQ 


リア は キャ ン セ ル IRQ ク リア ・ レ ジス タ を リー ド す る . 
た 記 キー ボー ド あ る い は ライ ト ベ ペン か ら の 

FIRQ Ne ー ラ イト ペン | テー タ ready に よる 割り 込み 。 要 送 の ク 
リア は FIRQ ク リア ・ レ ジス タ を リー ド . 














FIRQ ク リア ・ レ ジス タ は ライ トペ ン 割 り 込 みか キー ボー ド 
割り 込み か を 識別 する ビッ ト が つい て いて , これ に より どちら 
の 割り 込み が か か っ た か を 区 別 す る . どちら の ビッ ト も 割り 込 
み が あ る と 1? に な る . また , この レジ スタ は 読み 出さ れる 
と その 内 容 を クリ ア し た 上 に , か か っ て いた FIRQ が 解除 され 
る よう に な っ て いる . 


ァ ァ テー テーーー ニ ーーーーーーーーーーーー ニ ーーーー ニ ーーーー ニ ーー ニーーーー ニ ーーーー ニ ーーー 


DMA 


DMA コ ント ロー ラ (以下 DMAC と 略す ) は 各 CPU ポ ボー ド に 
1 つ ず つ 織 っ て お り , 6809CPU ボ ー ド に は HD46504-2(MC68B 
44 相 当 ) が , 8088CPU ボ ー ド に は i8237A-5 が 使わ れ て いる . し 
た が っ て , DMA コ ント ロー ラ お よび バン ク ・ レ ジス タ は 各 CPU 
で 独立 の アドレス を 持っ て いる 


6809CPU り ボード 使用 時 


機能 
メイ ン ・ ア ドレ ス $FD40 一 $FD56 に DMAC 内 の レジ スタ 
が , $ FD94 一 $FD97 に DMA バ ンク ・ レ ジス タ が それ ぞ れ 割り 
当て られ て いる . さら に $FD57 に NMI 割 り 込 み レ ジス タ / 
DMA 要 求 コ ント ロー ラ が 割り 当て られ て いる 
DMA 空 間 は CPU の ウィ ンド ウ お よび MMR に 依存 し な い 絶 
対 ア ドレ ス 空 間 と し て 扱わ れ , アド レス の 下位 16 ビ ッ ト を 
DMAC が , 上 位 4 ビッ 全う ク ・ レ ジス タ が 発生 する 
し た が っ て , 1 回 の DMA 転 送 で 動く デー タ の 量 は 最大 64K バ イ 
ト で あり , か つ 下 位 16 ビ ピット か ら の 桁 あ ふれ を 生じ な いよ うに 
DMAC の 設定 , バン ク ・ レ ジス タ の 設定 を 行なう 必要 が ある 
割り 込み 
6809CPU ボ ー ド 使用 時 の み 、DMAC 自 生か ら IRQ を 発生 で き 
る .DMAC か ら の IRQ の 発生 は $FD03 の IRQ フラ グ ・ レ ジス タ を 
見 る こと で 知る こと が で きる . 表 14 に IRQ フラ グレ ジス タ を 示す . 
表 14 IRQ フラ グ ・ レ ジス タ 























bit 3 bit 1 bit 0 
SFD03 
Ready 未 使用 
8088CPU ボ ー ド 使用 時 
機能 


I/ 〇 O ア ギレ ス 0010H 一 001FH に DMAC 内 レジ スタ が , 0020H 
ー0023H に DMA バ ンク ・ レ ジス タ が それ ぞ れ 割り 当て られ て い 
る . 

DMA 空 間 は アド レス の 下位 16 ビ ッ ト を DMAC が 上位 4 ビ 
ッ ト を DMA バ ンク ・ レ ジス タ が 発生 する . し た が っ て 1 回 の 
DMA 転 送 で 動く デー タ の 量 は 最大 64K バ イト で あり , か つ ト 下位 
16 ビ ッ ト か ら の 桁 あ ふれ を 生じ な いよ うに DMAC の 設定 , バン 
ク ・ レ ジス タ の 設定 を 行なう 必要 が ある . 

8088CPU を 使っ た DMA で は DMA 中 で も CPU が 動く の で , ソ 
フト ウェ ア で 監視 する こと で DMA に よる デッド ロッ ク を 防ぐ 
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こと が で きる . ゆえ に , 6809 の 場合 と 違っ て , タイ ム ・ オ ー バ 
ーー 用 の ハー ドロ ジッ ク を 持っ て いな い . 


ァ ァ テー テー テー テー テー テー テー テー テー テー アー アー ツー アツ ーー ンー ンー mmm 


BASIC HOM カ ー ド (ST の み ) 


テー テー テーー テ ーーーー テ ーー テー テー テー テー テー テー テー テー テー テー テー テー テー テー 


BASIC ROM カ ー ド は FM-11ST に の み 標 準 実 装 さ れ , EX, 
AD で の 5 “FEDC カ ー ド が 実装 され る コネ クタ に 実装 し て 用 い 
る . し た が っ て ,、 メイ ン ・ プ ロッ ク の アド レス ・ マ ッ プ 上 , 57 
FDC と 同じ アド レス に 配置 され る . 

BASIC ROM カ ー ド の 制御 は , BASIC ROM セ レク ト ・ レ ジ 

スタ と BASIC ROMM デ ー タ ・ レ ジス タ の 2 つ で 行なわ れ , セレ 
クト ・ レ ジス タ で カード 内 の ROM の セレ クト と 内 部 カウ ンタ の 
リセ ッ ト を , デー タ ・ レ ジス タ で ROM 内 の デー タ の 受け 取り と 
内 部 カウ ンタ の カウ ント ・ ア ッ プ を 行なう . 表 15。 16 に 構成 を 
示す . 

表 15 BASIC ROM デ ー タ ・ レ ジス タ 


bit7 | bite | bit5 | bit4 | bita | bitz | giti | bto0 


























SFDIF 
Read | p, D。 Ds D, D。 Dz Di D。 
表 16 BASIC ROM セ レク ト ・ レ ジス タ 
bit7 | bite | bit5 | bit4 | bita | bitz 
$FDIF ROM2 | ROMI 
Write 3 し 0 老 
あ き レク ト | レク ト 
0: 非 10 : 非 
セレ クト | セレ クト 

















BASIC ROM カ ー ド は , CPU が レジ スタ を 介し て ROM の デ 
ー タ を 受け 取り ,. これ を RAM 上 に 展開 し て 用 いる と いう よう 
に 使用 する . し た が っ て BASIC ROM カ ー ド 内 の ROM に CPU 
の 制御 を 渡す こと は で き な v 

BASIC ROM カ ー ド の 使用 方 法 は 次 の よう に し て 行なう 
①BASIC ROM セ モレ クト ・ レ ジス タ で 必要 な デー タ の は いっ て 
いる ROM を 選択 する . この 際 , 内 部 の ROM ア ドレ ス ・ カ ウン 
タ が リセ ッ ト さ れる 
②BASIC ROM デ ー タ ・ レ ジス タ よ り 必 要 数 だ け デ ー タ を 読み 
出す . デ ー タ ・ レ ジス タ を 1 回 アク モス する ご と に ., 内 部 の ROM 
アド レス ・ カ ウン タ が イン クリ メン ト さ れる . し た が っ て , CPU 
は デー タ ・ レ ジス タ を 単に 連続 アク セス する だ け で 良い . 
⑧③BASIC ROM セ レク ト ・ レ ジス タ で 両方 の ROM を 非 モ レク 


ト に する . 


アク セス ・ ア ドレ ス と 
- ディ スプ レイ ・ ア IN 


FM-11 の グラ フィ ッ ク VRAM は 全 i 部 で 192K バ イ ト あ り , 3 
バン ク の 複数 ペー ジ と いう 形 で サブ プ CPU は 管理 し て いる . バン 
ク お よび ペー ジ に 関し て は 表示 系 と アク セ モス 系 が 分 離し て お り , 
表示 画面 に 使わ れ て いる エリ ア 以 外 の エリ ア を CPU が 書き 換 
える こと が 可能 と な っ て いる . この た め 、 画面 の 大 幅 な か 
そえ を , あたかも 曖 時 に 行なっ た よう に 見 せる こと も で き 

表示 系 の バン ク ・ ペ ー ジ の コン トロ ー ル ・ ビ ッ ト は サ プ ア 選 
レス の $AFE2 に あり , グラ フィ ッ ク VRAM デ ィ ス プレ イ ・ モ 
ー ド ・ レ ジス タ と 呼ぶ 構成 を 表 17 に 示す . 

表 17 グラ フィ ッ ク VRAM 

ディ スプ レイ ・ モ ー ド ・ レ ジス タ の 構成 
bit3 | bit2 bit1i 、bitO 
バン ク ・ セ レク ト ・ 
に ベン 人 





















に 環 bit5 還 当 を 












SAFE あき 0 : 表 示し な い 
1 1 : 表示 する 
リセ ッ ト 時 clear Ps2 | PSI |RAM ヨ RAM2IRAM1 
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15 DMA 周 辺 ブ ロッ ク 





ADDRESS BUS 
DATA BUS 


MMR. ウ ィ ン ド ウ DMA バ ンク ・ レ ジス タ 


TxAKA TxAKB 


バス 切り 換え 


の トー ダグ 


TxSTB 


*DMAG 
TxSTB 


MBL6809E HD46504 MB14413 


*BUSACK 0 一 3 


* BUSREQ 0 一 3 





図 16 DMA 周 辺 ブ ロッ ク 





ADDRESS BUS 
DATA BUS 


DMA バ ンク ・ レ ジス タ 


*BUSACK0 一 3 


*BUSREQ0 一 3 


S0,.S1.S2 DMAHACK 


MBL8088 L8237A 
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図 17 表示 系 バン ク ・ ペ ベ ページ コント ロー ル ・ ロ ジッ ク と グラ フィ ッ ク VRAM ア ドレ ス 










グラ フィ ッ ク VRAM 


グラ フィ ッ ク ・ 
メモ リ ・ 

アド レス 
発生 部 






グラ フィ ッ ク VRAM デ ィ ス プレ イモ ー ド ・ レ ジス タ 
ベ ページ ・ セ レク ト ・ ビ ピッ ト PS2 ーー ゴ 








モー ド 設 定 ビ ッ ト M1 一 ーーーーー 





ペー ジャ セク トド 眉 トーPS9 ーー デー デー デー マデ ーー デー デー 












バン ク ・ セ レク ト ・ ピ ビッ ト RAM 1 






RAM 2 
RAM 3 














ッ パ レッ ト ・ レ ジス タ が 初期 状態 に ある と き ,、 RAM3 一 RAM1 うに な る .。 ペー ジ ・ モ レク ト ・ ビ ピッ ト と グラ フィ ッ ク VRAM に 


ケ そ えら れる アド レス と の 関係 を 表 18 に 示す . 
表 18 ペー ジ ・ セ レク ト ・ ビ ッ ト と グラ フィ ッ ク VRAM の 
アド レス の 関係 


と グラ フィ ッ ク の 人 色 と は 次 の 関係 に ある . 
@ Blue の ドッ ト ・ RAM1 内 の デー タ 
@ Red の ドッ ト ーー RAM2 内 の デー タ 
@。 Green の ドッ ト 一 RAM3 内 の デー タ M 1 | 
表示 系 の バン ク ・ モ レク ト ・ ピ ビッ ト は , その ビッ ト に 該当 す に SNBSIIISSI| 
る RAM 内 の デー タ を 画面 に 表示 する か し な いか を 決め る ( ア 
クティ ブフ High) . 例 を あげ る と , RAM3 の み 0 で RAM2、1 が 1 
の と き は , グラ フィ ッ ク 画 面 は パレ ッ ト ・ レ ジス タ が 初期 状 右 
に ある と き は 黒 , 青 、 赤 ., マゼンダ の 4 色 の 表示 に な る . 具体 モー ド 設 定 ビ ピット M1 は 400 ド ッ ト の タイ ミン グ 時 に 400 ド ッ 


リ 1 


0 0 $0000 一 $3FFF $0000 一 $7FFF 
0 1 $4000 一 $7FFF $0000 一 $7FFF 
1 0 
1 1 











$8000 一 SBFFF $8000 一 $FFFF 
| $C000 一 SFFFF $8000 一 $FFFF 




















的 な 使い 方 と し て は OHP の よう に 表示 図形 の 重ね 合わ せ が 明 
時 に 行なう 場合 な ど で あ る . 

ペー ジ ・ セ モレ クト ・ ビ ッ ト は 2 ビット で 1 組 の 構成 に な っ て 
お り , この ビッ ト の 内 容 が グラ フィ ッ ク VRAM の アド レス の 上 
位 2 ビッ ト に な る . た だ し , モー ド 設 定 ビ ッ ト M1 の 値 に よっ て 
は , PS1 の 内 容 が 無効 に な り , ペー ジ 選 択 は PS2 の み で 行なう よ 


ト の 表示 に する か , 擬似 的 に 200 ド ッ ト の 表示 に する か を 決め 
る . 1 に する と 400 ド ッ ト に . 0 に する と 200 ド ッ ト の 表示 に な 
る (た だ だし, RAM の 読み 出し タイ ミン グ は どちら で も 同じ で あ 
る ). この ビッ ト の み 、 表示 系 と アク セス 系 が 共通 で ある . ま 
だ た ,200 ド ッ ト の タイ ミン グ で この ビッ ト に 1 を 書い た と き の 動 
作 は 保障 し な い . 
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図 18 アク セス 系 バン ク ・ ペ ー ジ コン トロ ー ル ・ ロ ジッ ク と CPU アド レス ・ グ ラフ ィ ッ ク VRAM ア ド レス 





CPU アド レス 空間 
$0000 


$7FFF 


グラ フィ ッ ク VRAM ア ッ プ デイ ト ・ レ ジス タ 
ベー ジ ・ セ レク ト ・ ビ ピッ ト PS 2 - 一 ゴ 


グラ フィ ッ ク VRAA デ ィ ス プレ イ ・ モ ー ド ・ レ ジス タ 
モー ド 設 定 ビ ピット M1 一 一 ーーーーーーー 


グラ フィ ッ ク VRAM ア ッ プ デイ ト ・ レ ジス タ 
ペー ジ ・ セ レク ト ・ ビ ピット PS1 


グラ フィ ッ ク VRAM ア ッ プ デイ ト ・ レ ジス タ 
バン ク ・ セ レク ト ・ ビ ピット RAM 1 
















RAM 2 
RAM 3 


CPU リー ド 


グラ フィ ッ ク VRAM ア ッ プ デイ ト ・ レ ジス タ 
バイ ト ゼ ロ ・ ラ イト ・ ビ ピッ ト RAM 1 


RAM 2 
RAM 3 


CPU デー タ ・ バ ス 


リー ドア ウト ・ コ ント ロー ル ・ ビ ッ ト 
RC2, RC1 





アク セス 系 の バン ク ・ ペ ー ジ コン トロ ー ル ・ ビ ッ ト は サ プ ブ ア 
ドレ ス の $AFE1 と $AFE3 に あり , それ ぞ れ グラ フィ ッ ク 
VRAM アッ フ プ ' デ イト ・ レ ジス タ , グラ フィ ッ ク VRAM ペ ー ジ ・ 
セレ クト ・ レ ジス タ と 呼ぶ . 

アク セス 系 の バン ク ・ セ レク ト ・ ビ ピット は , その ビッ ト に 譜 
当 す る RAM へ デー タ を 書く か どう か を 決め る (アク ティ デブ 
High). 例 を あげ る と , RAM3 の み 0 で RAM2.1 が 1 の と き は , 
CPU の ライ ト 動 作 で RAM2,、 RAM1 に 対応 する RAM に デー タ 
が 書き 込ま れ , RAM3 は 影響 を 受け な い . この よう に 1 回 の ラ 
イト 動作 で 最大 3 つの バン ク 内 の デー タ を 書き 換え る こと が で 
きる . この ビッ ト は ライ ト 動 作 の み 関 与 し リー ド 時 は この ビ 
ッ ト が 0 の RAM の 内 容 で も 読み 出す こと は 可能 で ある . 

バイ ト ゼ ロ ・ ラ イト ・ ビ ピット は バン ク ・ セ レク ト ・ ビ ッ ト が 
0, つま り ラ イト ・ セ レク ト さ れ て いな い バ ンク に 対し て , 他 
の バン ク の ライ ト 動 作 と 同時 に 0 を 革 く よう に 指定 する ビッ ト 
で ある (アク ティ ブ Low). 用 途 と し て は ,、 バイ ト ・ オ リエ ン テ 
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グラ フィ ッ ク VRAM 













$0000 


$8000 


$C000 


$FFFF 

















ッ ド に 区 切ら れ た 図形 (漢字 etc.) の 書き 換 そ を な ど が あげ られ 
る 。 

リー ドア ウト ・ コ ント ロー ル ・ ビ ッ ト は グラ フィ ッ ク VRAM 
の どの バン ク を 読み 出す か を 指定 する ビッ ト で , 2 ビット 1 
組 に な っ て いる . リー ドア ウト ・ コ ント ロー ル ・ ビ ピット と バン 
ク の 関係 を 表 19 に 示す . 
表 19 リー ドア ウト ・ コ ント ロー ル ・ ビ ッ ト と バン ク の 関係 


アク セス され る RAM 


RAM 1 





RAM 2 





RAM 3 




















デー タ ・ バ ス 上 の デー タ は 不定 





ペー ジ ・ セ レク ト ・ ビ ッ ト は 2 ビッ ト で 1 組 の 構成 と な っ て 
お り , この ビッ ト の 内 容 が グラ フィ ッ ク VRAM の アド レス の 上 
位 2 ビ ピッ ト に な る . た だ し , グラ フィ ッ ク VRAM デ ィ ス プレ イ 
モー ド ・ レ ジス タ の モー ド 設 定 ビ ッ ト M1 の 値 に よっ て は , PS1 





FM-11 1 ハード 仕様 」 





図 19 グラ フィ ッ ク VRAM ア ドレ ス 生 成 部 ブロ ッ ク 図 


マル チ プ ブレ クサ 


グラ フィ ッ ク ・ ス ター ト ・ ア ドレ ス ・ レ ジス タ 
(1 フレー ム の 先頭 アド レス の ラッ チ ) 


VSYNC 
End of raster 


アド レス ・ カ ウン タ 
(アド レス の 生成 ) 


ラス タ ・ ス ター ト ・ 
アド レス ・ ラ ッ チ 

0 
アド レス の ラッ チ 








カウ ンタ ・ ク ロッ クッ ーー 





の 値 が 無効 に な り ,、 ペー ジ 選 択 は PS2 の み で 行なう よう に な る . 


グラ フィ ッ ク VRAM デ ィ ス プレ イモ ー ド ・ レ ジス タ 中 の ペー 
ジ ・ セ モレ クト ・ ビ ッ ト と 異な る 値 に する こと に より , 画面 表示 
用 の エリ ア で な い エ リア に CPU が 書く こと が で きる . ペー ジ ・ 
セレ クト ・ ビ ッ ト と グラ フィ ッ ク VRAM に 与え られ る アド レス 
と の 関係 は 表示 系 と 同じ で あり , 家 18 が その まま 使え る . 

表示 系 の バン ク ・ ペ ー ジ コン トロ ー ル ・ ロ ジッ ク と グラ フィ 
ッ ク VRAM と の 関係 を 図 17 に 、 ア クセ ス 系 の バン ク ・ ペ ー ジ コ 
ント ロー ル ・ ロ ジッ ク と CPU アド レス ・ グ ラフ ィ ッ ク VRAM と 
の 関係 を 図 18 に 示す . 

FM-11 の グラ フィ ッ ク 画 面 は スク ロー ル が 可能 に な っ て い 
る が , これ は 画面 の 左上 の 点 に 対応 する メモ リ の アド レス を 
CPU が 任意 に 設定 で きる こと に よる . た だ し , グラ フィ ッ ク 
VRAM ディ スプ レイ モー ド ・ レ ジス タ と グラ フィ ッ ク VRAM 
アッ プ デ イ ト ・ レ ジス タ で 決め られ た エリ ア か ら は み 出 すこ と 
は で き な い . これ も 表示 系 と アク セス 系 が 独立 し て いて , 前 者 
が グラ フィ ッ ク ・ ス ター ト ・ ア ドレ ス ・ レ ジス タ ,。 後者 が アク 
セス ・ ス ター ト ・ ア ドレ ス ・ レ ジス タ と 呼ぶ . 

グラ フィ ッ ク ・ ス ター ト ・ ア ドレ ス ・ レ ジス タ は 表示 画面 の 





左上 の 点 に 対す る グラ フィ ッ ク VRAM の アド レス を 規定 する . 


し た が っ て ., この 内 容 を 徐々 に 増やす と グラ フィ ッ ク 画 面 は 左 
の 方 へ ずれ る . 逆 に 減ら す と 笑 の 方 へ ずれ る . また , 画 曽 の 途 
中 で グラ フィ ッ ク VRAM の アド レス に 桁 あ ふれ が 生じ る こと 
が あっ て も , 現在 表示 中 の エリ ア の 初め の アド レス に 戻っ て 表 
が ぶ を 続け る . モー ド 設 定 ビ ッ ト M1 が 0 の と き に は Ai4 の 指定 は 
無効 に な る . 

アク セス ・ ス ター ト ・ ア ドレ ス ・ レ ジス タ は サブ プア ドレ ス 
$0000 に 対す る グラ フィ ッ ク VRAM の アド レス を 規定 する . 具 
体 的 に は 次 の 式 の よう に な る . 





グラ フィ ッ ク VRAM ア ドレ スーCPU の アク セス ・ ア ドレ ス 
二 ア クセ ス ・ ス ター ト ・ ア ドレ ス ・ レ ジス タ 








この レジ スタ に より , グラ フィ ッ ク VRAM 画 面 を スク ロー ル し 
て も, 常に 画面 の 左上 の 点 を CPU アドレス の $0000 に 設定 する 
こと が で きる . 加算 の 結果 アク セス ・ エ リア に 桁 あ ふれ が 生じ 
て も , あふ れ た 分 だ け オ ー バ ー ラ ッ プ し て , 必ず も と の エリ ア 
に アク セス する よう に な っ て いる .。 し た が っ て モー ド 設 定 ビ ッ 
ト M1 が 0 の と き は Ai4 の 指定 は 無効 に な る . 

FM-11 の グラ フィ ッ ク VRAM は D-RAM で ある の で , 表示 以 


外 の 期間 も アド レス の カウ ント ・ ア ッ プ を し て , リフ レッ シュ 
の 保障 を し て いる . その た め ,。 1 ラス タ ご と に カウ ンタ の 再 設 
定 を 行なう 必要 が ある . 図 19 中 の ラス タ ・ ス ター ト ・ ア ドレ ス ・ 
レジ スタ は アド レス ・ カ ウン タ が 発生 し た 次 の ラス タ の 先頭 ア 
ドレ ス を ラッ チレ し, 次 の ラス タ の 開始 時 に アド レス ・ カ ウン タ 
に ロー ド さ せる こと に より , この 役目 を 果たし て いる . また , 
VSYNC 期 間 中 に グラ フィ ッ ク ・ ス ター ト ・ ア ドレ ス ・ レ ジス タ 
より デー タ を も ら う こと で , フレ ー ム の 開始 時 の スタ ー ト ・ ア 
ドレ ス を アド レス ・ カ ウン タ に 設定 する こと も 行なっ て いる 。. 
図 19 は グラ フィ ッ ク VRAM の アド レス 生成 部 の ブロッ ク 図 で 
ある . 


キャ ラク タタ VRAM 


キャ ラク タタ VRAM の アク セス ・ タ イミ ング 

キャ ラク タ VRAMI は キャ ラク タ ・ コ ー ド を 保持 する キャ ラ 
タ VRAM と, その 人 色調 お よび CRT へ の 表示 状態 を 指定 する 
トリ ビュ ー ト VRAM か ら 成 る . 

グラ フィ ッ ク VRAM と 同様 で , 200 ド ッ ト の タイ ミン グ と 400 
ドッ ト の タイ ミン グ で アク セス 方 法 が 異な る . また , キャ ラク 
タ VRAM の スキ ャ ン ・ ア ドレ ス 発 生 に CRT コ ント ロー ラ LSI を 
用 いて いる た め 、 高速 の スク ロー ル が 可能 と な っ て いる . 


キャ ラク タタ VRAM と アト リ ビ ュ ー ト VRAM 

キャ ラク タ VRAM は CPU の アド レス 空間 の $8000 一 $8 
FFF の 4K バ イト に あり , 偶数 の 2K バ イト が キャ ラク タ 
VRAM、 何 数 の 2K バ イト が アト リピ ビュ ー ト VRAM に 分 けら れ 


て いる . 
キャ ラク タ VRAM は キャ ラク タ ・ デ ー タ を 保持 する RAM で , 
CPU は 表示 し た い 文 字 の コー ド を ここ へ 書く こと で キャ ラク 


タ の 表示 が 行なえ る . 

アト リピ ビュ ー ト VRAM は , 対応 する キャ ラク タ VRAM が 表 
示す る 文字 の 表示 の 怖 性 を 決め る も の で . ア ドレ ス 27 の キャ ラ 
クタ VRAM に 対応 する アト リ ビ ュ ー ト VRAM の アド レス は 2 
2 十 1] で ある . アデ アトリビュート VRAM の 構成 を 表 20 に 示す . 
① bit0 一 2,5 Blue, Red, Red, Green, Intensity 

この 4 ビット の 指定 に より , キ ャ ラク ター パタ ー ン の ドッ ト ・ 
フォ ント の 立っ た 部 分 に , 16 通 り の 色 が つく . 色調 は 表 21 に 示 
す . 

た だ し 、 Imtensity ビ ッ ト が 及 響 する の は カラ ーCRT の み で , 
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図 20 MB144413 の ビン と 機能 


太 MB14413 


JAPAN 8315 No.4 























































































































1 RESET リセ ッ ト 入 力 TRQ0 
2 | STB DMA 転 送 の スト ロー プ 入 力 12 | TRq1 人 
3 | TAKA lpwAcsuo ァ タリ ee 13 | TRaz 233 財 の 
4 | TAkB 14 | TRaa 
5 BRQ0 | 15 | BAK0 
細 較 aoM バス ・ リ クエ スト 入力 店 肖 Waiued 要求 元 へ の アク ノリ ッ ジ 出力 
7 | BRQ ろ 17 | BAKz 
8 BRQ3 18 | BAK3 
9 | 2。DMA DMAC ク ロッ ク の 入力 19 | NC 
10 | GNp Ground 20 | Vcc | +5v 
表 20 アト リ ビ ュ ー ト VRAM の ビッ ト 構 成 表 22 ビデ オ 出 力 コ ント ロー ル ・ レ ジス タ の 構成 
bi7 | bte 5E 馬 本 透 馬 還 だ 表 還 と 拓本 は 瑞 屋 55 | bt7 | bte | bt5 | bt 人 
| Intensity Blink | ReverselGreen | Red Blue メイ ン ・ ア ドレ ス | グラ フィ ッ ク | キャ ラク タ 
| $FDA0 際 細 押 グリ ー| カ ラー 
1:ON | 1:ON | 1 :ON 1 :ON | 1-ON writeonly | ン ン 
| 0:OFF| O:OFF | O:OFF| 0:OFF| O :OFF| O:OFF リセ ッ ト 時 O 。 0: 出 |0: 出 0: 出 |0: 出 
| カ し な | カ し な | カカ し な | カカ し な 
表 21 Intensity,Green,Red,Blue ビ ッ ト と 表示 され る 色 の 関係 | い | はい い い 
bit5 | dit2 | biti | bit0 1 間 こ 
| | | 力 する | 力 す る カ す | カ す s 
IDCcaEhy 間 CT に で だ | に ]I3 
0 回 に 表 23 パレ ッ ト ・ レ ジス タ の ライ ト ・ デ ー タ と 色 の 関係 
0 0 0 1 | BLUE 
0 0 I 0 |Rgp デ 
0 0 I 1 | MAGENTA BLACK $O DARK GREY 
0 1 0 0 |GREEN BLUE sx 1 LIGHT BLUE 。 |  sx9 
1 0 EL ex RED |  sx2 | ueHTRED |  sxA 
0 I 1 | 0 |YELLow MAGENTA $ っ LIGHT MAGENTA |  $xB 
0 1 1 | 1! |wHrE | GREEN $x 4 LIGHT GREEN_ SC 
I 0 0 0 | DARK GREY | cYAN $x5 LIGHT CYAN $xD 
1 0 0 1 | LIGHT BLUE YELLOW sxe LIGHT YELLOW トコ 
1 0 I 0 | LiGHT RED WHITE $ メ フ LIGHT WHITE $ メ ビ 
! | 0 I ! | LIGHT MAGENTA 注 ) : x は 0 一 上 上 の い ずれ で も 良い 。 
1 1 0 0 | LiGHT GREEN 
」 」 0 ! | LieHT cYAN 調 信 全 4 ピッ ト に 論 換 する も の で ある . し た が っ て 、16 色 の 色 
( ( ( 1 | NSR を 発生 で きる が , 同時 に は 8 色 ま で の 表示 と な る . 
) | 8 に GbND2WRNE < パレ ッ ト レ ジス タ の 例 > 
グリ ー ン CRT の コン ポジ ッ ト 信 全 に つい て は この 影 狂 を 受け パレ ッ ト ・ レ ジス タ が デフ ォ ル トト 状態 で あっ た と き , CPU が 





まだ た, カラ ーCRT で も Intensity 入 力 が な いも の も や は 
を 受け な い . し た が っ て DARK GREY で 文字 を 午 
いて も 、 グ リー ン CRT に は 表示 され な いし . 
の な い カ ラーCRT で も 表示 さき されない. 
2) bit 3 Reverse 

この ビッ ト に 1 を 各 ぐ こと に よっ て 。 ドッ ト ・ 


転出 力 が 得 ら れる . その 色調 は bit5、2 一 0 で 指定 され た 通り に 








りこ の 影 


また Intensity 入 力 


イメ ー ジ の 反 








な る . た と えば . ある アト リ ビ ュ ー ト RAM に #$0F を 書き 込ん 
だ と き , その アト リ ビ ュ ー ト が 付 般 し て いる キャ ラク タ の 表示 
は ドッ ト ・ フ ォ ン ト の ある 部 分 は バッ ク カ ラー で な い 部 分 が 


中 で 表示 され る . 
(3 bit4 Blink 
ラク タ 表 示 が 0.64sec 周 期 で 


この ビッ ト に 1 を 革 く こと で , 対 応 す る キャ 
浅 を する . 

パレ ッ ト ・ レ ジス タ の 機能 は .、 CPU に よっ て 設定 され た 8 バ 
イト の デー タ ・ テ ー ブ プル に より グラ フィ ッ ク VRAM か ら の 3 
ビ ピット の デー タ を テー ブル ・ ポ イン タ と し て 用 いる こと で , 公 
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$FD9B に $F6 を 半 い た と き LIGHT MAGENTA の グラ フィ 
ッ ク 図 彩 の 色 が YELLOW に 変わ る . これ は 初め RAM3= 0、 
RAM2= 1 RAM1= 1 一 SFD9B の 内 容 の 読み 出し つ != 1.、 
G= ニ 0. R=1、B= 1 で LIGHT MAGENTA を 出力 し て いた 
も の が I= ニ 0、G ニ 1. R= ニ 1、B= ニ 0 と いう 読み 出し 値 に 変わ 
り 、 YELLOW を 出力 する よう に な っ た だ た めで ある . 

・ レ ジス タ に 午 き 込む 値 と 色 の 関係 は 表 23 に 示す 通 





パッ マ レッ ト 
り で ある . 

ビデ オ 出 力 コ ント ロー ルレ ジス タ は キャ ラク タ 。、 ある い は グ 
ッ ク ・ デ ー タ を CRT に 表示 する か し な いか を 決定 する も 
カラ ー, グリ ー ン が 独立 に 設定 で きる . し た が っ て , カ 
ラーCRT 画 面 に グラ フィ ッ ク 図 形 と キャ ラク タ を ,、 グリ ー ン 
CRT に キャ ラク タ の み を 表示 させ る と いう こと が , ソフ トウ ェ 
ア で 設定 で きる . また . キャ ラク タ を 消し た 方 の 画面 で は キ 
ラク タフ ォ ン ト の ド に 尻 れ て いた だ グラフィック 
表示 する . 


ラフ ィ 
の で 、 


や 
4 


* ャ クォン ジン 上 よ を も 








図 21 MB14413 内 部 等 価 回 路 








RESET 
BRQ0 
D @ TRQ0 
CK 
CLR 
〇 


D Qo テ TRali 
Ne 
@ 
に 1 
ほ 計 al CK 
る 


CLR 
⑥) 
本 9 .20 
@ 
D Q TRQ3 
CK 





り 
に 
〇 
O 
の | 回 
と リ 












































CLR 
ロ いり 
DMA < 
STB BAK0 
3 一 虹 
I 本村 視 Mk 
D テ BAK3 
図 22 MB14414 ビン と 機能 図 25 MB14414 ピン と 機能 
ピン | 信号 名 6 
No. | 8 6 
1 ※FRESET リセ ッ ト 
2 DA0 
| サフ 仙 デー タ ・ バ ス 
3 DA1 
4 CK0 | サ プ 側 アテ ンション ・ レ ジス タキ 0 ライ ト ・ バ ルス 入力 
5 DA2 ろ / 個 デ ド 
6 DA | サフ 側 デ ー タ ・ バ ス 
70 CK1 サブ プ 側 アテ ンション ・ レ ジス タキ 1 ライ ト ・ パ ルス 入力 
テー テーー ァ ーーー ッ "ーーーーーーーーーーーーーーーーーー ニ ーーー デー ニー ニー デニー デー 8 DA4 の _ 
DA ] サフ 側 デ ー タ ・ バ ス 
カス タム Li 10 CK2 ろ サ プ 側 アテ ンション ・ レ ジス タ キク ライ ト ・ バ ルス 入力 
11 DA _ 
アツ アーアー テー ア ーー テッ ー テ ーー テーー ッ ーーーーーーーーーーーーーーーーー デ ーー テー 移 ア | サフ 介 テ データ ・ バ ス 
FM-11 に は メイ ン ・ プ ブロック, サブ ププ ブロ ッ ク 合 わせ て 5 個 の 
と ro っ 了 13 CK3 メイ ン 側 アッ ク ・ ト リガ 入力 
カス タム LSI が 使わ れ て いる . 以下 は その 一 覧 で ある . 14 GND Ground 
旬 MB14413 (DMA 要 求 コ ンー トロ ー ラ ) 15 | ※CLR サ プ 側 アテ ンション FIRQ 要 求 入力 
氏 MB14414 (アテ ンション ・ レ ジス タ ) 16 | ※OE3 サブ プ 側 アッ クビ ッ ト ・ リ ー ド ・ バ ルス 入力 
@ MB14416 (スイ ン ・ シ ステ ム タイ ミン グ ・ ジ ェ ネ レー タ ) リコ 002C2 の の 
則 18 | ※OE1 メイ ン 側 アテ ンション ・ レ ジス タキ 1 リー ド ・ バ ルス 入力 
@。 MB15021 (パレ ッ ト ・ レ ジス タ ) 19 | oo メイ ン 側 アテ ンション ・ レ ジス タキ 0 リー ド ・ バ ルス 入力 
@  MB15022 (サブ シス テム タイ ミン グ ・ ジ ェ ネ レー タ ) 20 DB0 
21 DB1 
DMA 要 求 コ ント ロー ラ MB14413 22 | pmz 
23 DB3 
この LSI は DMA 転 送 要 求 信号 を .HD46504DMAC の 入出 力 規 24 DB4 メイ ン 側 デー タ ・ バ ス 
格 に 合わ せる よう に , タイ ミン グ を 取る た め の も の で ある . 図 20 25 DB5 
に ピン 配置 図 、 図 21 に 内 部 等 価 回 路 を 示す . 2 SE 
27 DB フ 7 
アテ ンション ・ レ ジス タ MB14414 28 | We |+5v 
この LSI は アテ ンション 機能 を 果たす も の で , サブ 側 か ら 書 メイ ン 側 か ら 書 き 込 み 専用 、 サ プ ブ 側 か ら 読 み 出し 専用 の 1 ビッ 
き 込 み 専用 、 メ イン 側 か ら 読 み 出し 専用 の 3 バイ ト ・ レ ジス タ . ト の FF が は いっ て いる . 図 22 に ピン 配置 を , 図 23 に 内 部 等 価 回 
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図 23 MB14414 内 部 等 価 回 路 
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図 24 MB14416 ビ ピン と 機能 
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図 25 MB14416 内 部 等 価 回 路 
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図 26 MB15022 の 内 部 プ ブロック 図 
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図 227 サブ プ シ ステ ム ・ タ イミ ング ・ ジ ェ ネ レー タ 


F _ JAPAN 
MB 15O22 


8242 L86G 


較 28 パレ ッ ト ・ レ ジス タ の ビン と 機能 


F JAPAN 
MB15O21 
83o5 S5!I 











カス タム LSI 通常 は 
1 ・ TEST 欠 ガ タ 試験 用 入力 , 通常 
ロレ ベル に する . 
ドッ ト ・ ミ < 上 ッ ク の 
2.6 | 21.0526MHz ュー 00PEo ウ イミ ング 3 クロ ツク 


入力 端子 . 

DB 内 世 き 200 6 ト ・ タ イミ ング と 400 ド ッ 
16,128MHz タイ ミン グ の 切替 信号 、 日 を 入力 

3 | SUPERHIRES | 入 力 | る と 400 ド ッ ト の タイ ミン グ を 発生 
し , し を 入力 する と 200 ド ッ ト の タイ 









































ミン グ を 発生 する . 
6.8 16.128MHz 入 カ 200 ド ッ ト ・ タ イミ ング ・ ク ロッ ク の 
入力 端子 . 
記 の 切り 替え 
5 wip80 > キャ ラク タ 40 宇 /80 字 の 切り 替え 信 
号 , 入力 で 80 宇 を 指定 . 
7,21 GND 接地 
VRAM の デコ ー ド 信 有 
9 SAB15 和紀 領域 の デ ド 信 号 の 入力 
Highactve. 
0 c.sL 出 カ キャ ラク タ 用 シフ トレ ジス タ の た め 
「 の シフ ト / ロ ー ド 信号 . 
1 Ge.s/L 電 、3 カ グラ フィ ッ ク 用 シフ トレ ジス タ の た 
め の シ フト / ロ ー ド 信号 . 
12 CJLATcHcK 出 カ キャ ラク タ ・ デ ー タ の た め の ラ ッ チ 
の クロ ッ ク 信 号 . 
グラ フィ ッ ク ・ デ ー タ の た め の ラ ッ 
13 | G.LATCHCK 出 カ 
チ の クロ ッ ク 信 号 . 
14,.28 Vcc 5 V. 
15 LPENLSB 出 力 | ライ トペ ン 用 LSB. 
16 | CRTRAS 出 力 | グラ フィ ッ ク VRAM 表 示 用 RAS 信 号 . 
17 C. ADRSLSB 出 力 | キャ ラク タ 用 表示 アド レス の LSB. 





ラ ッ ク RAM の MPX の 表示 
18 CRTMPXSEL 中 グラ ラ ィ ッ グ 表示 用 








切り 替え 信号 . 

CPU の VRAM アク セス 時 の タイ ミン 
19 | MPUDELAYIN | 出 カ 

グ 信 号 . 
20 | CRTCAS 出 力 | グラ フィ ッ ク VRAM 表 示 用 CAS 信 号 . 





VRAM アク セス の タイ ミン グ ・ ク ロッ 








22 x MPUSIDE 出 カ 
ク , し で CPU を 示す . 
23.24 | SE,、 SQ 出 力 | CPU の E.Q 信 号 . 
ラク タ 用 シフ トレ ジス タ の シフ 
25 | C.SHIFTCK 出 カ 2 4 


トク ロッ ク . 





26 x SUPERHIRES | 出 力 | SUPERHIRES の 反転 信号 . 












































TNIP の カス タム LSI 試 験 用 入力 , 通常 は 
い ロレ ベル に する . 
2 IN 1 入 力 | グラ フィ ッ ク ・ デ ー タ 入力 ビン . 
jNAIN2 入 カ グラ フィ ッ ク ・ デ ー タ 入力 ビン, 両者 
2 8 を つない て 使う .」 
INSAJN3B 2 グラ フィ ッ ク ・ デ ー タ 入力 ビ ピン, 両者 
9 9 を つない て 使う 。 
7 .21 | GND 接地 . 
8.9 > 
N,C. 入出 力 | Non Connection. 
22,23 
| 出力 レジ スタ ・ フ ァイル の 入出 力 ビ ン , 
10 一 13 o 一 Ds 入 CPU の デー タ ・ バ ス と つなぐ で 。 
14.28 | Vcc 5V. 
15 CS 入 力 | CPU か ら の チッ プ ・ セ レク ト . 
症 内 CPU アク セス の 際 の レジ スタ の セ 
2 ee レク ト 信 号 . 
二 5 ス CPU アク セス の 際 の リー ド ・ タ イミ 
ング 信号 . 
YK 入 CPU アク セス の 際 の ライ ト ・ タ イミ 
0 ング 信号 . 
24 一 27 | OUT1 一 OUT4 | 出 力 | グラ フィ ッ ク ・ デ ー タ 出力 ビン . 

















サ プ シ ステ ム ・ タ イミ ング ・ ジ ェ ネ レー タ 
MB15022 

この LST は キャ ラク タ , グラ フィ ッ ク の 表示 コン トロ ー ル 信 
号 、GVRAM の アク セス コン トロ ー ル 信号 、 ラ イト ペン , キャ 
ラク タ 表 示 ア ドレ ス の 最 下 位 ビ ッ ト の 作成 , お よび サブ CPU の 
クロ ッ ク 生 成 を 目的 と し て いる . 図 27 に MB15022 の ピン 配置 図 
に , 内 部 ブロ ッ ク 図 を 図 26 に 示す . 
パレ ッ ト ・ レ ジス タ MB15021 

パレ ッ ト 機 能 を 果たす LSI で ある . ピン 配置 図 28 に , 内 部 ブロ 
ッ ク 図 を 図 29 す る . 

MB15021 の 入出 力 は 2 つの 系 統 で , CPU 系 と 表示 系 に 分 類 す 
る こと が で きる . 表示 系 は レジ スタ ・ フ ァイル を 読み 出す の み 
で あり , IN1 一 3 が 入力 で , OUT1 一 4 が 出力 に な る . 一 方 , CPU 
系 は レジ スタ ・ フ ァイル に リー ド / ラ イト 可能 で . アク セス ・ コ 
ント ロー ル に CS, WR, RD, A0 一 2 入力 が あり , ファ イル の デ 








グラ フィ ッ ク 用 シフ トレ ジス タ の シ 




















27 | e.sHiFTck 要 : 科 o 
路 を それ ぞ れ 示す . 
メイ ン ・ シ ステ ム タイ ミン グ ・ ジ ェ ネ レー タ 
MB14416 


この LSI は 6809CPU ボ ー ド の 中 に あっ て , メイ ン ・ ブ ロッ ク の 
MBL6809E ク ロッ ク の 発生 , MRDY の コン トロ ー ル , HALT, 
TSC DMA 時 の クロ ッ ク の サポ ー ト ,. リフ レッ シュ 制御 を 行 な 
う . 図 24 に ピン 配置 図 , 図 25 に 内 部 等 価 回 路 を 示す . 
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タ は D0 一 3 で 読み 書き する . IN1 一 3 と A0 一 2 が 同一 の 値 の と 
き , レジ スタ ・ フ ァイル の 同一 の アド レス が アク セス され る . 
サブ シス テム ・ タ イミ ング ・ ジ ェ ネ レー タ 
MB15023 

この LSI は MB15022 の 改良 版 と し て 設計 きれ た も の で , 200 ド 
ッ ト ・ モ ー ド の と き の RAS の プリ チャ ー ジ 時 間 の 不足 を 改善 
し , 同相 の クロ ッ ク を シフ トロ ー ド お よび クロ ッ ク に 用 いる こ 
と で , 外 付 と し て 必要 で あっ た CZ の ディ レイ 回 路 を 除く こと 
が で きる . 

ピン 配置 と 機能 は 、 6, 8 ピン が 入力 か ら N. C. に 変わ っ た 
以外 は MB15022 と 同じ で あり , これ と 差し 換え る 形 に な る . 

















FM-11| ハ ー ト 仕様 ] 


図 29 パレ ッ ト ・ レ ジス タ MB15021 の 内 部 ブロ ッ ク 図 
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と 4:1UKe】 つ コワ に に = FM-11 回 踏 図 





マザー バス ・ コ ネ ク タ (1/2) 
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マザー バス ・ コ ネ ク タ (2/2) 
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FM-11 実 用 ソフ ト 紹 介 
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利益 計画 管理 シス テム ・…… 
uniQes-TQC( 品 質 管理 )……… ド ーー ドー ドー 
SPERPRO シ リー ズ 販売 ・ 仕 入 ・ 在 庫 管理 ………… 918 
IDYXNHS/G】1 ラ SSSEGCOOO2GCOLGAR2COHLGPGK1COODCUGOG2COR SONG 
漢字 dBASE……i…ーー ド (ドド ドド ーー 
漢字 FMCALC 








ター ミナ ル ・ エ ミュ レー ショ ン ・ プ ログ ラム ・…… ド バド 332 


コリ 回 


PA ジニ トン 


総 与 


給与 所 得 の 範囲 は , 俸給 , 
賞与 な ど に よる 所 得 を いう . 


給料 , 賃金 , 歳 買 , 年 金 , 恩給 , 
この 給与 に 対し , サラ リー マン に 


は 源泉 所 得 税 が ある . これ は , 給与 の 形態 に よっ て 使わ れる 税 
額 表 も , 月 額 表 , 日 額 表 が あり , 適用 する 欄 は それ ぞ れ 甲 提 , 
と 欄 と 分 か れる . 


つい で , 健康 保険 , 厚生 年 金 保険 な どの 社会 保険 料 の 控除 や 
住民 税 の 控除 , さら に 組み 合い 費 , 財形 貯蓄 な どの 天 引 処 理 , 
最後 に 年 末 調 整 処 理 な ど 幅 広く , 

し た が っ て , 給与 事務 は 事務 経験 の 豊か な か ベテラン か 社会 保 
険 労務 士 に 任 か せ て きた の が , 中 小 企業 の 現状 で ある . 

そこ で , いま まで の シス テム を 集大成 し , 公認 会 計 士 小川 


哲 英 氏 の 監修 に より 完成 し た の が ,『 ザ ・ パ ソコ ン 給 与 』 で ある . 


特徴 は 以下 の 通り . 

⑩ 見 易く わか り 易 い 操 作手 引 書 が ある の で , 初心 者 で も すぐ 使 
える . 

イー ジー オー ダー 方 式 の シス テム に な っ て お り , 製造 業 , 販売 
業 , サー ビス 業 は も と より , 病院 な どの 特殊 業種 に も 適応 で 
きる . 

大 型 コ ンピュータ 並み の 豊富 な 資料 が 作成 で きる (給与 支給 
控除 一 覧 表 , 源泉 徴収 簿 な ど ). 

@ 給 与 , 賞与 , 年 調 処理 だ け で は な く , 人 事 管理 シス テム と し 





か つ 正 確 な 知識 を 要求 され る . 


て 利用 で きる . 
⑥ 4 種類 の 給与 体系 (月 給 , 日 給 月 給 , 


日 給 時 給 ) が 同時 に 処 


理 で きる . 

中小 企 業 向 け に , パス ワー ド を 付け る な ど , 労務 管理 上 の 配 
慮 を し て いる 

償 交 通 費 非 課税 限度 額 , 社会 保険 料 や 所 得 税 の 計算 に 用 いる 定 


数 ( 料 額 表 , 税額 表 ) は , 法令 の 改正 な ど が あっ た 場合 , ユ 


ー ザ ー 自 身 で 容易 に 変更 で きる . 


2 ーー 1 
シス テム の 概要 
⑩⑯ 1 枚 の デー タ ・ 
算 処理 が で きる . 
@ 月 額 , 日 給 月 給 , 日 給 , 
額 の 指定 に よっ て , 翌月 へ 繰越 処理 が で きる . 
図 1 


岩崎 信 意 


380,000 
250.000 


基 本 
役 陸 
家 。 族 
普通 残 
深夜 残 
特別 


308 


シー ト で , 300 人 分 の 給与 、 賞与 (年 4 回 ) 計 


時 給 者 の 処理 が 可能 . 端数 調整 は 金 


ステ ム 


公認 会 計 土 小川 打 英 氏 監 


支給 項目 数 は 基本 給 以下 計 15 項 目 . 控除 項目 4 区 分 まで 自由 
説 定 で 使え る . 

@ 答 与 ・ 賞 与 シ ステ ム の 入力 デー タ お よび 計算 結果 を 利用 し て , 
年 末 調 整 計算 が で きる . また , 年 末 調 整 シ ステ ム だ け を 利用 
する ユー ザー の 便宜 の た め に , 単独 使用 も で きる . た だ し , 
月 額 表 乙 欄 使用 者 お よび 年 収 1.000 万 円 以上 の 人 は 年 末 調 整 の 
対象 外 と する . 


使い や すく する た め に 


1) 手 計算 で 行なっ て いる 給与 計算 が , 容易 に パソ コン 給与 計算 
に 移行 で きる よう に , 初心 者 に も わか り 易 い マ ニュ アル を 用 
了 R 

合 与 事務 の 初心 者 で も 給与 , , 年 末 計 算 が で きる よう に , 
HP タ 登 録 用 紙 , 給与 デー KM 賞与 デー タ 入 力 
用 紙 が 用 意 さ きれ て いる 

3) パソ コン で の 給与 計算 は , 画面 メニ ュー の 選択 に よっ て 行 な 
える の で , パソ コン に 不慣れ な 人 で も 自由 自在 に 行なえ る . 

4) 簡明 な 操作 キー が ある の で , 便利 で ある 


























[PF1| 次 : 入力 画面 な ど で , 必要 な 入力 終了 後 , 次 の 処理 を し 
た いと き に 使う . 
また は , 検索 デー タ の 画面 表示 で , 次 の 画面 を 見 た 
いと き に 使う . 

[PF2| 訂 正 : デー タ の 入力 中 に デー タ を 訂正 し た いと き に この キ 
ー を 使う . プリ ント 中 に 一 旦 停止 し て プリ ント の 印 
字 位置 を 確認 し た いと き に も 使え る . 

[PF3] 終 わり : この キー を 押す と , 処理 し て いた 業務 を 強制 的 に 





終了 し , デー タ の 書き 込み な ど 必 要 な 処理 を 自動 
的 に 行なっ て , メニ ュー 画面 に 戻る . 
[PF4| 取 り 消 し : 入力 画面 の 確認 の 際 。 入力 デー タ を 全部 キャ ン 
セル する 必要 が ある 場合 に 使う . 
以 : 各 項 目 ( た と えば 基本 給 , 手当 な ど ) の デー タス 入 力 が 終わ っ 
た と き , お よび 「『 確 認 』 の 画面 で OK の と き に 使う . 
これ だ け の 操作 キー が 使え ば ,.『 ザ ・ パ ソコ ン 給 与 』 が 使え る . 











印字 例 ( 一 部 ) 49/100 


210.000 
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0 
11.000 
50.000 

150、.000 





583 所 11 月 
部 課 合計 総合 計 
伊東 雅典 


168.000 

26.800 
0 5.000 

10.000 0 
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115,000 
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0 
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2 シス テム の 全体 図 


給与 シス テム ・ メ ニュ ー〕 

1 : 給与 処理 

2 : 賞与 処理 

3 : 帳票 作成 

4 : 基本 ファ イル 登録 
修正 

5 : 税額 表 な ど 修 正 

















プロ グラ ム 名 「 
スカ (LOAD) 











各種 帳票 

















ーーーーーーーーーーーーーーーー・ 


給与 支給 控除 一 覧 表 
. 賞与 控除 一 覧 表 
. 勤 意 一 覧 表 

- 給与 支給 金 種 表 

- 賞与 給 金 種 表 

. 銀行 振込 依頼 書 . 会 社 マス タ 
賞与 銀行 振込 依頼 書 、 個 人 マス タ 
0 昌和 





























. 部 課 マ スタ 


- 部 課 別 累計 支給 額 一 - 地区 マス タ 
覧 表 3. 税 額 表 等 修正 


- 人 事 デ ー タ 検索 資料 
































3 印字 例 ( 一 部 ) 


P CA 給 シ ステ ム 
9 とみ 入 


1683 人 革 氏 名 和佐 放 情 














間 税 胃 
前 
9 湊 形 ] 挫 18,889 


msm の Ha | 」 

経営 管理 に 役立て る た め に 
給与 計算 と 同時 に 経営 管理 。 人 事 管理 の た め の 資料 を 作成 す 

る こと が で きる . 

部 課 別 支給 控除 一 覧 表 は 見 易く , すべ て の 項目 に つき , 部 門 
別に 集計 で きる の で , 原価 管理 , 予算 管理 , 部 門 管理 を 必要 
と し て いる 場合 に 有効 で ある . 

@ 学 務 管 理 に 有用 な 勤怠 一 覧 表 を , 個人 , 部 課 単位 、 全 社 ベー 
ス の 選択 で 自由 に 作成 で きる . 

… 部 課 別 累 計 支 除 額 一 覧 表 を 給与 、 賞与 計算 シス テム の み の ユ 
ー ザ ー に も 作成 で きる よう に し て いる の で , 財務 会 計 と の 照 
合 や , 予算 作成 に 有用 で ある . 

生年 月 日 , 入社 年 月 日 , 職歴 な どの 組み 合わ せ で , 自由 に 入 
カ デ ー タ を 検索 する こと が で きる . 






法 的 要件 を 満た す た め に 


1) 所 得 税 源泉 徴収 簿 
国税 庁 , 労働 省 様式 に 準拠 し て , 一 番 面倒 な 一 人 別所 得 税 
源泉 徴収 を 作成 する こと が で きる . 
2) 給与 支払 報告 書 


年 末 調 整 の 結果 給与 支払 報告 書 を 作成 する . 


開発 会 社名 : ピー シー エー 蛋 
販 売 元 : ピー シー エー 付 
問い 合わ せ 先 : ピー シー エー 幌 
吉 東京 都 渋谷 区 渋谷 3-15-15 グ リー ム ビ ル 5F 
東 京 容 (03)368-9631( 代 ) 
大 阪 谷 (06)315-8637 
名 古屋 容 (052) 565-0406 
価格 : 給与 ・ 賞 与 計算 シス テム \148、000 
年 末 調 整 > \39.000 
使用 言語 : 漢字 FBASIC 
必要 な OS : CP/M86 
提供 媒体 : 5 イン チ ・ デ ィ ス ク 
マニ ュ ア ル : p.50 マニ ュ ア ル 別 売 は な し 
サン プル ・ デ ー タ : な し 
出荷 開始 時 期 : 83 年 11 月 
最小 シス テム 構成 : 本 体 FM- 11EX (MB25050) 
高 解像度 カラ ー デ ィ ス プレ イ (MB27311) 
ビジ ネス ・ プ リン タ (MB27402) 
追加 薄 形 ミニ フロ ッ ピ ィ ー デ ィ ス ク (MB27609) 
漢字 ROM カ ー ド (MB28111) 
拡張 R AM カー ド (128K) (MB22414A ) 
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コリ 8 


P じ A 計 維 肝 務 


この シス テム は 公認 会 計 士 , 吉村 成 弘 氏 の 監修 に よる も の で , 


次 の 点 が 大 き な 特 長 で ある . 

⑳ パ ソコ ン に 不慣れ な 人 で も 簡単 に 使え る よう に , いろ いろ な 
配慮 を し て いる 

イー ジー オー ダー 式 の シス テム に な っ て お り , 製造 業 , 販売 
業 , サー ビス 業 は も と より , 病院 , 会 計 事務 所 な ど 幅 広い 業 
種 に 適応 で きる . 

日 々 の 業績 管理 , 部 門 管理 , 売掛金 管理 , 手形 管理 な ど , 日 
常 の 経営 管理 に 役立つ 資料 が 豊富 に 作成 で きる . 

@ 主 要 部 門 に マシ ン 語 を 使用 し て いる な ど , シス テム 効率 に 秀 れ 
て いる 

お 客 様 の ご 使用 に な る 業務 範囲 に 合せ て , ABC と 3 段階 の 
シス テム を 用 意 し て あり , 必要 に 応じ て レベ ル ア ッ プ も 可能 
で ある . 


| シス テム の 概要 


⑩ 共 本 設計 事項 

1 ) 1.000 億 円 未満 の 会 社 

2 ) 仕訳 数 2.000/ 月 

3 ) 1 仕訳 100 億 円 未満 

4 ) 会 計 処 理 月 な どの 登録 

5 ) 伝票 No. の 入力 有無 

6 ) 王 甚 定 科 日 数 240 

7 ) 補助 科 日 数 240 

8 ) 部 門 設定 9 

9 ) 摘 朗 コード 200( カ ナ 100) 
10) 各 項 目 の 登録 , 訂正 機能 
11) 月 木 , 期末 自動 更新 


@ テ ー タ 入力 方 法 
1) 入出 金 デ ー タク の 自動 仕訳 
2 ) 単 - 振 # 伝 






3) 複合 振替 伝票 (N : N) 
4 ) 主要 48 科 目 ワ ンタ ッ チ 入力 
5 ) 常時 1 件 前 の 入力 デー タ 表 示 
6 ) デー タ の 詩 正 , 取り 消し 
データ の 検索 (仕訳 デー タ の チェ ッ ク 用 
1 ) 伝票 番号 
2 ) 日 付 

) 勘定 科 日 
4) 金 額 

) 検索 デー タ の 訂正 , 取り 消し 
⑯ 画 面 表 示 
1 ) 漢字 に よる 操作 指示 
2 ) 検索 デー タ 
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3 内 元帳 

合計 残高 試算 表 
Mi 票 時 の 機能 
1) 元帳 の 科目 指定 ブリ ント 
2 ) 期間 指定 プリ ント (日 付 単 位 ) 
3 ) 仕訳 日 記帳 
4) 日 計 表 
元 帳 

3. 助 元帳 . 

合計 残高 試算 表 

表 1 シス テム 別 作業 機能 


総 勘 定 元 帳 
・ チ ェ ッ ク | 合計 残高 試算 表 B/S 
, 取り 消し | 合計 残高 試算 表 P/L 
補助 元帳 
補助 科目 残高 一 覧 表 
手形 管理 表 





取り 引 先 別売 り 掛け , 
買い 掛け 





資金 繰り 実績 表 
経営 分 折 表 

部 門別 損益 計算 書 

部 門別 P/L 一 覧 表 

月 次 残高 推移 表 

取り 引き 先 列 総合 収支 明細 書 


| 使い や すく する た め に 


⑯ 現 状 の 伝票 類 が その まま 使え る 
現状 の 伝票 や 出納 忠 が 、 その まま で パソ コン と ソフ ト を 買 
た ば, た の 人 が 会 肝 季 環 が 理化 され る . 
ワン タッ チ ・ キ ー 
E 要 48 科 目 が 科 上 日 名 を キー に 貼っ て 使え を る よう に な っ て い 
る の で , 日 常 よ く 使 う 科 目 は , コー ド を 使わ な く て も , ワン 
タッ チ で 科目 の 入力 が で きる . 
@ 演 記 の 知識 が あま りな く て も 0K 
科目 残高 、 登録 と か 仕訳 デー タ の 入力 な ど , 
の 借方 貸方 と いう 知識 が な く て も 使え る . 
@ 残高 の 登録 は , 所 定 の 科目 に 残高 を 入力 すれ ば , 借方 , 貸方 は 
パソ コン が 管理 し て いる . また , お 客 様 が 使用 きれ る 科目 は , 
その 科目 に 金額 が 入っ て いる か どう か で , パソ コン が 自動 的 
に 判断 し て .、 プ リン タ に は 金額 の 入っ て いる 科目 の み を 印字 
する よう に な っ て いる 
@ デー タ の 入力 も 入出 自動 仕訳 。 伝票 イメ ー ジ 入力 が で きる 
@ 人 各種 資料 の 作戦 は , 『MENU2』『MENU3』 で 作り た い 資 料 


会 計 処 理 特有 


表 1 (一 部 分 ) 


会 を 名 PCA サ ンプ ル ん 
o ma (日 ) 


lm 





1 


人 -BmWeeB。 


か 


市 紀和 コ 
し し LA し し し LC 細い 1 
ゅ 
の と で 民 p テ 
Ne1- ド ココ 
BBWSn gso 
時に は 
tv 


生け 上 上 


Sa 


上 1 
に 
ま で ささ 





に し に 吾 還 まし ビレ レト に 党 wrr 光 er に に 
Sol 
13$1 


KRC3 | | す 1 


バ ミ 
AA 


妥 四 55 ま な dPMMHNEBBSRMSHNBBGEGE は | 


番号 を 選べ ば , 後 は パソ コン が 自動 的 に 分 類 , 集計 処理 を し 
て , 指定 し た 資料 を 作成 し て くれ る . 
⑯ パ ソコ ン に 不慣れ な 人 で も 自由 自在 
基本 的 に 次 の 4 つの 操作 キー と 画面 対話 式 で . パソ コン に 
不慣れ な 人 で も 自由 自在 に 使え る . 
PF1 | (次 )・ 次 の 項目 , また は 次 の 処理 を する . 
・ 検 索 デ ー タ の 画面 表示 で , 次 の 画面 を 見 る . 
PF2| (訂正 )・ デ ー タ の 入力 中 に , デー タ の 訂正 を する . 
・ プ リン ト の 印字 位置 を 確認 し た いと き に 使う . 
PF3| 終 わり ・ 処 理 し て いた 業務 が 終了 し た こと を 意味 し (画面 
ト 上 の 処理 が 終わ っ た と き に 押す ), デー タ の 書き 
込み な ど 必 要 な 処理 を 自動 的 に 行なっ て メニ ュー 
画面 に 戻る . 
注 ) 画 面 上 の 『 確 認 』 の と き に 押す と 画面 上 の デー タ 
は 無効 に な る . 
・ 各 項目 (た と えば は 日付, 科目 な ど ) の デー タ 入 力 
が 終わ っ た と き ,. お よび 『 確 認 」 の 画面 で OK の 
と き に 使う . 
た っ た これ だ け の 操作 キー が 使え れ ば , 財務 会 計 が 処理 で き 
る . 
代 盗 料 の 作成 は 々 メニ ュー か ら 番 号 を 選ぶ だ け 
いろ いろ な 管理 資料 が 作成 で きる よう に 用 意 し て いる . こ 
れ ら 資料 の 作成 は メニ ュー か ら 必 要 な 資料 の 番号 を 選べ は ば 良 
い . 
スタ ンド 式 カ ラー 操作 説明 書 
説明 書 は 図解 入り カラ テー 説明 で ,。 し か も スタ ンド 式 に な っ 
て いる の で , CRT( テ レビ ) の 上 に 立て , 必要 な 部 分 を 見 れ ば 
良い よう に な っ て いる . 
その 他 
ディ スケ ッ ト に 記録 きれ た デー タ の 「『 訂 正 』, 『 取 り 消 し 』 
な ど , 通常 の 事務 処理 に 必要 な 処理 が , 簡単 に で きる よう に 
な っ て いる . 


正確 か つ 迅 速 な 処理 の た め に 


⑯ プ ログ ラム や デー タ の 保護 
操作 ミス な ど で , プロ グラ ム か デー タ を 載 し た ら 大 変 で あ 
る . 使い や すい と いう こと は , それ だ け で か な り の 安全 性 が 
ある こと を 意味 する . プロ グラ ム や デー タ 保 護 の た め に , 万 
一 を 考え た 配慮 も いろ いろ と 組み 込ん で いる . 
人 @ 入 力 処理 が 速い 
慣れ ば それ だ け 作 業 能率 が 向上 する . 
































&O 


表 2 (一 部 分 ) 


所 ヨ 
留 和 S8 年 月 3: 日 





計 当 月 残高 

















主婦 部 分 は マシ ン 語 
1.000 件 の デー タ な ら わ ず か 1 一 2 分 で 処理 する . 


M 広範 囲 に 適応 する た め に M 


科目 名 の 変更 が 自由 
主 勘 定 科目 名 は あら か じ め , 製造 販売 業 用 に 登録 され て い 
る が , 科目 名 を 変更 する こと に より いろ いろ な 業種 に 活用 で 


きる . 

た と える くば 次 の よう に 変更 する . 

(PCA 登 録 ) (医師 業 ) (建設 業 ) 

511 売上 高 1 保険 窓口 収入 完成 工事 高 

512 売上 高 2 保険 請求 収入 

513 売上 高 3 自由 診療 収入 兼業 事業 売上 高 
7 

625 売上 原価 = 医業 原価 完成 工事 高 

と すれ ば よい . 


@ 使 わな い 科目 は プリ ント し な い 
主 勤 定 は 240 種 類 が 用 意 き され て いる が , 使わ な い 科 目 は プリ 
ント し な い . 


1 


開発 会 社名 : ピー シー エー 晶 
販 売 元 : ピー シー エー 賜 
問い 合せ 先 : ピー シー エー 晶 
可 150 東京 都 渋谷 区 渋谷 3-15-15 グ リー ム ビ ル 5F 
東京 谷 (03) 368-9631( 代 ) 
大 阪 谷 (06) 315-8637 
名 古屋 谷 (052) 565-0406 
価格 : シス テム A( 基 本 ) \98,000 
シス テム B(A+ 補 助 、 他 ) \148,.000 
シス テム C(B 二 部門, 他 ) \198,000 
使用 言語 : 漢字 BASIC. マシ ン 語 
必要 な OS : CP/M (カナ は 不要 ) 
提供 媒体 : 5 イン チ ・ デ ィ ス ク 
マニ ュ ア ル : あり , p.68( 図 解 入 り カ ラー, スタ ンド 式 ) 
マニ ュ ア ル 烈 売 : な し . た だ し 第 一 法規 出版 の 『 ザ ・ パ ソコ ン 
会 計 』 \1.600 で 詳し く 解 説 . 
サン プル ・ デ ー タ : な し . 
出荷 開始 時 期 : We "83 年 2 月 
漢字 版 "83 年 11 月 


> 、 >、 シ > シラ シレ シン ンー シー ンー シシ ンー ンジ レンジ リ ウシ ジー ウシ リン シー シン ジ 
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FM-ZAIMU は 仕訳 伝票 の 入力 に より , 集計 計算 を 行ない , 
仕訳 日 記帳 か ら 決 算 報告 書 , 経営 管理 帳 表 の 出力 が で きる 本 格 
的 財務 管理 シス テム で ある . また , 日 本 語 ワ ー ド ・ プ ロ セ ッ サ 
の 機能 を 組み 込む こと に より , 漢字 の 取り 扱い が 簡単 に な り , 
会 計 専用 撲 な み の 機能 を 低 コ スト て 実現 し て いる 
経理 業務 の 時 間 削 減 
@ 経 理 情報 の タイ ムリ ー な 供給 
@ 経 理 情報 の 多角 的 利用 


勘定 科目 の 入力 


仕訳 伝票 を 入力 する と き の 科 目 入力 は , 従来 の 4 桁 の 科目 コ 
ー ド 入力 の 他 に , 頭 婦 字 入力 , 画面 入力 、 お よび 固定 仕訳 入力 
が 行なえ る 

頭 婦 字 入 力 は , 科目 名 を 簡略 し た 3 文字 以内 の 頭 文字 を 入力 
する 方 法 で , 科目 コー ド が わか ら な く て も , 科目 名 を 連想 する 
こと で 入力 で きる . また , 頭 文 字 は ユー ザ が 自由 に 設定 する こ 
と が で きる . 

画面 入力 は 画面 下 に 科目 名 の 一 覧 を 表示 し て , その 中 か ら 番 

号 で 選択 させ る 方 法 で ある . 画面 入力 で は , 科目 コー ド や 頭 文 
字 が わか ら な い 場 合 で も , 科目 一 覧 表 を 見 え を な く て も , その 場 で 
勘定 科目 を 入力 で きる . 

固定 仕訳 入力 は 発生 頻度 の 高い , 複合 仕訳 の パタ ー ン を あら 
か じ め 登 録 し て お き , 科目 入力 時 に PF キー で 取り 出す 方 法 で 
ある 。 固定 仕訳 は 最大 9 種類 まで 登録 すみ こと が で き , |PF1| 
か ら [PF9| まで が 割り 当て られ て いる 

この 入力 方 法 を 使う と , 勘定 科目 が 自動 的 に 入力 され , 金額 
だ け 入 力 す る こと に な り , 入力 効率 を 上 げ る こと が で きる . 

この よう に 科目 入力 は , 従来 の コー ド 入 力 の み に 比 べ て , 覚 
そえ や すく 簡単 に 入力 する こと が で きる 。. 


カナ 漢字 変換 


仕訳 伝票 の 摘要 入力 , 科目 名 の 修正 な ど 漢 字 入力 は , すべ て 
カナ - 漢 字 変 換 方 式 で 入力 する こと が で きる . 入力 され た 漢字 は 
その まま 帳 表 に 出力 する こと が で き , 漢字 の 取り 扱い が 非常 に 


必要 な 帳 表 が , その 会 社 の フロ ッ ピ ィ ー デ ィ ス ク を セッ ト す 
る こと に より , いつ で も 出力 する こと が で きる . た と えば , 月 
中 で も 出力 すれ ば , その 時 点 の 残高 が 出力 され る . 

また , 科目 名 や 摘要 が 漢字 で , 白紙 の スト ッ ク ・ フ ォ ー ム に 
印刷 する の で , 見 や すく 指定 用 紙 (印字 済 用 紙 ) を 用 意 する 必 





312 





アイ パリ 


財務 管理 シス テム 






操作 性 と 桑 軟 性 


オペ レー ショ ン 指 示 メ ッ セ ー ジ と ファ ンク ショ ン ・ キ ー の 表 
示 や , エラ ー チ ェ ッ ク 機 能 の 強化 な ど , 初め て 扱う 方 で も 安心 
し て 操作 する こと が で きる . 

また , 勘定 科目 の 変更 が 自由 に で き , いろ いろ な 業種 の 企業 
や 法人 で も , 運用 する こと が で きる . さら に , 更新 後に 月 を 逆 


っ て , 仕訳 伝票 を 修正 する こと が 可能 に 
ある シス テム を 実現 し て いる 


オプ ショ ン に より 、 経 測 総合 的 な 判断 を 行なう う : だ た な ら 2 
や クラ フ を 作成 する こと が で きる 。 また 。 部 門別 潮 理 を 行 な 
こと に より 。 者 門 ご と の 即 引 。 算 を 把握 す る こと が で きる 、 


高速 処理 


伝票 の 分 類 処理 な ど , スピ ー ド を 要求 され る と ころ は , マシ 
ン 語 を 使い , 高速 処理 を 可能 に し た . 

操作 手順 

FM-ZAIMU は 図 1 の よう な シス テム 構成 に な っ て いる . 処理 
メニ ュー が 2 段 階 に 分 か れ , 各 処 理 メ ニュ ー で 処理 番号 を 入力 
する と , 該当 する 次 の 処理 に 進む . 

FM-ZAIMU の FM-11 シ ステ ム は , オー ト ・ ス ター ト 機 構 に な 
っ て いる . し た が っ て , フロ ッ ピ ィ ー デ ィ ス ク を セッ ト し て 電 
源 を 投入 する と , FM-ZAIMU が 自動 的 に 起動 , し 日 付 入力 画面 
6 

こ で 会 社名 を 確認 し て , 6 桁 の 日 付 を 入力 する と , 第 1 段 
陸生 誠 天光 と ュー ジ 5 和志 き れる 。 

た と えば, 仕訳 伝票 入力 を 行なう 場合 は , 処理 番号 『1』」 を 
入力 し て , 伝票 処理 を 選択 する . 次 に 伝票 処理 メニ ュー 画面 が 
表示 され る の で , 再度 処理 番号 『 1 』 を 入力 する と , 仕訳 伝票 
入力 処理 が 起動 きれ る . 

仕訳 伝票 の 入力 形式 は , 単 一 仕訳 入力 と 複合 仕訳 入力 が あり 
最初 は 単 一 仕訳 入力 と な っ て お り , PF キー で 切り 換え る こと 


な っ て お り , 柔軟 性 の 

















トー| 2 月 次 ・ 決 邊 上 トー 


月 溢 財務 諸 記 
決算 報告 居 
6 月 未 更 新 

残 高 転 送 
貼付 入 罰 8 期末 更新 





上 計 計 3 日 付 セ ッ ト 











了 4 マス タ ・ メ ン テ ナ ンス 1 科目 マス タ | 
2 摘要 マス タ 
13 会 キマ ネタ | 
4 抽 高 モッ ト | 
[5 ?2FDz- | 





6 マス タ FD 増 設 





(オプ ショ ン ) 


[B 全 入 軒 ーー | 時 務 処 理 メ ニュ ー レー| 業務 処理 メニ ュー 


が で きる . 

入力 項目 は 日 付 , 伝票 番号 , 借方 科目 , 貸方 科目 , 金額 お よ 
び 摘 要 で , 部 門 コ ー ド は 必要 に 応じ て 入力 する . 複合 仕訳 は , 
貸借 それ ぞ れ 7 明細 まで 入力 で きる . 

仕訳 伝票 の 入力 が 終わ る と , 集計 処理 に より , 純 利益 が 自動 
的 に 算出 され て , 財務 諸表 を 出力 する こと が で きる . 伝票 入力 
後 の 操 作 は 主 に 各種 帳 表 の 出力 指示 と な り , 処理 を 選択 し て 出 


力 さ れる . 
導 中 効果 


FM-ZAIMU を 導入 し て , パソ コン で 経理 業務 を 行なう と 次 の 
よう な メリ ッ ト が 得 ら れる . 


経理 業務 の 時 間 削 減 

仕訳 伝票 を 入力 する だ け で , 自動 的 に 転記 集計 が 行なわ れ , 
財務 諸表 , 補助 導 な ど 帳 表 が 作成 で きる た め , いま ま て で 帳 筐 へ 
の 記入 , 試算 表 の 作成 な ど に か か っ て いた 時 間 が 大 幅 に 削減 で 
きる . 

特に 決算 業務 は 決算 修正 伝票 の 入力 に より , 即時 に 決算 報告 
書 を 得る こと が で きる . 


経理 情報 の タイ ムリ ー な 供給 


経理 情報 の 価値 は , その 正確 性 と タイ ムリ ー 性 に ある . 伝票 
入力 時 の デー タ ・ チ ェ ッ ク が され て いれ ば , 転記 ミス , 計算 ミ 
ス は 起こ ら な い の で , 正確 性 は 保証 され る . また , 伝票 入力 時 
に デー タ ・ フ ァイル (帳簿 ) が 更新 され て いる の で , いつ で も 
最新 の 経理 情報 を 得る こと が で きる . 


経理 情報 の 多角 的 利用 


経営 の 収益 性 , 流動 性 , 生産 性 の 分 析 を 行なっ た 経営 分 析 表 , 
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財務 仕様 


コー ド 入 力 

頭 文 字 入力 
科目 入力 画面 入力 

固定 仕訳 入力 

(オプ ショ ン 
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補助 科目 較 。 侍 意 に 設定 





ce 出力 帳 表 11 桁 (一 千 億 未満 ) 
間 伝票 入力 10 本 ( 百 億 未満 
決算 | 年 決 算 
摘要 漢字 14 文 字 
固定 摘要 の コー ド 入 力 
摘要 入力 カナ 漢字 変換 入力 














固定 摘要 数 126 件 
伝票 枚 数 、 8.800 枚 / 月 








仕訳 モニ タ 

仕訳 日 記帳 

仕訳 チェ ッ ク ・ リ スト 
出力 帳票 総 勘定 元帳 (補助 元帳 を 含む ) 
6 も シシ る) 補助 科目 一 覧 表 

月 次 財務 諸表 

(月 次 貸借 対照 表 な ど 4 帳 表 ) 

決算 報告 書 

(貸借 対照 表 な ど 4 帳 表 ) 





経営 分 析 表 

要約 比較 表 

予算 管理 表 
前 期 比 較 表 
三 期 比 較 表 

月 次 推移 表 
科目 別 推移 図 
三 科目 比較 推移 図 
資金 繰 実績 表 

部 門別 損益 計算 書 


と スン レプ) 


時 系 列 比 較 を 行なっ た 前 期 比 較 表 , 三 期 比 較 表 。 子 算 と 実績 を 

比較 し た 子 算 管理 表 な ど , 豊富 な 経理 情報 を 得る こと が で きる . 

また , 総 勘定 元帳 や 補助 科目 一 覧 表 を 利用 する こと に より , 売 

掛 , 売上 , 仕 入 な どの 管理 を 行なう こと も で きる . 総 勘 定 元帳 

は 補助 科目 を 指定 する と , 補助 薄 と し て 使う こと も で きる . 

開発 会 社名 : 三 和 ビジ ネス 

販 売 元 : 三 和 ビ ジネス ( 帆 

問い 合せ 先 : 三 和 ビジ ネス 内 

宮 神 奈川 県 横浜 市 中 山区 下町 75 荻 野 ビ ル 8F 

容 (045) 641-6401( 代 ) 

価格 : 標準 シス テム \150.000 

オデ ジョ シ Y50.000 

使用 言語 :F-BASIC. アセ ンプ ラ 

必要 な OS : な し (F-BASIC 下 で 辺 動 ) 

提供 媒体 : 5 イン チ ま た は 標 村 ディ スク 

マニ ュ ア ル : 約 p.90 

マニ ュ ア ル 列 売 : な し (FM-ZAIMU を トラ ブル シュ ー ト や Q&A 
を 取り 入れ て , わか りや すく 解説 し た 『 会 計 ワ 
ー プ ブロ 入門 』。 を 出版 し て いる ) 

サン プル デー タ : 勘定 科目 は あら か じ め 標 準 釣 な も の を 200 科 目 設 
定 し て ある . 

出荷 開始 時 期 : FM-11 "83 年 8 月 





最小 シス テム 構成 : FM- 11 (漢字 ROM カ ー ド 合 む ) 
グリ ー ン CRT デ ィ ス プレ イ 
フロ ッ ピ ィ ー デ ィ ス ク ・ ド ライ プ ブ (2 ドラ イブ ) 
シリ アプ 才 ・ ドット ャ デリ シメ 
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コリ 回 上 


ミュ ャ : ピ ァ と / パ 


利益 万 の 設計 


経営 計画 と いう 言葉 は , いろ いろ な と ころ で 使わ れ , それ に 
よっ て 意味 を 異 に に て いる こと が ある . 開発 担当 の 私 た ち は , 
経営 計画 を "目標 利益 達成 の 設計 図 』 と 考え て いる 

この た め , 目標 利益 額 の 決定 に は , 経営 者 の 戦略 的 見 地 か ら 
の 必要 額 と , 生産 , 販売 の 現場 か ら の 達成 額 と の ギャ ッ プ を 検 
討 す る こと が 欠か せな い . 

そし て , 企業 に は いく つか の 事業 部 , 商品 群 , 単 一 商品 に 頼 


る 場合 で も , 変動 比率 の 異な る いく つの 流通 経路 を 持っ て いる . 


その 占め る 割合 が 変わ れ ば , 総 売上 高 が 同じ で も 限界 利益 の 額 

は 異な っ て 〈 く る . 
目標 利益 額 決 定 の た め の 販 売 部 門 の 達成 可能 売上 高 は , 限界 

利益 率 の 異な る , セグ メン ト 別 の も の で な けれ ば な ら な い . こ 
うし た 事業 部 , 商品 群 , 流通 経路 な ど を , ここ で は プロ フィ ッ 
ト ・ セ ンタ ー と 呼ぶ . 
経営 計画 を 策定 し た 後 は , 実績 と の 対比 を し な く て は 意味 が 

な く , 設計 図 通 りか どう か を チェ ッ ク し て こそ 活か され る . 
この 利益 計画 管理 シス テ は , 計算 , 作家 を コン ピュ ー タ が 

策定 を 人 間 が 担当 する . ここ で , この シス テム の 特徴 を 示す . 

考え る 部 分 を 人 間 が , 単純 作業 を コン ピュ ー タ が 担当 する の 
で , この シス テム だ け に 必要 な デー タ は な い . 

@ 予 実 比較 表 が 作成 で きる の て , 差異 分 析 が 容易 

期末 予想 損益 計画 書 は 予算 と 実績 を 結び つけ る の で , 対応 策 
の 必要 性 が 早期 に つか め る . 

の 期末 予想 貸借 対照 表 は 現金 の 当期 残高 に より , 資金 調達 , 運 
用 の 問題 点 を 明らか に し , 増減 額 で その 問題 点 び どこ に ある 
の か を 明白 に する . 

パッ ケー ジ 化 し て ある の で , 企業 , コン サル タン ト 業 に も 利 


シス テム の 概要 


シス テム を パッ ケー ジ 化 する た め に , 会 社名 。 決算 月 金額 
単位 ( 千 , 万, 10 万 単位 の 3 種類 か ら 選 択 ). プロ フィ ッ ト ・ セ 
ンタ ー の 数 (15 ま で ), 名 称 。 固定 費 項 目 数 (15 ま で ), 固定 費 項 
目 名 実績 変動 費 の 入力 方 法 (プロ フィ ッ ト ・ セ ンタ ー 別 か , 一 
括 か ) を 基礎 デー タ と し て , 登録 し て お く . この 後 , 種々 の デ 
ー タ を 入力 し て お く . 


期末 予想 損益 計算 書 . 


実績 の 連 計 と 残り の 期間 の 予算 合計 に より , 期末 了 想 損 交 計 





算 を 行なう . この た め , 実績 の 登録 は すべ て 同じ 月 まで と する . 


も し , 人 子 算 だ け で 作成 する . 


期末 予想 仙 償 対応 表 
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期末 子 想 は 受け 取り 手形 , 売り 掛け 金 , 棚卸 資産 , 支払 い 手 
形 , 裏書 き 手形 , 買い 掛け 、 未払い , 割り 引き 手形 は , 前 期 の 
回 転 率 に より 計算 し た NM れる 。 その まま で よい か , 
今期 の 事情 で 変更 する か を 選択 で きる 

その 他 の 科目 は , 3 れ て いる 前 年 実績 と 比較 する な ど し 
て , 期末 を 子 想 し て 入力 する . 他 の 科目 の 予想 が 妥当 で あれ ば , 
結局 は 現金 預金 に 集約 され る と 考え られ る . つま り , これ が 異 
常に 少額 に な っ た り , 負 に な れ ば , 資金 ショ ー ト を 意味 する の 
で , 資産 , 負債 の 運用 を 考え な お さ ね ば な ら な い . 


デー タ の 変更 .。 


経営 計画 策定 の 過程 で , 損益 計画 計算 書 や 貸借 寺 妥 表 を 作 成 
後 、 デー タ を 変更 する と き に 使う . ここ で は , 変更 する デー タ 
の 区 分 を 選択 する . 変更 後に た シミュ レー ショ ン を 選択 する と 
新しい デー タ に よる 損 僧 計算 書 や 貸借 対照 表 が 得 ら れる . 


経営 計 画 の 策定 に つい て の 考え 方 


私 た ちの 考え て いる 経営 計画 の 策定 に つい て , 最後 に 述べ る . 
経営 計画 と いう 言葉 は , いろ いろ な と ころ で 使わ れ , それ に 
味 を 異 に し て いる . 私 た ち は 経 営 計画 を 『 目 標 利 益 達 
成 の 設計 図 。 と 考え て いる . 企業 は 営利 を 目的 と し て いる か ら 
目標 利益 は 大 きけ れ ば 大 きい ほど よい が , 短期 的 に は 生産 力 , 

販売 力 に 企業 の 能力 の 限界 が ある . その た め に , 目標 利益 額 の 
決定 に は , 経営 者 の 戦略 的 見 地 か ら の 必要 人 額 と 生産 。 販売 の 現 
場 か ら の 達成 可能 額 と の ギャ ッ プ を 検討 する こと が 欠か せな い . 

- 般 的 に みて , 企業 と 市 場 と の 関係 は , 買手 市 場 で ある と い 
える の で , 具体 的 な 検討 は まず 販売 の 達成 可能 売上 高 か ら , 変 
動 費 を 差し 引い た 限界 利益 率 で 子 完 固定 費 十 必 要 利 益 を 除い て 
OUB IN 2 を と に が る 、 

4 の うち に , 変動 比率 の 異な る 流通 経路 の 占め る 所 リ 
0 変わ れ ば , 総 売 上 高 が 同じ で も 限界 利益 の 額 は 異な 
NN 
率 を 使っ て 目標 利益 を 計算 する こと は 意味 が な く , 目標 利益 額 
決定 の た め の 販 売 部 門 の 達成 可能 売上 高 は , こう し た 限界 利益 
率 の 異な る セグ メン ト 別 の も の で な けれ ば な ら な い . 事業 部 や 
商品 群 , 流通 経路 な ど を 私 た ち は プ ロフ ィ ッ ト セ ンタ ー と 名 ブ 
ける . 

目標 利益 額 決定 の 資料 と し て 提出 され る 販売 デー タ は , 直 ち 
に 満足 の いく 目標 利益 額 を 築く も の で な いこ と が 多く , 不足 額 
を クリ ア す る た め に , プロ フィ ッ ト セ ンタ ー 別 に 詳細 な 検討 に 
入り , ここ で 不足 部 分 を クリ ア す る た め の 方 策 が 決定 され る . 
私 た ち は 経 営 計 画策 定 の な か で , この 不足 部 分 を どの よう な 方 
策 で 解消 し て ゆく か の 検討 過程 が 人 材 を 育て , 市 場 と の 連 淀 を 
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強く する 意味 で , 最も 大 切な 部 分 だ と 考え て いる . 

経営 計画 は , この ほか に 固定 費 内 容 の 検討 , 営業 外 損 益 の 検討 
を 加え て で き あ が る が , 過程 で は 各 プ ロフ ィ ッ ト セ ンタ ー の 売 
- 高 。 変動 費 、 固定 費 が 変わ れ ば , どう 変わ る の か な ど を 栖 通 
り も 計算 し て みる 必要 が ある . 

また , 経営 計画 は 期初 に 策定 し , あと は 実績 と の 対比 を し な 
い の で は 意味 が な く , 経営 計画 を 『 目 標 利 益 達 成 の 設計 図 』 と 
すれ ば , 設計 図 通り 行わ れ て いる か , 設計 変更 は 必要 か どう か 
を , チェ ッ ク し て こそ を 経営 計画 は いか され る と 思う . 

私 た ちの 経営 計画 シミ ュ レ ーション ・ シ ステ ム は , 経営 計画 
の 策定 の 過程 で は , 考え る 部 分 は 人 間 が 担当 し , 面倒 な 計算 , 
作 表 を コン ピュ ー タ が 担当 する . また , 実績 対比 に お いて , こ 
の 実績 で 以後 計画 通り な ら ば 期末 は どう な る か の 計算 や , 子 実 
比較 表 の 作成 を コン ピュ ー タ が 担当 する と の 考え 方 で 作成 し て 
いる . 


















ダー ムツ ミセ ーッ エニ 
フサ ザイ ・E ボ 22 





シリ ラマ パテ カ ” ダ 
ウラ カキ 力 た . 
カイ カケ ・ ミ リラ イ 
カリ イレ ルキ -/ 
9 所 ^ 叶 アカ だ ダ 
ショ ウヨ ヒキ ア テキ - ッ 
ダイ ミッ ョ 7 ヒキ アテ 
ツノ. フサ" 
ホー キー 

ホ ピル ー 導 
リ ミ ダ テキ ント ウ 
トウ キリ エキ 


フサ イ ・E ホ フン ケイ 





・ ピー シー エー 則 大 阪 
: ビー シー エー 暗 
・ ピー シー エー 帆 
大 阪 容 (06)315-8637 
東京 容 (03)368-9631 
名 古屋 容 (052)565-0406 
価格 : \98.000 
使用 言語 : F-BASIC 
必要 な OS : な し 
提供 媒体 : 5 イン チ ・ デ ィ ス ク 
マニ ュ ア ル : p.60 
マニ ュ ア ル 列 売 : 利用 解説 書 出版 を 子 定 . 
サン プル ・ デ ー タ : あり 
出荷 開始 時 期 : 59 年 1 月 
最小 シス テム 構成 : 本 体 FM-11EX. 
CRT エ 。 グリ ー ン 
シリ アル ドッ ト ・ プ リン タ 
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コリ 


UNWQUueS-JQG 


リィ: アノ ョ ン テ / パ 


よい 商品 , よい 製品 を ユー ザー に 提供 する た め に ., 検査 作業 
を 工程 を 組み 入れ , 厳重 な 検査 が 必要 に な る . そこ で は , 個々 
の 検査 結果 で 製品 の 良否 を 判定 する だ け で な く , 製品 グル ー プ 
全体 会 社 全体 , ある い は 一 定期 間 の 検査 結果 を 統計 学 的 品質 
管理 手法 を 使っ て , 一 般 的 に は 管理 され て いる . 6 
この 統計 学 的 品質 管理 手法 を 用 いた プロ グラ ム ・ パ ッ ケ ー ジ 
が uniQues( ユ ニー クス )-TQC で ある . この ソフ ト て 次 の 管理 図 
な ど を 作る こと が で きる . 
⑯x-R 管 理 図 
@P じ 管理 図 
⑥Pn 管 理 図 
@C 管 理 図 
⑨ り 管理 図 
ヒス ト グ ラ ム ( 生 デ ー タ , 度数 デー タ 入 力 ) 
9 バレー ト 図 
計算 , グラ フ が 自動 作成 
⑨ 操 作 指示 は 漢字 表示 
グラ フ 表 示 は , 画面 プリ ンタ の 両方 が 可能 
W デ ー タ 蓄積 可能 





2 ーー 
シス テム 概要 
uniQues-TQC は 以下 の 業務 で 構成 され る 
I ① デ ー タ 入力 (計測 デー タ で も 度数 デー タ で も 可 ) 
(ヒストグラム 作成 
IL 管理 図 作 成 ( 任 意 の 管理 図 発行 ) 
四 コ ピー 処理 
操作 方 法 は すべ て , コマ ンド ・ メ ニュ ー 方 式 を 採用 し , し か 
も 漢字 表示 で 見 や すい . ここ で , 行ない た い 仕事 は , 表示 に 徒 
っ て , 番号 を 入力 すれ ば よい . 
また , 誤っ た デー タ ・ デ ィ ス ケッ ト を 入れ て も , 正しい ディ 
スケ ッ ト が 入る まで , 入れ 換え る よう 指示 する よう に な っ て い 
る の で , 安心 し て 使え る 
た だ し , 不意 の 停電 , 所 線 な ど が ある と , デー タ が 破壊 き 
る 可能 性 が ある の で , 予備 を 必ず 作成 し て お くべ き で ある 
計測 処理 件 数 は , 5 インチ, 8 イン チ と も に , 計測 項目 30, 
計測 値 生 デー タ 400 件 で ある が , 計 測 値 は 計測 項目 ご と 5 58 イイ 
ンチ は 730 件 、 5 イン チ は 220 件 と な っ て いる . 




















作成 管理 図 と その 利用 目的 
XR 管 理 図 (①X 管理 図 分 布 の 平均 値 の 変化 を 見 る 図 
②R 管 理 図 分 布 の 幅 バ ラ ツ キ (範囲 ) の 変化 を 見 る 図 
Pr 千 往 図 | 製品 や サン プル の 中 に , 不良 唱 が どれ だ け 存 在 す る か と いう 特性 を 見 る 図 
に 還 半 ある 一 つの 製品 の な か に 欠点 (defects) が 何 個 あ る か を 見 る 図 
ヒス トク ラム | ① 入 力 され た 計測 デー タ が どん な 分 布 状態 を し て いる か 。 どん な 値 を 中 心 に バラ ツキ を も っ て いる か , 分 布 が 統計 的 に ど 
の よう な 型 を し て いる か を 見 る 図 ② ヒ スト グラ ム は , XR 管理 図 の 計測 デー タ 入 力 終了 後 作成 
パレート 回 不良 項目 の 累積 曲線 を 描い て , 原因 別 。 状況 別 の 問題 点 を 見 る 較 














シス テム 作業 概略 


〇 各 管 理 図 は 指定 項目 で 並べ 替え が で きま す . 








上 


Pn 管 理 図 
デー タ FD 












































統計 演算 












































統計 演算 統計 演算 
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に だ ーーー ここ ) 
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ーー 


衝 還 ! 必 IINEIWID 


13 
7 


で CD や で の むさ 
OADFD ト D ト うー ーー 





UNDER => 


8 の 593 理 0 古 電 1 全 025 コ 3 ビデ SUMIII 二 ノー マル コ で ニー [2 


1.7 が かり A-B [選択 郭 囲 


X bar 











総合 メニ ュー 
83Z9 ム Z1 1 


** UNIQOUES-TQOC (Yer 2) は 87 ニ ュー * さ * n52WGC211 
集 上 っ ー ド を どうぞ = 1 
アー タ 入 力 【X bsr-R1 表 且 の 人 介入 り O 守 





反 設 デー タ 人 入力 【X bsr-RJ QC ア ー タ 一 覧 あの 作成 
アー 大 連 2 (UPy コビー 負 三 

テー タ 入 力 (Pn。C て 1 

生 本 外人 成 

パレ ー ト 図 作成 9 9 NRN 了 





ーーーーーーーーーーーーー ゴ ら 


[アー タス A カ IX54rt-R】1 を HU4 す -OK-IRET1.NG・(SPl1 








管理 図 メニ ュー 


** UNIQUES-TQOC(Vkr 2) 9 ELZ721 
| きっ -r を どうぞ = 1 ーー 一 5? 








X bar-R 生理 較 
P に | 

Pin 飼 理 回 

て に も | 

U に まり 

は 人 アニ ュー に 尽 る 











本 図 を 行い 4 す -OK>IRET). NGC>1SF) 一 - 

















開発 会 社名 : 帆 ユ エニ ・ シ ステ ム 

販 売 元 : 帆 ユニ ・ シ ステ ム 

問い 合わ せ 先 : 帆 ユ ニ ・ シ ステ ム 

愛 530 大 阪 市 北 区 根 崎 新地 1-3-25 毎日 産業 ビル 4F 

富 (06)343-1086 

価格 : \95,000 

使用 言語 : BASIC キ マシ ン 語 

必要 な OS : な し (F-BASIC V.4) 

提供 媒体 : 5 イン チ ・ デ ィ ス ク 3 枚 

マニ ュ ア ル : p.76 

マニ ュ ア ル 列 売 : あり \20,000 

サン プル ・ デ ー タ : な し (マニ ュ ア ル ) 

出荷 開始 時 期 : "83 年 8 月 

最小 シス テム 構成 : FM-11(2 ドラ イブ ・ シ ステ ム ) 
CRT 
シリ アル ・ ド ッ ド ・ プ リン タ 























+ エ 
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ー ス すう 91 スイ A イ コッ セン スイ チョ イロ 7 カー メン 用 "7 ロ ヒッ ー ス 
ヨ 2^ レ ト 19" ミ ラット LP で すし レ 
ormal copy・〔21=Y シ "2 122 copy・〔9]=END っ 
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FM-11 


スー パー プロ 
ジリ ー ズ 


売 * 仕 入 ・ 在 庫 管理 


SUPERPRO 販売 ・ 仕 入 ・ 在 庫 管理 は 売上 管理 , 売 掛 管 理 , 


仕 入 管理 , 買掛 管理 , 商品 管理 , 在庫 管理 が 有機 的 に 結合 され 
た , トー タル ・ シ ステ ム で す 。 

本 シス テム は 処理 件 数 に お いて も , 一 定 範囲 内 で 自由 に 振り 
分 け て 使え る よう な , 弾力 性 を 持つ . 


⑩ 漢字 で 表示 , 印刷 


簡単 な 音読 み , 訓読 み の 入力 に よる , か な 漢字 変換 を 使い , 
得意 先 名 , 仕 入 先 名 、 商 品名, 販売 員 名 、 住所 な ど が 漢字 で 表 
示 , 印刷 で きる . 
トー タル ・ シ ステ ム 

売上 , 仕 入 , 入金 支払, 入出 庫 の 伝票 の デー タ を 入力 する 
だ け で 、 売掛金 管理 , 買掛 金管 理 , 粗 利 管理 、 お よび 人 在庫 管理 
が で きる 
画面 と の 対話 型 入 力 で や さ し い 操作 

すべ て の 処理 は , 画面 に 表示 され て いる メニ ュー か ら 選 択 す 
こと で 実行 する . また , 各 処 理 に お いて は , 必要 な 手順 は す 
べ て 画面 に 指示 され る の で , 利用 者 は 画面 と 対話 し な が ら , 簡 
単に デー タ 入 力 が で きる 
《⑩ 売上 伝票 , 請求 書 は (株 ) 日 本 法令 製 を 使用 

売上 伝票 は 販売 MC-2. 請求 書 は 販売 MC-6 を 使う . 社名 な 
どの 印刷 も 容易 で , 複写 枚数 も 自由 に 設定 で きる . 

また , 仕 入 伝票 精算 書 に つい て も 同様 
⑥ 締 日 に 請求 書 を 自動 発行 

締 日 に は 日 付 入力 で だけ で , 同一 締 日 の 得意 移す べ て に 対し て , 
請求 書 が 自動 発行 きれる. 
⑯ 棚卸 し も 簡単 に 

棚 抑 し に よる 在庫 数 の 補正 が 簡単 に 行なえ る 
め の 5 管理 資料 も 豊富 

得意 先 , 仕 入 先 , 商品 、 販 売上 員 ご と の 各種 日 報 , お よび 管理 
資料 も 豊富 に 用 意 き され て いる . これ に より , 1 日 の 売上 集計 や 
MM 


業務 の サイ クル _ 


SUPERPRO 販売 , 仕 入 , 在庫 党 理 は 業務 の サイ クル に 
よっ て 分 類する と , 以下 の よう に な る 
の 導入 時 業務 

本 シス テム を 導入 する 際 に 必要 な 処理 で ある . まず , 本 シス 
テム の 使用 条件 (た と えば , 小数 使用 の 有無 。 丸 め 法 な ど ) を 
設定 する 











その 後 , 得意 先 , 仕 入 先 。 販売 員 , 商品 の 各 友 帳 を 作成 する . 
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@ 日 次 業務 

本 シス テム の 中 心 と な る 部 分 で , 毎日 の 売上 伝票 。 仕 入 伝票 
の 発行 、 入金 、 支払 、 入出 庫 の 各 デ ー タ 入力 , お よび 各種 日 報 
の 発行 を 行なう 


⑥ 月 次 業務 


本 シス テム で は , 各種 デー タ は , 2 つの サイ クル に よっ て 管 
理 さ れ て いる . 1 つ は 締 日 か ら 翌 締 日 まで の 締 日 単位 の 管理 , 
も う 1 つ は 月 初め か ら 月 末 ま で の 月 単位 の 管理 で ある 

月 次 業務 で は , この 月 単位 の デー タ を 各種 月 報 。 管理 表 と し 
て 発行 する . 


⑳⑩ 締 日 業務 


請求 書 お よび 精算 書 の 発行 を 行なう 


⑥ 随時 業務 


各種 一 覧 表 の 発行 を 行なう . これ ら 一 
な と き に 出力 する こと が で きる . 


⑯ 棚卸 し 業務 


棚卸 し を 実施 し た 際 に , 実 棚 数 に よっ て , 計算 機 上 の 在庫 数 
を 補正 する た め に 行なう 


操作 の 夷 際 


SUPERPRO , 仕 入 , 在庫 管理 の 操作 が 簡単 で ある こ 
と を 理解 する た め に , ここ で は 売上 伝票 を 説明 する . 


業務 メニ ュー 

画面 に 表示 され て いる メニ ュー の 中 か ら 行 な いた い 処理 の メ 
ニュ ー 番 号 を 入力 する だ け で 実行 で きる . 

まず 処理 の サイ クル に 対応 し た , 主 メ ニュ ー が 表示 さ 
た と えば , 売上 伝票 の 処理 を 行ない た い 場 合 は , 日 次 業務 な 
で , 1 を 選択 する . すん と , 1 あの らら 0 
ここ で , 1 を 選択 すれ ば 売上 伝票 の 処理 を 行なう こと が で き 
る . この よう に 「『SUPERPRO 販売 ・ 仕 入 ・ 在 庫 管理 」』 の 各 
プロ グラ ム は , メニ ュー 画面 か ら の 選択 に 始ま り , 各 プ ログ ラ 
ム の 終了 に より メニ ュー 画面 に 戻る .、 と いっ た 形 で 処理 が 起 移 
する . 


覧 表 は いつ で も , 必要 






&O 


表 1 販売 ・ 仕 入 ・ 在 庫 管理 で 扱え る 件 数 表 2 各 項 目 の 桁 数 お よび 囲 
2 ニシ ガン: : | 


得意 先 台帳 漠 字 で 15 凛 字 以 内 


あわ せ て 1 漢字 で 15 壇 字 以 内 
7 漢字 で 15 文 字 以内 
商品 台帳 


漠 字 で 10 凛 字 以 内 
販売 員 台 帳 100 人 1.000 万 未満 , 小数 吉 以 下 2 桁 
売上 伝票 枚数 1.000 万 未満 , 小数 点 以 下 3 桁 
せ / 
仕 入 伝票 枚数 501 10 億 円 未 満 . 


1 売上 伝票 帳票 
































田川 町 36-6 
ワー ルド 宇田 川 ビル 


株 式 会 社 一 記 Ib リ リス 


分 O3 (464) 1241( 代 ) 








カウ SPY レ ERYTC 1 BKHHG02 | 一 台 | sr2 | - 和 440。000 | = 280。90o 
みか テー テ チ テレビ CVYV20T7T7E | | | 200 。000 | 400。Q00 
セア デ ォ レコ ュー ダー F503 有 - 170。000 510。000 
ど オキ 5i レ ーー ダー 75.B X. | | | sa0。000 1 「 230。906 
洗濯 柏 KW360M NT ーー す goooo | go,aoo 

















** 尊 上 伝 3 《 條 売上 ) 


付 58768723 
人 


ml mls 


ロロ 
1| カ ラー テレ ビ PROOTIE 148,668| 289,889 
3|F デ テオ レコ ュー ダー F503 | 台 | 3| 17@.698| 549.999 


4| ビ デオ レコ ー ダ ー 75BX | 台 | 236,888| 238,688 
洗濯 機 KW360M | 台 | 。 11| 89609O| 89.699 


確認 し て 下さ い 。 OK 〔PF 1 〕 / 妥 更 【PF 5〕 キャ ン セ ル (PEFB] 


開発 会 社名 : 則 リー ド ・ レ ックス マニ ュ ア ル 別 売 な し 

販 売 元 : 費 リー ド ・ レ ックス サン ブル ・ デ ー タ : な し 

問い 合せ 先 : 帆 リー ド ・ レ ックス 出荷 開始 時 期 : 昭和 58 年 9 月 

副 150 東京 都 渋 谷 区 宇田 川町 36-6 ワー ルド 宇田 川 ビ ル 最小 シス テム 構成 : FM-11EX(MB25050) ま た は FM-11AD(MB 
容 (03) 464 -1241 25040) また は FM-11ST(MB25030) いずれ も 、 

価格 : \200.000 ミニ フロ ッ ピ ー2 ドラ イブ 必要 . 

使用 言語 :F-BASIC V4.0 ディ スプ レイ : MB27311 

必要 な OS : な し プリ ンタ : ビジ ネス ・ プ リン タ (MB27402) 

提供 媒体 :5 イ ンチ ・ フ ロッ ピー ディ スク プリ ンタ ・ ケ ー プ ブル : MB26524 

マニ ュ ア ル : あり . 尊 入 手引 編 , 操作 説明 編 、 その 他 , 計 p.120 漢字 ROM カ ー ド : MB28111 
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ACE 


リレー ショ ナル ツテ 





DATA ACE は 、 パ ー ソ ナル ・ コ ンピュータ ・ シ ステ ム の た 
め 強 力 な が リレー ショ ナル ・ デ ー タ ベー ス 管 理 シ ステ ム で ある . 
社内 の 繁 雑 な 業務 を コン ピュ ー タ 化 さ せ た い が , ソフ トウ ェ ア 
を 外注 する に は コス ト が 高く , な ん と か 自社 内 で 開発 し た いと 
苦心 し て いる 方 や , 簡易 ソフ トウ ェ ア に 飽き た ら ず , デー タ ベ 
ー ス の 機能 を フル に 活用 し て , デー タ の 整理 , 検索 を パー ソナ 
ル ・ コ ンピュータ て 実現 させ た いと 考え て いる 方 々 が , 有効 利 
用 で きる ソフ トウ ェ ア ・ パ ッ ケ ー ジ で ある . 

以下 に 特徴 を 示す . 
項目 の 集合 で ある リレー ショ ン 定 義 可 能 
リレー ショ ン 問 通信 機能 
デー タ 統 合 機能 
デー タ 検 索 
カタ ログ 機能 
⑮ 簡 単 な 帳 票 作成 , 検索 の 自動 処理 
プロ グラ ム 編 集 は スク リー ン ・ エ ディ ッ ト 
⑬ デ ー タ 操作 は ユー ザー の 自由 な レイ アウ ト , 
グラ フ 表 示 可 能 


処理 











デー タベース を 構築 する . 
設定 すれ ば よい . 次 


初め に , デー タ を 著 積 する た め に , 
どう いう 項目 の デー タ を 管理 する の か を , 


に , この デー タベース に デー タ を 入力 し , まず は 。 検索 業務 や 
簡単 な 帳 革 を レイ アウ ト し て , デー タ を 活用 する こと か ら 始 め 
る . 

さらに, 鞭 積 きれ た デー タ を , より 業務 に 適応 し た シス テム 


と し て , 有効 に 利用 する た め に , 業務 を 分 析 し アプ リ ケ ー シ ョ 
ン ・ シ ステ ム を 開発 する . どの よう な 帳票 が 欲し い の か , どの 
よう な 内 部 計算 が 必要 な の か , また , どの よう な 入力 画面 が 鈴 

し い の か を 設計 し , 具体 化す る . 
この よう な プロ セス を 経て , ユー ザー は 定型 業務 を 
AR こと が 可能 で ある . また 非常 型 業 務 用 に も デー タ 
則 用 する こと が で きる . 


完全 に シ 





テー タベース 定義 機能 で は 、 項 目 を 定義 し それ ら を 関係 付 
けた , リレー ショ ン を 定義 し て デー タベース を 構築 し ます . ま 
た , 実際 の デー タ が 入力 され た 後 で も 、 デー タ 項 目 の 長き 、 フ 


ォ ー マ ッ ト 。 リレー ショ ン に 新た に 項目 を 追加 し た り 削 除 す る 
こと が で きま す . 
リレー ショ ン の 定義 


項目 の 集合 で ある , リレー ショ ン を 定義 むる, た と えば , 商 
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こ は , HIN と いう リレー ショ ン 名 。 
商品 名 な どの 項目 を レイ アウ ト し , 各 
る . 項目 は , 最大 25 個 まで レイ アウ | 


品 マ スタ を 構築 する 場合 
商品 番号 を , キー 項目 , 
項目 の 入出 力 順 を 定義 す 


で す . 項目 の 合計 の 長き さ は 255 バイ ト ま で で ある . また , ノー 
ショ ナル 機能 と 併用 し て , 最高 6 段階 まで の 多段 階 ソ ー ト が 可 
能 で ある 


リレー ショ ン 間 通信 機能 
上 離れ た 場所 に 置か れ た , も う 1 耕 の DATA ACE シス テム と 
RS-232C イン ター フェ イス を 介し て 通信 する こと が で きる . 
リレー ショ ン 内 の デー タ を レコ ー ド 単位 に 送受 信 し , さら に 
受信 側 で リレー ショ ン の 更新 まで 行なう と いう 画 期 的 な 機能 で 
ある . 
音響 カプ ラー を 使え ば , 





遠 距離 通信 も 可能 と な る . 





商品 番号 を 指定 で ーー を 
簡単 な コ 
る 項目 


商品 マス ター の 中 か ら 。, 
た り , 任意 の 項目 に 条件 を 設定 し た 複合 条件 検索 が , 
マン ド で 実行 で きる . この よう に , 検索 条件 を 設定 で きる 
が , 自由 に 指定 で きる の が 特長 で ある . 


機能 ( 


カタ ログ 機能 は . プロ シー ジャ , テキ スト , プロ グラ ム の 
3 つの モー ド を 利用 する こと に より , 簡単 な 帳票 の 作成 。 文章 
登録 , プロ グラ ム と 編集 が 行なえ る 

スク リー ン ・ エ ディ ッ ト 機 能 を 備え て いる の で , 効率 よ く 画 面 
上 で 編集 で きる . 




















帳票 作成 と 検索 の 自 

イト ル , 出力 項目 名 , 合計 の よう な 出力 形式 の レイ ア 
出力 させ る デー タ 項 目 な ど を 設定 で きる . 

ー タ 検索 を 自動 的 に 処理 し た い 場 合 に は , 同様 に 検索 条件 

も HG き る. 





Lo 作っ 





一 連 の 事務 処理 を 行なう に は , 必 
。 例 と し て , 販売 管理 シス テム に つ 


ec 
ず プ ログ ラム が 必要 に な 
いて 考 て みる 

1 日 の 売上 伝 ほ を 集計 し , 得意 先 台 帳 や 商品 台帳 に 記帳 し て , 
残高 を 更新 する 処理 が 必要 で ある . 1 日 の 売上 伝票 の 集計 あ 
る い は 各 台 帳 ご と の 集計 処理 は DATA ACE の DIL 機能 で , プ 


図 1 


1699999 


3200909 


3800999 
1999999 


1599999 
1399999 


&O 


グラ フ 表 示例 





13999999 


に コ 


全社 目標 17199999 


図 2 


会 
今 


仕 入 単価 


月 売上 数 量 
\40090 20 


仕 入 単 価 


月 売上 数 量 
\15990 15 


仕 入 単価 


今月 売上 数 量 
\6099 19 





ソー ト 例 


当月 在庫 数 
6 
当月 在庫 数 
6 


当月 在庫 数 
2 





図 3 帳 表 出 力 例 


候 表 


今月 売上 金額 


\8 ヨ 0990 
\190099 
\300099 

\88900 
\794999 
\1024990 
\455990 
\47509990 
\3989990 
\124099 


ョ n 


「 王 必 構 r 紹 
圭二 ぶさ き 通 こら 6N 寺 


パコ さき 画 ゆ 35 か 画 革 ー 


ro 
oO の ココ の ロロ ょ の ロビ 
S* 


mm ロロ 


12415099 
6184899 


シミ 
避 
強 紅 


ゆ ゆ コ 


ログ ラム な し で で きる . し か し , この よう に 2 つ 以 上 の 台帳 に 
対し て の 複雑 な 処理 は , プロ グラ ム で 処理 すべ きこ と で ある . 








開発 会 社名 : 米国 コン ピュ ー タ ー・ ソ フト ウェ ア ・ デ ザイ ン 社 
販売 元 : 帆 ソ フト 工学 研究 所 
問い 合せ 先 : 帆 ソ フト 工学 研究 所 
肝 101 東京 都 千 代田 区 外 神 田 3-11-2 ロッ クビ ル 2F 
容 03(251) 1195 


価格 : \275.000 

使用 言語 : FORTH 

O S : CP/M-86 

提供 媒体 : 5 イン チ ・ デ スク 


キネ キ 





日 付 98/23/83 PAGE 


今月 仕 和信 数 量 前 月 未 在庫 数 当月 在庫 数 
10 
22 
20 
8 
10 
50 
10 
30 
2 
8 


今月 仕 入 金 額 


\630090 
\88000 
\399009 
\48000 
\620090 
\1209000 
\500000 
\2790090 
\0 
\98800 


ト ゝ 


ょ の GS エ 呈 DD の の の 


pーOーmG ょ ーー ト の 


以上 の よう に , DATA ACE は , デー タベース 定義 機能 (D 
DL), デ ー タ 統合 機能 (DIL), カ タロ グ 機 能 (CAT), デー タ 操 
作 機能 (DML) の 4 つの 強力 な 機能 に より , パソ コン 上 で 自由 
に デー タ を 操作 し , か つ 自 由 な シス テム 開発 を 可能 に する 。 


マニ ュ ア ル : あり ( 約 p.200) 

マニ ュ ア ル 別 売 : な し 

サン プル ・ デ ー タ : あり 

出荷 開始 時 期 : "83 年 9 月 

最小 シス テム 構成 : 本 体 FM-11EX(MB25050) 
CRT(MB27311 ま た は MB27312) 
プリ ンタ (MB27402) 
漢字 ROM カ ー ド (MB28111) 
増設 用 ドラ イブ (MB27609) 
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コリ 回 1 


と キョ | ん で) 逢 


イコ [ンー 人 ペア ( 


dBASE II は 、 従 来 大 型 コ ンピュータ で 使わ れ て きた 、 デ ー 
タベース を パー ソナ ルコ ンピュータ ・ レ ベル て 利用 で きる よう 
に し た も の で ある . 専門 的 知識 を 必要 と せ ず , 初心 者 で も 8 個 


の 基本 コマ ンド で デー タ の 登録 , 修正 , 検索 が 簡単 に 行なえ る . 


そし て , 複雑 な デー タ 処 理 を 行なう 命令 や , スク リー ン ( プ 
リン タ ) に 対す る 命令 が 強力 で あり , いま まで の BASIC の も 
の と 比べ て 約 1/10 以 下 の 工程 で プロ グラ ム が 作成 で きる . 

デー タ は , CP/M な どの 共通 OS 上 で 動く , 他 の ソフ トウ ェ 
ア の デー タ と 互換 性 が と れる 機能 が 備わっ て お り ,BASIC で デ 
ー タ を 処理 し , dBASEII で これ を 管理 する と いう こと も で き 
る . 

デー タ の 互換 性 は , ソフ トウ ェ ア 間 だ け で な く , CP/M の デ 
ー タ を CP/M-86 て 処理 する こと も で きる . 

また , 文字 スト リン グ 演 算 や . マシ ン 語 ルー チン の 使用 な ど 
の 機能 も ある . 


dBABE II の 言語 体系 


務 約 語 は , 入力 し た 文字 だ けが チェ ッ ク さ れ , エラ ー が 発見 
され る と , エラ ー メ ッ セ ー ジ を 表示 し て , エラ ー の 場所 を 示す 
と と も に 訂正 する か 否 か を 聞い て くる . 
誠に Ab 長い 命令 を 何 度 も 入力 する 
こと が な いよ うに な っ て いる . 


さら に , マク ロ 機 能 ( 交 ) に より , メモ リ 変 数 に 命令 , ある い 





は 命令 の 一 部 を 定義 し て 実行 で きる 
ま :7 な だ 0 人 ショ ン は , 決っ た 順 庁 など な く , 任意 の 
順に 指定 で 
例 
COPY TO TEMP FOR 単価 > ニー1000 FIELD コー ド , 
単価 , 数 量 


中 COPY FOR 単価 テー1000 FIELD コー ド , 単価 , 
数 量 TO TEMP 











この 機能 に より , ユー ザー は 命令 の シン タッ クス な ど 気 に せ 
ず に 使用 で きる . 

デー タベース に 必要 不可 欠 な デー タ 検 索 は FOR < 条件 > で 
行なう こと が で きる . この 条件 が 真 (Truen と な る も の だ けが 
命令 の 対象 と な る 





例 
REPORT FORM FOR 住所 三 "渋谷 区 ? 
フィ ー ル ド `\ 住 所 / が 渋谷 区 の デー タ だ け レ ポー ト す る . 











条件 は , AND, OR, NOT な ど を 使っ て , より 複雑 な 条件 
と する こと も で きる . さら に , 文字 列 検索 ($ ) や , 関数 も 条件 
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の 中 に 使え る . 

構造 化 プ ログ ラム の た め の 命 令 は ルー プ (DO WHILE 一 EN 
D DO, 条件 判断 (IF 一 ELSE-ENDIF、 DO CASE- CASE 
で 2 OTHER WISE-ENDCASE な ど が ある 


ファ イ ル の 更新 


トラ ン ザ クシ ョ ン ・ フ ァイル (BFILE) に デー タ (数 量 ) を 入 
力 し , その デー タ (数 量 ) で マス タ ・ つの 05 
する こと が で きる 。. 

使用 ファ イル の 構造 は 表 2, 図 1 の 通り で ある . 
⑳ ト ラン ザク ショ ン ・ フ ァイル の ソー ト 

BFILE の コー ド で ソー ト を 行なう 





USE BFILE SORT ON コー ド TO SF 











ソー ト さ れ た ファ イル を SF と する . 
@ 同 ヒコ ー ド で 集計 
SF ファ イル の 同じ コー ド を 集計 する . 





USE SF TOTAL ON コー ド TOS 











集計 され た ファ イル を S と する 

⑥ マス タ ・ フ ァイル 更新 

コー ド で 集計 され た S フ ァイル で マス タ ・ フ ァイル を 更新 す 
る . 





USE AFILE UPDATE FROM S ON 
コー ド ADD 数 量 











ファ イル の 結合 


2 つの ファ イル の 項目 を 結合 し , 新しい ファ イル を 作成 する 
こと が で きる 。 
使用 ファ イル の 構造 は 以下 の 通り で ある . 





SELECT PRIMARY USE AFILE SELECT SECONDA 
RY USE BFILE SELECT PRIMARY JOIN TO CFILE 
FOR コー ド =S. コー ド FIELD 

コー ド , 商品 名 , 単価 , 数 量 











作成 され る ファ イル (CFILE) の 構造 は . コー ド , 商品 名 , 


表 1 dBACEII 基本 コマ ンド 


CREATE ファ イル を 作成 


USE 使用 宣言 
APPEND デー タ 追 加 
ESD3 同 居 デー タ 修 正 


INDEX イン デック ス 
COPY コピー 機能 
RFPORT 





表 2 使用 ファ イル の 構造 例 1 








単価 、 数 量 と 
2 

(ある い は `P.” ) を フィ ー ル ド 名 の 前 に 付け る . “S. コ ー ド ? は 

SECONDARY エ リア の フィ ー ル ド と みな され る . 


ファ イル の 構造 の 変更 


デー タベース ・ フ ァイル の 構造 を 変更 する と き , デー タ は す 
べ て クリ ア さ れる の で , 別 の ファ イル に バッ クア ッ プ を と っ て 
お 

た だ し , フィ ー ル ド 名 は 変更 し な いも の と する . 


USE AFILE 
COPY STRUCTURE TO 
TENP 
USE TENP 
MODIFY STRUCTURE 
) 
構造 修正 
) 
APPEND FROM AFILE 
COPY TO AFILE 
USE AFILE 
DELETE FILE TEMP 


構造 を 修正 する ファ イル を AFILE と し , ファ イル 構造 の み 
を TEMP フ ァイル に コピ ー す る . その ワー ク ・ フ ァイル 上 で , 


開発 会 社名 : Ashton-Tate 
総 販 売 元 : ソ フトウェア ・ イ ンタ ー ナ ショ ナル 幌 


問い 合わ せ 先 : ソ フトウェア ・ イ ンタ ー ナ ショ ナル イン フォ メー 


ジョ ンー モ ジ タ ー 
可 東京 都 渋 谷 区 神宮 前 6-12-20 東 洋 ビ ル 9 
容 (03) 486-7155 
価格 : \268.000( 漢 字 バ ー ジ ョ ン ) 
使用 言語 : アセ モン プラ 
必要 な OS : CP/M-86 








&O 


トラ ン ザ クシ ョ ン 


1 ファ イル 更新 の 概念 


更新 




















構造 修正 を 行ない , AFILE の デー タ を 追加 する 

0 か oi は MCNEHYEIES2IE RE 
る . 

0 フィ ー ル ド 名 に よっ て 処理 され る の で , テキ ス 
ト ・ フ ァイル (TEXT・TXT) に デー タ を コピ ー し て , 構造 
人 し た 後に 追加 する . 


ユー ザー が 作成 し た スク リー ン 上 で , 入力 を 行ない , デー タ 
を ファ イル に 追加 、 修 正す る 








( 
デー タ 入 力 (修正 ) 
1 
[APPEND BLANK) 
REPLACE…… 
1 














デー タ 入 力 で , 画面 制御 命令 ( ERASE, @ な ど ) で スク リ 
ー ン を 描き , 入出 力 を 行なう 

修正 する 場合 は 、 APPEND, BLANK 命 令 を 省略 し , ポイ 
ンタ の 移動 を 行なう . ポイ ンタ の 移動 は LOCATE, FIND, 
GOTO, SKIP, 1 0 ど で 行なう 

スク リー ン 上 で は , メモ リ 変 数 に 入力 し , REPLACE 命 令 で 
デー タ を 置き 換え る 


提供 媒体 : 5 イン チ ・ デ ィ ス ク 
マニ ュ ア ル : あり , p.160 
マニ ュ ア ル 別 売 : な し 

サン プル ・ デ ー タ : あり 


出荷 開始 時 期 : "83 年 6 月 1 日 
最小 シス テム 構成 : FM-11EX RAM 128K 
フロ ッ ピ ー デ ィ ス ク 1 台 
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ビジ ネス や 科学 技術 を 行なう 人 は , さま ざま な 数 値 デ ー タ を 
使う . それ を 表 の 形 に 整理 し , その 加工 に よっ て 新た な デー タ 
を 生み だ す 必 要 性 が , いろ いろ な 場面 で 登場 する . 簡単 な も の 
な ら ば , 紙 と 鉛筆 と 定規 が あれ ば こと 足り る . 

し か し , デー タ 量 が 多かっ た り , 計算 式 が 複雑 だ っ た りす る 
と , この よう か 方法 で は 間に合わ な く な る , コン ピュ ー タ に 
その 仕事 を させ た い , と 考え る の が 自然 の 成り ゆき だ ろう . 

し か し , シス テム を 使っ た 場合 の コン ピュ ー タ に よる 作 表 作 
業 に は , いろ いろ な 制限 が 課さ れ て いる . 

その 点 FMCLC は , 純粋 に 作 表 用 言語 と し て 開発 され た ソフ 
トウ ェ ア な の で , 

⑩BACIS や FLEX, CP/M な どの OS を 必要 と し な い . 

@POWER ON て 起動 する . 

起動 する と 作 表 画面 が , いき な り デ ィ ス プレ イ に 表示 され 

る . 

SM くい る 





前 に 表示 され た 画面 は ,. FMCALC の 表 の 一 重税 ら て 。 
列 名 AZ の 26 列 (コマ ンド に より , AZ, a 一 2 の 52 列 まで 拡張 
で きる ), 行 数 128 の 巨大 な 表 の 大 部 分 は 現在 隠れ て いる に す 
ぎ な い . 面 男 の 移動 に より , 希望 の 領域 を 表示 させ る こと が で 
きる . 

列 名 (AZ) と 行 番号 (1 一 128) に よっ て 決ま る 領域 を プ ブロッ 
ク と 呼び 、FMCALC の 入力 単位 と な る . その 列 名 と 行 番号 が 
座標 に あたり ,、 た と えば A1, C23、Y105 な ど と 表し , プ ブロッ ク 

Re か な 

現在 の 入力 対象 プロ ッ ク は , ブロ ッ ク ・ カ ー ソ ル に より 示さ 

れる (起動 画面 に お いて A1 位 置 に ある 還 本 紅 が ブロック ・ カ ー 
ソル ). デ ー タ な 5 人 人 の に キー 時 プロ ッ ク ・ カ ー ソ 
ル の ある ブロ ッ ク に デー タ が 入り , 表示 さき れる. ブロ ッ ク ・ カ 
ー ソ ル の 幅 は , 30088 有 れ が ( 吉 。 
ー59 の 間 で 変更 が で きる . ブロ ッ ク ・ カ ー ソ ル の 移動 ほ 、 カー 
ソル 移動 キー が 利用 で きる ほか , ブロ ッ ク 座 標 の 指定 に よる 方 
法 $ も ある. また , CURSOR コ マン ド も , 効率 的 な ブロ ッ ク ・ 
カー ソル の 移動 に 有用 で ある . この ブロ ッ ク に は 文字 (漢字 を 
全 り ・ が 款 婦人 ず 符 六 村 生ま る 7 








。 全角 文字 に は , キー ボー 
ド か ら 直 接 入力 する 英字 , カナ , ひら が な , 記号 と , カナ ・ 漢 
字 変 換 に よる 漢字 入力 と が ある 


娘 字 は 半角 廊 字 と 全角 文字 が ある 
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pp クリル リル ん 


TNGAL2 力 な 武器 は 四則 演算 や 各種 関数 を 用 い メ 1 
算 が , 自由 に 行 な を る こと で ある 

式 に 用 いる VN 了 チ は 以 下 の も の で ある . + ( 加 
算 ) , 一 (減算 ) , * (乗算 ) , / (除算 ) , へ (べき 乗 ) 
に FMCAEC で 利用 で き る 関数 は , 表 2 の 通り で ある . 


DC PP ド は 表 を みれ ば , 簡単 に わか る . 作 表 に 7 
効 な SORT に 関し て , 例 を あげ て 設 中 する 5 SORT は 。 指定 し た 
行 。 列 に 基づい て ( KEY 行 , KEY 列 と 呼ぶ ), 行 。 列 を 並べ か を 
る も の で ある 

図 2 は , 商品 =-17 の それ ぞ れ に つい て 。, 
合計 を 記録 し た も の で ある . 

SORT コ マン ド に より , 合計 列 (」 列 ) を KEY と し て 行 を , 
数 値 の 大 きい 順に 並べ か える と 図 3 の よう に な る (範囲 は A 1 
J 17) 

TOTAL 行 を 除い て , 行 の 並べ か を が 行 われ , 合計 列 の 大 
きい 順に な っ て いる こと が わか る . 本 列 で は 大 きい 順 だ が , 小 
PR と も で きる し , 廊 字 の 場合 の アル ファ ベッ ト , 

音 順 の 並べ か えも 可能 で ある 

実行 に 必要 な パラ メー タ は , コマ ンド に あら か じ め 指 定 する 
の で は な く , 罰 を 押す こと で , シス テム が 表示 する メッ セー ジ 
に 応答 する 形式 を と っ て いる . 

この コマ ンド は , FMCALC の 中 で も ひと きわ 有力 な 機能 で , 
デー タ 整 理 。 分 折 に 威力 を 発揮 する . 

数 値 列 ( 行 ) を KEY に する 場合 は , 日 付 順 の 並べ か えも で 
きる . また SORT の 結果 を 利用 し て , メジ アン を 計算 する こと 
も 容易 で ある . 廊 字 デー タ 列 ( 行 ) を KEY に し た 場合 、 名簿 
作成 な ど に 効果 が ある . ラン ダム ! に 入力 し た も の を 五 十 音 順に 
SORT す れ ば , その まま 名 簿 が 作成 で きる . 


地域 別 の 売上 と 





表 1 漢字 FMCALC の 仕様 


プロ グラ ミン グ 言 語 | マシ ン 語 . 

プロ グラ ム ・ サ イズ | 約 30K バ イト . 

約 60K バ イト . 

約 20K バ イト 

5 イン チ フ ロッ ピー ディ スク 

19 種 

10 種 (オプ ショ ン 付 き を 含む ). 

横 52X 縦 128( 最 大 ). 

1 59 文字 (スタ ー ト 時 は 14 文 字 ) 

カタ カナ , 甘 廊 字 , 数 字 , グラ フィ ッ ク 記 号 . 
漢字 , キリ シャ 文字 , 各種 記号 ,、 ひ ら が な , カタ カナ 
ロー マ 宇 . 

カー ソル 移動 方 式 . 

漢字 一 文字 ご と の カナ ・ 漢 字 変換 

左 づめ 表 字 , 最大 59 文 字 / 項 (全角 ) 29 文 字 
右 づ め 3 桁 ご と に カン マ 付 き 表 示 . 
数 字 式 通り . ( ) 付 き . 最大 60 文 字 

一 般 関数 10 種 . 

特殊 関数 2 種 

一 般 式 16 桁 . 

関数 13 桁 . 

P A | 定数 16 桁 . 

非 計算 モー ド を 含め 3 種 . 

並 通 文 字 . 

ドラ イプ 0 また は ドラ イブ 1 (立ち 上 げ 時 に 指定 ), 
BASIC の DATA と 同形 式 . 


表 2 FMCALC の 関数 


コ 
P 
表 
項 
使 
入 
漢 
入 
入 
算 


曽 
* 
に 
* 
洗 








正 纏 を 与え る . | SIN (<8 < 引数 > の 単位 は ラジ アン . 








余 纏 を 与え る . | COS(<3 < 引数 > の 単位 は ラジ アン . 





正弦 を 与え る . | TAN(<8 < 引数 > の 単位 は ラジ アン . 





< 引数 > の 単位 は ラジ アン . 


え N( く 
逆 正 接 を 与え る | ATN(<3 数 人 入団 は ーッ 2 か ら y2 ま て. 








絶対 徒 を 与え る . | ABS (<〈8 





e@ の べき 乗 を 与え る . | EXP (< く 8 





自然 対数 を 与え る . | LOG(<8 < 引 数 > は 正 . 





平方 根 を 与え る . | SQR(<8 < 引数 > は 0 また は 正 . 





整数 化 を 行なう . | INT(<8 


〈 引 難 〉 を こえ な い 景 大 の 整数 を 与え る . 





< 引数 > が 正 
符号 を 与え る . SGN(<3 < 引数 > が 0… 
< 引数 > が 負 … 








(< 座標 1 


座標 2> 座標 1 か ら 座 標 2 まで の 加算 . 


加算 を 行なう . | SUM 





も (< 座標 1 Nb の 
平均 を 求め る |AVR < 放 標 ) 座標 1 か ら 座標 2 まで の 平均 . 

















BLNK 項目 の 内 容 を 消去 する . 

INIT 全 項 目 の デ ー タ を 消去 する . 

COPY 式 , フォー マッ ト 文 字 を 含ん だ デー タ を コピ ー す る . 
CURSOR デー タス 入力 後 の カー ソル の 移動 方 向 を 設定 する . 
DELETE 行 ま た は 列 を 削除 する . 

FX 式 を プリ ンタ に プリ ント する . 

FILES ドラ イプ 上 の ファ イル 名 を 表示 する . また ファ イル の 消去 
も する . 

LOCK タイ トル 項目 の 行 , 列 を 固定 し , スク ロー ル 中 に 消え な い 
よう に する . 

FORMAT 数 値 デ ー タ の 書式 を 設定 する . 

KANJI 漢字 を 表示 を ON/OFF する . OFF の 場合 スク ロー ル な 
ど が 速く な る . 

MEMORY メモ リ の 残 量 を 表示 する . 

INSERT 行 ま た は 列 を 挿入 する . 

LOAD ディ スク 上 の ファ イル を ロー ド す る . 

PRINT 集計 上 の デー タ を プリ ンタ に 出力 する . 

SAVE 集計 上 の デー タ を ディ スク に 格納 する . 

SORT 指定 され た 行 ,。 また は 列 の デー タ を 並べ 変え る . 

TITLE 表 の タイ トル 名 を 表示 する . 

WIDTH 各 項 目 の 幅 を 設定 する . また プリ ンタ の 種類 も 設定 する . 
半 計算 を 実行 する . また 計算 モー ド を 設定 する . 
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図 1 


ABCDEFGHIJKLMNOPQRSTUVWXY2Z 


起動 時 の 画面 


FMCALC の 表 全 体 の 広がり 


図 2 
秋葉 原 新宿 箱 館 大 阪 広島 





H 
商品 1.184 1.119 1.189 2.278 2,738 10,691 
商品 1.274 2,738 1.678 2.739 1,738 13,987 
商品 11.637 2.189 1.897 2,738 1.836 13,015 
品 1,899 1.788 1.354 2.738 1.725 12, 134 
品 1.803 1.980 1.245 1.830 1.783 10,588 
品 1.279 1.728 1.787 1.830 1.728 10,188 
品 1.280 1.738 1.870 2.739 1.942 12,741 
品 11.893 1.849 1.678 1.479 1,528 10,889 
品 11,782 3.783 1,426 1.179 1.782 12, 514 
品 11.042 2.849 1.674 3.729 2.643 13,884 
品 1.801 2.378 1.637 2.362 2,739 14.101 
品 2.673 2.748 1.782 2.638 2.739 14, 436 
品 2.892 2.539 1.935 2.489 2.135 13,977 
品 12.183 2.991 1.637 1.352 2.365 13,173 
品 12,463 3.820 2.163 1.639 1.991 15,327 
品 2.749 3.126 1,468 3,263 1.,247 14,406 
品 2.138 3.729 1.673 1.739 2.153 14,796 


商 











1 
合 計 計 31,912 43,042 28,.093 38,.806 34,812 44,182 220,847 
PP 人 EE EC EPR 「) EER Fm EE (- | | EE | EE 、) BE 


図 3 
秋葉 原 新宿 親 館 大 阪 広島 博多 





商品 2.463 3.820 2.163 1.639 1.991 3,251 115.327 
商品 2.138 3.729 1.673 1.739 2.153 3.364 |14,796 
商品 2.673 2.748 1.782 2.638 2.739 1.856 |14.436 
商品 2.749 3.126 1.468 3,.263 1.247 2.553 |14,406 
商品 1.801 2.378 1.637 2,.362 2.739 3.184 |14,101 
商品 1.274 2.738 1.678 2,739 1.738 3.820 113,987 
商品 2.892 2.539 1.935 2.489 2,135 1,987 |13,977 
商品 11042 2.849 1674 3,728 2.643 1.947 113.884 
商品 2.183 2.991 1.637 1.352 2.365 2.645 |13.173 
商品 1.637 2.189 1.897 2.783 1.836 2.,673 |13.015 
商品 280 1.738 1.870 2.739 1.942 3,172 112,741 
商品 1.782 3.783 1.426 1.179 1.782 2,562 112,514 
商品 1.839 1.783 1.354 2.738 1.725 2.740 112.134 
商品 1.893 1.849 1678 1.479 1.528 2,462 |10.889 
商品 1.184 1.119 1.189 2.278 2.738 2.183 110,691 
品 1.803 1.980 1.245 1.830 1.783 1.947 |110.588 
商品 1.279 1.728 1.787 1.830 1.728 1.836 |110.188 
+ g 
合 計 31,.912 43.042 28,093 38,.806 34,812 44,182 220,747 
LLPN__ ITIfe___ jp 1 コ SS%〔…| コ ==Sー(c lsl II MI | 











開発 会 社名 : ソフ トマ ー ト 昌 

販 売 元 : ソ フト マー ト 便 

問い 合せ 先 : ソフ トマ ー ト 幌 

玩 101 東京 都 千代 田 区 外 神 田 須田 町 1-18-6 第 1 谷 ビ ピル 1F 

容 (03) 256-5881 

価格 : \58.000 

使用 言語 : アモ ンプ ラ 

必要 な OS : な し 

提供 媒体 :5 イ ンチ ・ デ ィ ス ク 

マニ ュ ア ル : あり . p.200 

マニ ュ ア ル 列 売 : あり 

サン プル ・ デ ー タ : な し 

出荷 開始 時 期 :'83 年 9 月 

最小 シス テム 構成 : FM-11AD(orEX) 
400 ラ イン CRT 
漢字 ROM カ ー ド 
プリ ンタ (コピー 時) 
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コリ 回 


JVWVORD.. 


本 語 ワー プロ 


『JWORD』。 は パー ソナ ル ・ コ ンピュータ 上 で 動く , 日 本 語 
ワー ド プ ロ セ ッ サ ・ ソ フト ウェ ア で ある . JWORD は , 抜群 の 
操作 性 と 高速 性 を 持ち , 専用 ワー プロ 機 な み の 辞 書 を 備え た , 
使い や すい ソフ トウ ェ ア で , JWORD を 使う と , FM-11 が 日 本 
語 ワ ー プ ロ に 変身 する の で ある . 
以下 に 特徴 を まとめ て みる . 

文節 単位 に よる カナ 漢字 変換 

65, 000 語 の 単語 辞書 内 蔵 

ロー マ 字 , 混在 な ど 4 入力 方 式 

強力 な 作 表 , 演算 機能 装備 

アセ ンプ ラ 記 述 で 趣 高速 動作 

2 段階 メニ ュー 方 式 で 高速 操作 可 

CP/M 標 準 フ ァイル 使用 で 発展 性 有 


機能 


と , 初期 メニ ュー が 表示 され る . JWOR 
と は , この 初期 メニ ュー の 内 容 で ある . 


か な - 漢 字 変 換 方 式 


JWORD は , か な 漢字 変換 方 式 を 採用 し て い 
文字 列 (読み ) は , 次 の 形式 で 入力 され る . 

⑩ 。 カタ カナ 入力 

、 め ローマ字 入力 

-@ 混在 入力 (カタ カナ と ロー マ 字 の 混在 ) 

-@⑳ 文字 入力 ([F9]、 HO キー を 使用 ) 
変換 キー は 次 の キー を 使っ て , 漢字 , カタ カナ , ひら が な な 
ど に 変換 で きる . 


め ②@②② め 人 る 





JWORD を 起動 する 
D で 実行 で きる こ 


る . 変換 され る 















































1).| PT | …… 単語 に 変換 
2).[F2 | …… ひら が な に 変換 
3).[F3 1 …… カタ カナ に 変換 
4).[F4 | …… 漢字 1 字 に 変換 
5 ). [F5 ] …… 入 力 の まま 

9 開 四 区 村 同一 キー の 逆戻り 
国人 ES 半角 文字 に 変換 














JWORD は , 文節 変換 を 行なう の で , 単語 ( 擬 ぞ NR 
活用 を 含む ) と それ に 続く 『 ひ ら が な 』 の 語 を [FT | キー の 単語 3 
換 で , 1 度 に 変換 で きる (モウ シア ゲ マ ス 一 申 し 上 げ ま す : モ 
ウシ アゲ マシ ター 申し 上 げ ま し た : モウ シア ゲタ トコ ロー 申し 
選ば だ と ころ か 


文書 の 作成 。 更新 


初期 メニ ュー で ,『 作 成 』 を 選択 し. ファ イル 名 お よび メモ を 
入れ , 連 キ ー を 押す と 図 2 の 画面 に な る . この 画面 で は , メニ 
ュー に 表示 され て いる コマ ンド か が 入力 可能 で , 新規 に 作成 する 
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と き は [キー を 押す こと で 文書 が 作成 で きる . 

すでに 作成 し て ある 文書 を 更新 する 場合 は , 更新 を 使用 する . 
更新 は ファ イル 名 の 一 覧 が 画面 に 表 わ れ る の で , 該当 ファ イル 
に カー ソル 移動 し 選択 する . 
コマ ンド 

文書 の 編集 に 使用 する コマ ンド は 図 3 の 通り で ある が , コマ 
ンド ・ キ ー を 押し た 後 の , い か な る 状態 で も [ESCc] キ ー を 押す こと 
に より , コマ ンド 入力 状態 に 戻 .。 また , コマ ンド ・ キ ー は , 
キー ボー ド 上 の アル ファ ベッ ト ・ キ ー を 意味 し , キー を 押す と 
さら に 詳細 な メニ ュー が 表示 され る . 


文書 の 印刷 


初期 メニ ュー で 印刷 を 選択 する と 図 4 の 画面 が 表示 され る . 
詳細 な 指定 を 選択 する と 図 5 の 画面 が 表 わ れ , 自由 に 変更 が で 
きる . 


文書 ファ イル の 扱い 


初期 メニ ュー で ファ イル 名 (一 覧 , 削除 , 名 前 変更 ) を 選択 
する と ファ イル が 表示 され る . 上 段 の メニ ュー に 従っ て 操作 す 
る と , ファ イル を 削除 し た り , 名 前 を 変更 し た り で きる . 


作 表 ・ 演 算 
初期 メニ ュー で 「『 作 表 ・ 演 算 』 を 選択 する と , カー ソル の 移 


動 の み で 作 表 が で き , 電卓 形式 の 演算 もち できる. また , 行 , 列 
の 挿入 , 削除 も 簡単 に 行なえ る . 
その 他 

その 他 の 機能 と し て は , 単語 辞書 (8 イ 0 
+ キ ユー ザ 登 録 語 .、 5 イン チ 版 で は 24,000 語 オ ユ ー ザ 登録 語 ) 
すべ て の 単語 が 表示 , 印刷 が で き , 不要 な 単語 を 削除 する こ も 
も で きる . また , 宛名 だ け を 変更 し て , 印刷 する と いっ た と き 
便利 な , 差し 込み 印刷 が で きる . 

FM-11 で は ユー ザ が 狐 自 に パタ ー ン を 作成 する ユー ティ リ テ 
ィ (GAIJI) が 用 意 さ れ て いる . この ユー ティ リティ に より 作成 
され た バター ン に 読み を つけ , 文書 作成 中 に その 読み と 単語 変 
換 を 用 いれ ば , 表示 , 印刷 が で きる 機能 も ある . 


























&O 


図 1 初期 メニ ュー 図 6 印字 例 (1) 61/100 


1983 年 6 月 27 日 車 云 明 カ の つ 失 返 状 


還 還 時 ORO 


拝 弧 新 引 さ わ や か な 宮 と な り ま し た 。 

< 健 月 に お 骨 し の こと と お 褒 び 申 し 上 げ ま す 。 

さて 、 此 の 度 札 幌 支 店 営 葉 部 勤務 を 谷 ぜ られ この は ほ と 無 事 着 任 い た し まし た 。 

本 社 計画 部 動 務 中 は 、 公 私 に わた り 、 ひ と か た な ら ぬ ご 指導 ご 厚 情 を 賜り 、 議 に 有 
難 う ご さい まし た 。 心から 販 礼 申し 上 げ ま す 。 

今後 と も より 一 層 の ご 支援 を 出 り ます よう 、 お 願い 申し 上 げ ま す 。 


ル 有 (一 覧 削除 ・ 名 前 変更 ) 


ト 4 
4 
Ko 
ト o 
ト 2 
ら 
ぐ 
ぐ 
ぐ 
ぐ 


を る る も た に 
ビッ た リセ: 上 N ト た)】 


2 


1 」 キー で カー ソル を 動か し 、〈CR〉 を 介し て 下さ い 。 





昭和 五 † 人 年 四 月 
図 2 


廊 廊 食 自 動車 工業 性 式 会 社 札幌 支店 


ょ コマンド: 1 挿 人 XiTE D 朋 除 S 還 換 F 検 索 P 送 り 」 誌 び A 位 置 人 人 


H 再 表示 M 移 動 C 複 写 B 除 去 R 読 和 W 書 出 K 市 件 し 字形 単語 E 終 了 
ロ 10 く 20 5 30 0 


九星 一 郎 


TO062 札幌 市 直 平 区 月 者 東 一 条 





位置 設定 (At) 7 印字 例 (2) 55/100 
除去 (Block delete) 
複写 (Copy) 

削除 (Delete) 
編集 終了 (Exit) 
検索 (Find) 
ヘル プ (Help) 

挿入 (Insert) 

跳ぶ (Jump) 

制御 キー(Key) 


範囲 を 設定 し ます . 

文字 列 を 除去 し ます . 
文字 列 を 複写 し ます . 

文字 列 を 削除 し ます . 

編集 を 終了 し ます . 

文字 列 を 検索 し ます . 

メニ ュー を 表示 し ます . 

文字 列 を 挿入 し ます . 

指定 位置 へ 跳び ます . 

セン タリ ング , 話 づ め な ど を 行ない ます . 


ニオ ロ 呈 串 
Rg タコ 


回 措 
。 さ ww こ し で 世 層 勤 ぐ "きど > 


字形 (List control) 
移動 (Move) 

画面 送り (Page) 
読み 込み (Read) 
置換 (Subsitute) 
単語 登録 (Tango) 
書き 出し (Write) 
訂正 (eXchange) 


図 4 


メメ そ ゴ の ロ イミ ビ 大 Cー エ ロロ m ロ OO ちあ 


ファ イル 名 


用 紙 の サイ ズ : 3 


詳細 な 指定 





倍角 文字 に し ます . 

文字 列 を 移動 し ます . 

画面 の 前 ・ 後 送り を し ます . 

他 の ファ イル 読み 込み ます . 

文字 列 を 置換 し ます . 

単語 を 登録 し ます . 

文字 列 を 他 の ファ イル へ 書き 出し ます . 
文字 列 を 訂正 し ます . 


印刷 モー ド 








XXXXXX 

(0:A4 1 
(3 :10x11 時 
(0 : し な い 


2 :B4) 
4 : 15x11 時 ) 
1 : する ) 


・B5 





詳細 を 指定 する 


ぐ 詳細 な 印刷 情報 の 指定 (A 4 の 場合 の 例 ) 


印刷 部 数 

印刷 開始 ペー ジ 

印刷 終了 ペー ジ 

ペー ジ 番 号 開始 値 
用 紙 の 種類 

1 ペー ジ の 行 数 


1 行 の 文字 数 


上 部 余白 

左 部 余白 

横書き ・ 縦 書き 
差込み ファ イル 名 


(1 - 999) 

(1 - 999 ) 

(1 一 999 999 : 最 後 ま で ) 
(0 一 999 0 : ペ ー ジ 番号 な し ) 
(0 : 連 続 1 : 単 票 ) 
(20 - 80 行 ) 
(0 : 24 字 
(2 :40 字 3: 50 字 ) 

(英字 : 文字 間 ビ ピッ チ (A=0…Z= 25)) 
(0 - 78 行 ) 

(0 - 48 行 ) 

(0 : 横 1: 縦 ) 


1 : 34 字 ) 





で . 渦 油 D 遼 天 三 OO の 〇 | 
叩 ゴ |! 国友 1 革 図 治せ ヨ 活 記 つの の 
に つう っ に 1 二 | 1 こぶ いみ: う ・ う ・ み :2 


に た 
沖 完 


開発 会 社名 : エイ モル 人 
販売 元 : エイ モル 
問い 合わ せ 先 : エイ モル 幌 


亜 102 東京 都 千 代田 区 麹町 3-4-7 ビル ディ ング 啓 


容 (03) 263-6421 
価格 : Y82.00005 イ ンチ 、 
使用 言語 : アモ ンプ フラ 
必要 な OS : CP/M-86 
提供 媒体 5 イン チ ・ デ ィ ス ク 

8 イン チ ・ デ ィ ス ク 
マニ ュ ア ル : あり 、 Y8.,000/ 冊 
サジ ンプ デル データ 5 な し 


出荷 開始 時 期 : 昭和 58 年 8 月 末日 (バー ジョ ン 2.0a) 


最小 シス テム 構成 : 本 体 FM-11EX 


フロ ッ ピ ィ ー5 イ ンチ 2 まだ た は 8 イ 


チク 
プリ ンタ : ビジ ネス ・ プ リン タ 
その 他 : バッ クア ッ プ ・ 
フロ ッ ピ ィ ー 破 損 交換 : Y5.000 
バー ジョ ン ア ッ プ 交換 : Y10.000 


。we て に で 一 舞 めし と W さ 語 避 状 GS 本 1 さと せい 疹 ゆ 


nksy 震 聞 人 志久 ご 肢 き 革 台 はら 手許 はい きび 避 さき で し ささ ざ 碑 外 浪 日 基 圭 中國 喧 


8 イン チ と も ) 


中 帳 持 鐘 9 いさ ざ 語 避 紀 室 洪 時 可 誠 天 二 当年 . 


。 な で WW で 流 





フロ ッ ヒ ピー1 部 無償 添付 


こす 0 は かれ "に 1 


うこ 1 10 コ 0 でき こ 【od さっ る 2 1 1 
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COMAS-WPEI 


リム NyA た じん 


COMAS-WPE 1 は , FM-11 を 対象 と し て 開発 し た , 5 インチ 
版 日 本 語 ワ ー ド プロ セッ サ で ある . FM-7, 8 用 で 好評 の WPV2 
の 機能 を すべ て 受け 継ぎ , さら に FM-11 の 大 容量 , 高速 処理 能 
カカ を 活用 し て , 機能 , 操作 性 の 向上 を 図っ て いる 

その 特徴 と し て は , 以下 の よう な 点 が あげ られ る . 
⑯CP/M な どの OS を 必要 と せ ず , 68B09E の 制御 下 で の オー ト ・ 

スタ ー ト に より 使用 で きる . 

@ 当 社 独自 の 簡易 文節 変換 方 式 の 採用 に よ 
換 が 非常 に 容易 か つ 迅 速 に で きる . 

@ FM-11 の 大 容量 , 高速 処理 能力 を 活用 する こと に より , 文書 
切り 貼り , 文字 列 検索 び が で きる な ど , 編集 機能 も 向上 し , キ 
メ 細 か く 〈 く スピーディー な 文書 作成 が で きる . 

@⑳ 当 社 の ワー プロ ・ ソ フト と し て は , 上 位 の 機能 を も ちな が ら , 
質 格 が YS000 ど こ どろ で ある . 


り , 文書 の 入力 , 変 





入力 方 式 


漢字 ・ 熟 語 変換 の た め の 入 力 方 式 と し て は , 次 の 4 種 が ある 
⑳ カ ナ 入 力 
②⑨ ロ ー マ 字 入力 (ヘボ ポン 式 お よび 訓令 式 ) 
ロー マ 字 カナ 混在 入力 
⑳JIS コ ー ド 入力 

以上 1 一 3 の 入力 方 式 に 対し て は , 簡易 文節 変換 に よる 漢字 
熟語 へ の 変換 を 行なう 


変換 方 式 

カナ ・ ロ ー マ 字 の 入力 に 対す る 漢字 ・ 熟 語 の 変換 は 簡易 文 
節 変換 に よる . これ は , 1 つの 漢字 また は 熟語 か ら 次 の 漢字 , 
また は 熟語 の 前 まで の 読み 入力 に つい て , 1 度 に 漢字 か な 混 じ 
り の 文節 に 変換 する 機能 で ある . 

た と えば , 次 の よう な 例文 に つい て , 従来 の 熟語 単位 の 変換 
と 比較 (当社 比 ) し て みる と , その 効率 の よさ が , お わか り い 
た だ ける と 思う 

例 婦 : 娘 書 を 作り た いと き の 手 順に つい て 
従来 の 変換 方 式 で の 入力 

次 の よう に 送り が な の 訂正 を 含め , 7 段階 の 入力 , 変換 操作 
が 必要 と な る 








ぶん し ょ を つく る プリ た い ブ 
と き の プ て じゅ ん に つい て 











@ 簡 易 文 節 変換 で の 入力 
次 の よう に 送り が な の 訂正 も な く , 3 段階 の 入力 , 変換 操作 
で 済む . 
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ぶん し ょ を プ つ くり た いと き の プ て じゅ ん に つい て 








この 簡易 文節 変換 は , ロー マ 字 , また は か な ロー マ 字 混在 の 
入力 に 対し て も 機能 する . また , の 
の 理 変 換 は 。 弄 地 ・ 遇 馬 の み が 午 押 と 

さら に WPE1 で は , 最終 使用 優先 学習 oo 
た め , 漢字 ・ 熟 語 の 読み に 対す る 変換 は , 前 回 の も の が 最初 に 
変換 の 


ト 上記 の 箇 易 文節 変換 の ほか , 次 の よう な 変換 機能 が あ 
1) バッ ク 変 換 
2 ) 無 変換 
3) カタ カナ 変換 
この 他 , ロー マ 字 入力 に 対す る , ひら が な 変換 . カタ カナ 変 
換 機 能 が あ 





jiS 和 1 水準 の すべ て の , 非 漢字 が 使用 で きる . 

@ 麗 語 フ ァイル に は , 漢字 , 記号 を 含め 27,000 語 以上 の 熟語 が 
登録 され て いる 

別売 の サポ ボー ト ・ ソ フト を 用 いる と , 迷 語 ファ イル の 熟語 師 
加 、 削除 , 外字 の 登録 , 削除 が で きる . 

@IIS 第 1 水準 外 の 文字 , 記号 を 持っ た プリ ンタ を 使う 場合 に は , 
JIS コ ー ド 入力 に よっ て , その 文字 , 記号 を 印刷 させ る こと が 
で きる . 








1 ペー ジ 40 字 X70 行 まで の 設定 で , 1 区 潮 は 最大 320 行 まで 作 
成 で きる 
1 枚 の 文書 ファ イル に は , 1 廊 書 320 行 と し て 8 文書 まで (A4 


で p. 50 一 60) 0 登録 する こと が で きる . 


画面 に 表示 され る 文書 は , CRT に より , 
640X400 ド ッ ト : 40 字 ※18 行 
640X200 ド ッ ト : 40 字 ※10 行 
が 表示 され る . 
画面 の スク ロー ル は , 1 行 ま た は 10 行 単位 で の 上 下 ス クロ ー 
ル を 行なう こと が で きる 。. 


諸 1 ロ 4 提 朋 


昭和 37 年 06 月 30 日 
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備 


メサ 


に に 


3 





質 産 の 部 


負 全 お よび 資本 の 部 


昭和 全 


〇 A 商 姜 株 式 会 社 
東京 都 渋谷 区 渋谷 3ー18-5 








2,688,746,450 


肌 償 の 部 


1.688,954,350 





避 沖 選 天 邊 事 首 削 当 過 
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S$ 
服 通 服 最 貴 涼 番 講 紀生 叶 BO 可 


3 さす 思 道 酸味 折 


羽 本 各 


(| 履 


1.572,993,960 
116,454,270 
247,400,470 
467,357,170 
207,243,860 
273,146,470 
36,432,550 
83,279,370 
2,447,580 
100,504,070 
48.908,110 

ム 10,240,000 
1.115,752,490 
498,430,070 
331,667,370 
752,717,790 
83,537,840 

ム 809,588,500 
75,427,120 
70,028,440 
7,424,630 
492,260 
6,932,370 
609,897,790 
209,335,780 
94,417,780 
70,463,260 
218,794,470 
4.051,940 
10,454,560 

ム 2.680,000 


流 動 員 
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ド 】 評 
沖 大 遂 条 定時 沖洲 届 瑞 沼 
麗人 8 趣 8 と 潮 
別 計 部 さ 瑞 紀 圭 鹿 壁 


上 


1.187,401,920 


246,554,390 
337,004,280 
104,386,600 
247,169,630 
109,714,240 
19.177,120 
56,686,400 
5,.709,260 
554,752,430 
68,432,500 
32,828,420 
78,712,350 
358,445,310 
16,333,850 
6,800,000 





し ] 
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999,792,100 





は] 
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名 

博 付 

に 1 


沖 院 湊 導 定本 時 付 
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3 
則り た さく を : 提 和 きこ 
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疾 油 博 吾 選 捕 情 
全 浴 蛋 味 
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| 遇 や 町 箱 下 下 洋 語 日 再 濁 け 泊 軍 衝 泡 聞 


ー 











2,688,746,450 


ゆめ 


110,689,950 





166,175,710 
319,176,440 
280,327,490 
38,848,950 
514,439,950 
69,700,000 
14,600,000 
22,640,000 
9.610,000 
287,200,000 





2,688,746,450 





うに な る . 


⑩⑯ 1 ペー ジ の 行 数 設定 , 変更 


@ 女 書 訂 正 (上 書き ) 
@ 廊 字 列 挿入 , 削除 

@ 行 の 挿入 , 削除 

@ 女 字 列 複写 

短 語録 。 複写 削除 


@ 文 書 挿入 ( 文 Ft 切り貼り ) 
@ 頑 右 マ ー ジ ン の 設定 , 変更 


タク ブフ 位置 の 設定 , 


変更 


⑩ 文 字 列 の セン タリ ング 
文字 列 の 右 詰め , 左 詰め 





IEL (407) 8893 
代表 取 頃 役 


先 に ご 照会 いた だ きま し た 


の 件 に つき 、 下 記 の 通り お 見 積 り 申 し 上 げ ま す 。 















































| 
ス 
グ 
1 
ル 
表 
示 
行 











es 


状態 表示 行 








開発 会 社名 : 帆 コ マス 


販 売 元 : 帆 コマ ス 
問い 合せ 先 : 帆 コ マス 


パパ ソコ ン 事 業 部 
パソ コン 事業 部 


愛 150 浅 谷 区 渋谷 1-14-6 平野 屋 ビ ル 





人 め 文 字 列 検索 
介 縦 , 横 野 線 、 枠 組み 
@ 横 倍角 文字 指定 


介 半 角 文 字 指定 ( 英 , 数 字 。 記号 


に 人 24 ライ ン 指 定 


印刷 機能 


印刷 機能 に つい て も , 列挙 すれ ば 次 の 機能 が ある . 
機能 と 合わ せ て , きめ 細か な 文書 作成 が で きる . 
用 紙 サ イズ 指定 
@ 文 字 間 隔 指 定 
@ 行 問 隔 指定 
@ 単 表 印 刷 ( ビ ジネス ・ プ リン タ の み ) 

人 筑 と 生計 人 ンタ の み ) 
⑥⑬ 縦 書き , 横書き 指定 

@ 印 刷 部 数 指定 

@⑥ 印 刷 開始 ペー ジ 指 定 

ペー ジ 印 刷 指定 











谷 (03) 407-8893 
価格 : \55.000 
使用 言語 : アセ ンプ ラ 
必要 な OS : な し 
提供 媒体 : 5 イン チ ・ フ ロッ ピー ディ スク 
WPE1 シ ステ ム ・ デ ィ ス ク 1 枚 
熟語 ファ イル ・ デ ィ ス ク 1 枚 
操作 説明 書 ( マ ニュ アル ) 1 枚 
マニ ュ ア ル : あ り 約 p.80, 別売 せ ず 
サン プル ・ デ ー タ : な し 
最小 シス テム 構成 : FM-11 (薄型 ミニ フロ ッ ピ ー デ ィ ス ク 増 設 の 
も の ) 
漢字 ROM カ ー ド 
CRT デ ィ ス プレ イ (640X400 ド ッ ト ま た は 640 
X200 ド ッ ト ) 
プリ ンタ (次 の も の が 使用 で きる ) 
富士 通 MB27401 一 27406, 27410 お よび ビジ ネ 
ス ・ プ リン タ , エプソン MP-80TYPE2, 3, FP- 
80, RP-80, MP-80K, MP-130K, UP-130K, セ 
イコ ウ GP-550E, スタ ー 精 密 DPX -510, 510], 
関東 電子 KP-3000 


出荷 開始 時 期 : "83 年 9 月 19 晶 
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| 川 


ンピュータ グラ フィ ックス に 挑戦 


GT-11 は 多く の 人 が パソ コン の グラ フィ ッ ク 機 能 を , フル に 
活用 し て , 絵 , 図 , 文字 を 簡単 に 描け る よう に 開発 し た , グラ 
フィ ッ ク ・ ツ ー ル ・ ソ フト で ある . 

オペ レー ショ ン を 覚え る だ け で , 誰 に で も パソ コン ・ グ ラフ 
ィ ッ ク が 楽し め る よう に 簡易 言語 化し て いる . つま り , BASIC 
の 知識 , プロ グラ ム の 知識 を 必要 と し な い . 
つぎ の よう な 特徴 が ある . 
⑯ コ マン ドー 発 で , 直線 , 円 , だ 円 , 色 塗 り , 四角 , メッ シュ , 

点線 が 描け る 他 , グラ フィ ッ ク 用 の 強力 コマ ンド を 多数 装備 . 
@ 作 成 画面 デー タ を ディ スク に セー プ , ロー ド 可 能 . 

@⑥ 赤 , 青 , 緑 の 3 原色 を 1,.000 通 り の 組み 合わ せ で 混ぜ 合わ せ 可 

能 . 
ハー ドコ ピー 可能 . 
トレ ー ス ・ モ ー ド , BASIC ジ ュ ネ レー ト 機 能 あり . 
漢字 , ひら が な , 数 字 , 記号 の 色 指 定 , サイ ズ 指 定 可能 . 

これ に より 以下 の 利用 が 考え られ る . 

1) グ ラフ ィ ッ ク ・ デ ザイ ナー の 配合 シミ ュ レ ーション と し て . 
2) デ ザイ ンコ ン べ ペ の 記録 保存 プレ ゼン ト 用 に . 

3) 簡 易 ボ スタ ー デ ザイ ン の ツー ル と し て . 

4) ビ ジュ アル な 図形 資料 と し て , 会 議 用 . レポ ー ト 提出 に . 
5) ア プリ ケー ショ ン ・ プ ログ ラム メッ セー ジジ 画面 設定 ツー ル と 

08x 胃 
6) 教 育 用 グラ フィ ッ ク ・ デ ザイ ン ・ プ ログ ラム と し て . 


2 に ーー 
は T シス テム の 概 用 

GT は 大 別して GRAPHIC TOOL と GRAPHIC DRAWER に 
分 か れる . シス テム が 起動 する と , 2 つの モー ド が [PF11 [PF2 
キー に 割り 付け られ る . 

GRAPHIC TOOL は 数 々 の コマ ンド を 持ち , メイ ン ・ プ ブロ 
グラ ム と も 呼べ る 機能 を 持つ . 一 方 、GRAPHIC DRAWER は 
下 に , 10 キ ー に よる ドロ ー イ ング の ラン ダム な 曲線 を 描く と き 
に 使う プロ グラ ム に な っ て いる . 

また , スク リー ン ・ セ ー バ ー, ロー ダー は 主 に , GRAPHIC 
DRAWER で 作ら れ た 絵 を セ モ セーブ , ロー ド す る も の に 使う . そ 
し て , GRAPHIC TOOL を 使っ て 作成 し た 絵 の 上 に , GRAP 
HIC DRAWER で 描き 加え る こと は 可能 だ が , この 逆 は で き な い . 
ほとん どの グラ フィ ッ ク は GRAPHIC TOOL て 作成 で きる . 


GRHAPHIC TOOL 


まず , シス テム に ディ スケ ッ ト を 入れ , GT を 起動 する . す 
る と メニ ュー 画面 が 表 わ れ る . ここ で [PF1| キー を 押す と , GRA 
PHIC TOOL が 起動 する . 起動 し た ら , 640X200 か 640X400 ド 
ッ ト か を 選択 する . この 後 , 背景 色 を 指定 すれ ば , 種々 の 絵 が 
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描け る . 
表 1 に 示す コマ ンド が ある . この うち , PAINT と TILE の 違い 
は , PAINT は RGB の 一 般 的 な 7 色 で ある の に 対し , TILE は 
RGB の 混ぜ 合わ せ に より , 1,000 の 中 間 色 を 作れ る . 
この 他 , いろ いろ 便利 な コマ ンド が ある の で , 紹介 する . 
H(HOLIZONTAL LINE) : 移動 カー ソル 位置 を 通る 水平 線 を 
引く . 
V(VERTICAL LINE) : 移動 カー ソル 位置 を 通る 垂直 線 を 引 
く . 

E(ELLIPSE) : 起点 カー ソル と 移動 カー ソル と の 距離 を 半径 
と する だ 円 を 描く . 歪 率 は 1 一 1000 ま で の 数 値 
で 火力 。 

X(X DIVIDE) : 起点 カー ソル 位置 と 移動 カー ソル 位置 を 対角線 
と し て , 横 の 分 割 を する . ドッ ト 幅 を 数 値 で 入力 
する . 

Y(Y DIVIDE) : X と 同様 に 縦 を 分 割 す る . 

W (LINE STYLE) : 起点 カー ソル と 移動 カー ソル 間 に 10 種 の 

中 の 1 種類 の 線 を 引く . 

・ 起 点 カ ー ソ ル と 移動 カー ソル を 対象 線 と し て , 

メッ シュ を 描く . この コマ ンド は 方 眼 紙 の 役割 り 

を する も の で , トレ ー ス , ジェ ネ レ ー ト は 不可 . 


GRAPHIC DRAWER 


これ は , GRAPHIC TO0L で 描い た 絵 の 細部 を 変更 修正 
する と き に 使う . これ で 変更 , 修正 し た 場合 , トレ ー ス , ジェ 
ネ レ ー ト は で き な い . 作っ た 絵 は セ モー バー で セー ブ し て お く が , 
この と きか な り の ディ スク 容量 が 必要 と な る の で , 注意 を 要する . 


サポ ー ト 体制 


M(MESH) 


発売 以後 わか っ た パグ, ハード の バー ジョ ン ・ ア ッ プ な ど で 
不都合 が 生じ た 場合 、 新 し い 応 用 例 な ど を , GT ユー ザー ズ ・ ニ 
ュー ス と し て ユー ザー に 配付 する . 


,O 


1 グラ フィ ッ ク 作 成 画面 


ノ 
eRAPHicTooL [|[[[Ili 園 [[」n 


- 1 COMMAND= ロ 
コマ ンド と 4 








グラ フィ ッ ク ・ カ ー ン ル 4 





これ が GT (THE GRAPHIC TOOL) の グラ フィ ッ ク 作 成 画 面 で す 。 





図 2 グラ フィ ッ ク ・ ド ロア ー 作 成 画面 


GRAPHIC DRAWER 


ベン ON/OFF カー ソル 移動 量 
イン ジ ケ ー タ イン ジ ケ ー タ 


WRITE/ERASE 
イン ジ ケ ー タ 





図 4 メニ ュー 画面 図 3 ハー ドウ ェ ア 構 成 図 
CRT モ ニタ ー 

640X400, 640X200 ド ッ ト \ 富士 通 社 製 

表示 可能 な 高 解像度 モニ タ / 純正 モニ タ を お 推 め し ます . 


MENU 宮 硬 





う PROGRAM MENU 


CPU 本 体 
FM-11 EX 1 ドラ イブ また は 
FM-11 AD 2 ドラ イブ の も の 





PROGRAM MENU 


GRAPHIC 作成 


PF.1 GRAPHIC TOOL 




















プリ ンタ 

MB24703 

エプソン MP-80II, 忠 
FP-80 
RP-80 
MP-80F/T 
MP-100 中 
MP-130 
GP-250F (標準 ) 


CHANBE CULUR INDICATOR 
PRUCESS LIST 

TRACE 

FILES 

HELP 

DELETE 

BENERATE BASIC SENTENCE 
TRACE BY STEP 

LOAD DATA 

SAVE DATA 

H. COPY 

CANCEL 

KILL 

BRAPHIC CLEAR 

MESH 

X DIVIDE 

VERTICAL LINE 

RETURN TU MENU 
KATAKANA/HIRAKANA 


POINT SET 
PDINT RESET 

CIRCLE 

ELL IPSE 

TILE (B/1。R/2,6/ さ ) 
PaINT 

LINE 

BOX 

BOXFULL 

KANJ1 

MOVE POSITION 
PALETTE  (F.1) 
LINE STYLE 

TEXT CLEAR 
CHARACTER STRINGS 
Y_DIVIDE 
HORIZDNTAL LINE 
PALETTE INITIALIZE 
BRAPHIC ONLY 


O プ リン タ は 画面 の ハー ドコ ピー を と る 場合 の み 使 用 . 


開発 会 社名 : 内 日 本 コン ピュ ー タ 設計 

販 売 元 : 費 日 本 コン ピュ ー タ 設計 

問い 合せ 先 : 帆 日 本 コン ピュ ー タ 設計 

肌 150 東京 都 渋谷 区 松 潮 1-4-9 サン エル ビル B1 
容 (03) 466-6101 

価格 : \10.000 

使用 言語 : BASIC お よび マシ ン 語 

必要 な OS :F-BASIC V4.0 DISK BASIC 

供給 媒体 : 5 イン チ ・ ディスク 

マニ ュ ア ル : あり p.16 

マニ ュ ア ル 別 売 : な し 

サン プル ・ デ ー タ : DEMO デ ー タ と し て あり 


ンー マス 出荷 開 始 時 期 : 83 年 3 月 
( う の 今 最小 シス テム 構成 : FM-11DISK 付 き 


CRT モ ニタ (640X400 ド ッ ト or640X200 


軌 ビ で ゴロ G コ の 


ロロ ロロ ロロ らら らら らい ロロ いら ロロ らい ロロ 
ロロ ロロ ロロ ロロ らら ロロ ロロ ロロ ロロ ロロ 


1 
19 
E 
E 
E 
E 
E 
選 
1 
E 
E 
E 
E 
E 
E 


le』 
よう し 人 Yo] 





画面 入力 の 手間 を 省く デジ タイ ザ , イメ ー ジ スキ ャ ナ , ライ ドッ ト ) ハー ドコ ピー 可能 な プリ ンタ 
シン ハー ド 一 ろ と 
トペ ン な ど , また 出力 の 多様 化 と し て 。 カ ラー プリ ンタ , X-Y 科 し 0 か と Z 


プロ ッ タ の ハン ドリ ング ・ ル ー チ ン な ど を 開発 中 で ある . 
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コリ 名 


ター ミ ー ん Cm 中! レー ダ 


大 謀 


FM-11 本 体 に 標準 装備 され た , RS-232C こ イン ター フェ イス を , 
同期 モー ド で プロ グラ ム す る こと に より , FM-11 は IBM, 富士 通 , 
日 立 な どの 大 型 コ ンピュータ と オン ライ ン 接 続 が 可能 に な る . 
ここ に 述べ る 2 種類 の ソフ トウ ェ ア は , いずれ も IBM 系 の BSC 
( 2 進 デー タ 同 期 通信 ) 方 式 を 用 いた , 既存 オン ライ ン ・ タ ー ミ 
ナル の エミ ュ レ ーション ・ プ ログ ラム で ある . 


I3P7U エ ミュ レー タ 


13270 エ ミュ レー タ は , FM-11 に IBM 系 3270 型 情報 表示 装置 * 
と し て の 機能 を 持た せる た め の オ ン ラ イン ・ ソ フト ウェ ア で あ 
る . 

*IBM 系 3270 情 報 表 示 装 置 に は 次 の も の が ある . 

(a) IBM3270 

(b) 富士 通 F9526 

(c) 日 立 560/27 

ホス ト ・ コ ンピュータ と 通信 回 線 で 結び , 問い 合せ (イン ク 
ワイ アリ ), 早 会 , 情報 検索 . デー タ ・ エ ント リ , 会 話 型 の プロ 
グラ ム 開 発 な どの 業務 を 遠隔 地 か ら , リア ル タ イ ム に 処理 する 
こと が で きる . 

も と も と , 3270 型 情報 表示 装置 は , 制御 装置 に 8 一 32 台 の ダ 
ム ・ タ ー ミ ナル を 同軸 ケー ブル で 接続 する ,、 クラ スタ 型 が その 
殆 ん ど で あ っ た が , パソ コン の 高 性 能 化 , 低 価格 に 伴い , この 
3270 型 情報 表示 装置 と 同等 の 動作 を ソフ トウ ェ ア の エミ ュ レ ー 
ショ ン に より , 実現 する こと が 可能 と な っ た . 

本 製品 は , 上 記 の 3270 を FM-11 で 実現 し た も の で , ホス ト ・ コ 
ンピュータ が , BSC 手 順 で あれ ば , FM-11 を 3270 型 情報 表示 装 
置 と し て 使用 で きま す . 

特 徴 

ゅ BSC 手 大 JBN9270 ダ ター ミナ ル ・ エ ミュ レー ショ シン 
@9,600BPS の 通信 スピ ー ド 

@ 定 様式 / 不 定 様式 画面 

⑳1.920 文 字 (80 桁 X24 行 ) スク リー ン 

@ 4 色 / 2 色 カ ラー の 切り 替え , また は モノ クロ 表示 
シス テム 状況 表示 

の ライ トペ ン ま た は カー ソル ・ セ レク ト の サポ ー ト 
プリ ンタ へ の ロー カル ・ ハ ー ド コピ ー 

⑥ デ ティ スク へ の 仮想 プリ ンタ 出力 

合成 画面 の 生成 





念 フ ァイル 受信 機能 
IBM3270 と の 対応 


本 製品 は , IBM3271 制 御 装置 (モデ ル 2 ), IBM3277 表 示 装 凌 , 
お よ び IBM3275 制 御 / 表 示 装置 (モデ ル 2 ) の 機能 と , IBM32 
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ミナ ル を エミ 





レー ト 


74 制 御 装置 , IBM3276 制 御 / 表 示 装 置 ,IBM3278 表 示 装 置 機能 を 
エミ ュ レ ー ト する こと が で きる 

た だ し , 下記 の 機能 は サポ ボー ト さ れ な い . 

@ ロー カル (チャ ン ネ ル ) 接続 

eSDLC 手 順 の 接続 

@ 磁気 スロ ッ ト 読み 取り 機構 

@ 磁気 ハン ドス キャ ナ 

@ Extended Field 

@ キー ボー ド …… ATTN, CURSR BLINK, ALTCURSR, 

IDEN 下 DEV CHCL, < ーー の 各 キ ー 
@ IBM3270( モ デル 1 ) …… 480 字 スク リー ン 
@ グラ フィ ッ ク お よび 漢字 表示 機能 


IBM3270 タ ー ミ ナル の エミ ュ レ ーション 


本 製品 は , ホス ト ・ シ ステ ム と 接続 する と き , 制御 装置 内 蔵 
型 の 。 IBM3270 ア ィ ス プレ イ 端 末 と し て 動作 する 。 

プリ ンタ 装置 は ,、 IBM3270 バ ッ フ ァ 付 プリ ンタ と し て 動作 し , 
ホス ト ・ シ ステ ム か ら の Copy 命 令 を 有効 に する . 

本 製品 は , ホス ト ・ シ ステ ム と の 間 で , RTS-CTS モ デム 制 
御 を 行なっ て いる の で , マル チ ・ ポ イン ト 接 続 が 可能 . し た が 
っ て , 複数 台 の パソ コン を 同一 回 線上 に 接続 する こと が で きる . 

パソ コン の フロ ッ ピ ー デ ィ ス ク 装 置 は 。 ホス ト ・ シ ステ ム か 
ら 見 る と , 仮想 第 2 プリ ンタ と し て 動作 する . また , ロー カル ・ 
プリ ント 機能 を 使え ば , 画面 上 に 表示 され て いる デー タ を , ダダ 
イレ クト に ファ イル する こと が で きる , 

ここ で 作成 され る ファ イル は , その と き 使 っ て いる オペ レー 
ティ ング ・ シ ステ ム (CP/M-86) の ファ イル 構造 に な る の で , 後 
日 , 他 の アプ リケーション ・ ブ ログ ラム や , BASIC, COBOL な ど 
で , デー タ 処 理 が 可能 に 
FACOIMI 1 HITAC T560O/2 フ 7 
ター ミナ リッ レ ・ エ エミュレーション 

本 製品 は 。 富士 通 M シ リー ズ の F9525,、 また は F9526 ビ デオ ・ 
ター ミナ ル の エミ ュ レ ー タ と し て も 動作 可能 で ある . F9526 は , 
HDLC と BSC 手 順 が サポ ー ト され て いる が , この エミ ュ レ ー タ 
を 使う と き は BSC 手 順 と な る 

F9526 で は 拡張 され た フィ ー ル ド 制 御 機能 (Start Field Ex- 
tended) が ある が , この 命令 は 自動 的 に 無視 され る. 日 立 M シ 
リー ズ と 接続 する 場合 は , 560/27 (IBM3270 モ ー ド ) で 使用 可 
能 と な る . これ ら の ター ミナ ル ・ エ ミュ レー ショ ン で は , IBM 
3270 エ ミュ レー ショ ン と スク リ 2 部 異な る 場 
合 が ある が , 運用 上 さほど 問題 と は な ら な 


〔 接 統 例 〕 





コン ピュータ 
IBM3081D 


RS-232C こ イン タフ ェ イ ス 直 結 


で 。 も Rs-2s2c 
メー こう イン ター 


IBM3270 エ ミュ レー タ 

















し 2 し 
RUE ター ミナ ル エ ミュ レー タ 

RJE タ ー ミ ナル ・ エ ミュ レー タ は , FM.-11 で 実行 で きる , IB 
M3780 リ モー トバ ッ チ ・ タ ー ミ ナル の エミ ュ レ ー タ ・ プ ブロ グラ 
ラム で ある . 

ホス ト ・ シ ステ ム (大 型 コ ンピュータ ) と , パ ソコ ン を モデ ム 
接続 し パソ コン の ディ スク 上 に 作成 し た JCL (ジョ ブ プ ・ コ ン 
トロ ー ル ・ ラ ン ゲ ー ジ ) や PL/I, FORTRAN, COBOL な どの 
ソー ス ・ プ ログ ラム を ホス ト に 送信 し た 後 , その コン パイ ル や 
実行 結果 を 受信 し て , パソ コン 側 の プリ ンタ や ディ スク へ 出力 
する リモ ー ト ・ ジ ョ プ ブ ・ エ ント リ に 利用 で きる . 

ホス ト と の 伝送 制御 手段 に は , IBM に 準拠 し た BSC ( 2 進 デ 
ー タ 同期 通信 ) プロ トコ ル が 採用 され て お り , 100 劣 確実 な デー 
タ の 送受 信 が 可能 で ある . 


特 長 


⑯IBM3780, 3770, 3741 タ ー ミ ナル ・ 
@BSCI, BSC 2 プロ トコ ュ ル 
@ 特 定 / 公 衆 通 信 回 線 
⑳IBM3780RIE プ ロト コル を サポ ー ト 
@ 端末 制御 文字 
@ESC シ ー ケ ンス 
@ スペ ー ス 圧縮 / 拡 張 
⑬ 最 高 9.600 ボ ー の 伝送 スピ ー ド 
⑲Automatic/Manual 受 信 デ バイ ス ・ セ レク ト 
バイ ナリ ・ デ ー タ の 送受 信 
EBCDIC 一 > JIS(ASCIIT) コー ド の 自動 変換 
端末 to 端末 (パソ コン to パソ コン ) 伝送 モー ド 
Help コマ ンド 
@『 オ ン ラ イン ・ モ ニタ 』」 コ マン ド 
@ オ ー ト マチ ッ ク ・ シ ステ ム ・ コ ン フ ィ ギ ュ レ ーション 


エミ ュ レ ーション 


シス テム 概要 
NR タ を 利用 する こと に より , FM- Be IBM37 
80 と 同機 能 の 通信 制御 を 備え た RJE タ ー ミ ナル に 


2 テイ ドリ ーー ジグ 。 Mr そし で み 
ー ド パン チャ が 送受 信 デ バイ ス に な っ て いる . RJE エ ミュ レー 





IBM3270 エ ミュ レー タ 





タ で は , OS(CP/M-86) が サポ ー ト する すべ て の 1/O を 送受 信 
デバ イス の 対象 に する こと が で きる 

ホス ト へ 送信 する JCL や PL/I, FORTRAN, COBOL な どの 
ソー ス ・ デ ー タ は , OS 標準 の テキ スト ・ エ ディ タ で ディ スク 上 
に 作成 で きる . た だ し , JCL に 限り コン ソー ル か ら ダ イレ クト 
に 送信 する こと も 可能 で ある . ディ スク 上 に 作ら れ た テキ スト ・ 
デー タ は , 自動 的 に JIS か ら EBCDIC コ ー ド に 変換 きれ , ホス ト 
へ 送信 さき れる. 

また , 簡単 な オプ ショ ン ・ ス イッ チ で バイ ナリ ・ デ ー タ と し 
て も 送る こと が 可能 で ある . ホス ト か ら の 受信 デー タ に 対し て 
は , バラ エ テ ィ ー に 富ん だ 受信 機能 が サポ ー ト と され て いる 

受信 デバ イス ・ セ レク タ は , ホス ト か ら め 送 られ て くる ,『 装 置 
選択 文字 DC1,、 DC2 , DC3 』 に より , オー トマ チッ ク , ある い 
は オペ レー 0 0 スス クシ 
チャ に 選択 可能 に ヵ 

の の SS 沈 貞松 る 『 フ 

ォ ー マ ッ ト ・ レ コー ド 』 と ESC シ ー ケ ンス に より 完 壁 に 2 
され , 印刷 また は ディ スク に 格納 され る . 278 ナリ > 

ー タ の 受信 も 可能 で ある . この 他 , RIE エ ミュ レー タ に は , IB 
M3741 モ ー ド , ある い は パソ コン 同士 で , デー タ 伝 送 で きる フ 
ァイル ・ ト ラン ス フ ァ 機能 や , 回 線上 の トラ ブル を 検出 する た 
め の 「『 回 線 モ ニタ 表示 』 機 能 が 標準 装備 され て いる . 


開発 会 社名 : 帆 イ ンタ ー コ ム 
販 売 元 : 富 士 通 帆 
問い 合わ せ : 大 型 コ ンピュータ の SE の 方 を 通し て , 富士 通 に 問い 
合わ せ て くだ さい . 
価格 : 13270 エ ミュ レー タ \170 ,000 (CP/M-86) 
RJE タ ー ミ ナル ・ エ ミュ レー タ 
FBASIC 用 \150,000 
CP/M.-86 用 \170,000 
使用 言語 : アセ ンプ ブラ 
必要 な OS : CP/M-86 ま た は FBASIC V. 4 
提供 媒体 5 イン チ ・ デ ィ ス ク 
マニ ュ ア ル : あり . 約 p.80 
マニ ュ ア ル 列 売 : な し 
出荷 開始 時 期 : CP/M-86 版 "84 年 2 月 子 定 
最小 シス テム 構成 : FM-11EX 
高 解像度 カラ ーCRT 
ビジ ネス ・ プ リン タ 
漢字 ROM カ ー ド 
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1O 





MSZ8 活 用 研 錠 直 際 区 


@FM-7/8 活 用 研究 に バグ が あり まし た . 


音声 モニ タ (p.12) 


DISK 版 の 文字 が , タイ トル か ら 抜 け て いま し た . 


SUPER MONITOR (p.17) 

以下 の アド レス の デー タ を , 修正 し て くだ さい . $33D6 一 $33D8 
の 3 バイ ト を 12, $4273-$4284 ま で を 8C, 0C, 5D, 10, 27, 00, 99, 
6D, A0, 2A, FC, 5A, 20, F4, 2C, 58, 2B, 20, $4305 を 2C, $47 
99 を E7 に 変更 し ます . な お , すべ て 16 進 数 で $ マ ー ク が 付い て い 
る の が , アド レス で す . 


MEMORY CHENGR の 
FM-7 の 変更 箇所 (p.26) 


リス ト 1 を 次 の よう に 変更 し て くだ さい . 











リス ト 1 

310C-BD FD9E JSR $FD9E 
310F-86 37 LDA せ $37 
3111-BD EDCB JSR SEDCB 
3114-BD FD6E JSR $FD6E 
3117-FD D383 STD SD383 
311A-81 12 CMPA #$12 
311C-26 03 BNE $3121 
311E-BD EAE0 JSR SEAE0 
3121-39 RTS 











エディ タ ・ ア セン プラ V2 . 0(p.27) 


アド レス の $5B87 を 4E に し て くだ さい . 


サウ ンド ・ エ ディ タ Ver.2 .0(p.36) 


追加 部 分 : 14850 LOADM EAT” を 14850 LOADM ^ED 

T” に . また , p. 37 の 3 行 目 ED 7 を EDT に し , 7 行 目 70FF を 7D 
WBI こし て くだ さい . p.40 リ スト 1 中 11000 行 は R 
EM 文 に する か , な くし て くだ さい . 


BASIC ANALYZER(p.66) 


表 2 中 BIOS は 間接 ジャ ンプ で アド レス は いずれ も FBFA で 
す . また , アセ ンプ ブル ・ リ スト 中 42 行 目 は , 8C の 後に 07, 01 を 加 
え , 210 一 222 行 , 989 一 993 行 は ソー ス ・ リ スト の ASCII コ ー ド を 
書き ます . 1139 一 1143 行 は 右 の コー ド を 同様 に 入れ ます . 
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お 詫び する と と も に , 以下 の よう に 訂正 いた し ます . 


DISK SAVER & LOADER(p.87) 


リス ト 3 は SAVER ア セン ブル ・ リ スト , リス ト 4 が LOADER 
アセ ンプ ブル ・ リ スト で す . 


K コ ン パ イラ 用 グ ラフ フィック ・ サ ブルー チン 
D・- 


リス ト 中 1110, 1120 行 の $BD, SF2D8 を も ADFF せ , $FBFA 早 
に し で くだ さい 
スー パー パタ ー ン ・ エ ディ イタ (p.137) 

マシ ン 語 部 アセ ンプ ブル ・ リ スト 中 114 行 の 後に STA ,X 十 ( マ 
シン 語 は A780) を 追加 し ます . 


追加 版 K コ ン パ イラ 用 
グラ フィ ッ ク ・ サ ブ プルー チン (p.136) 
1140 行 の ABS(2-7)) の カッ コ が 1 つ 多 い の で , 1 つ 取 り 除 
き , 1160 行 …POKE FD38 填 名 1, 2… に 変更 し ます . 
K コ ン パ イラ に よる 日 本 語 ワ ー ド プロ セッ サ 


(p.145) 


6 行 一 7 行 で き な い 場合 は 一 で な い 場 合 は 
p.146 各 キ ー の 説明 
(3) フ ャ ンク ショ ン ・ キ ー っ ー ファン クシ ョ ン ・ キ ー 


(⑪【CTRL】-【B】 
(⑪⑭)【CTRL】 一 【Q】 
ロー マ 字 の 入力 


ーー 【CTRL】 一 【G】 
っ 【CTRL】 一 【0】 


② "N"( ん ) っ "N "(④②) 
^A"=" あ " ーー A"=" あ " 
=" い " っ T"=" い " 
印字 する 文字 の 大 き さ 方 向 の 指定 
4 … 倍 角度 指定 ー 4 … 倍 角 指定 
特殊 記号 
(3③) 改行 つ 改 行 し な い 


p.147 図 4 
$50A7 起動 後 は 破壊 と 出る 一 起動 後 は 破壊 され る 
BADR+4 文字 数 (1) つ 最大 行 数 1) 


F-BASIC Ver.1.0 を FM-7 で (p.169) 


左 最 下 段 に 『 な お , この プロ グラ ム は FM-8 活用 研究 の "FM- 
8 有人 象 無 象 ?』 を 追加 し て くだ さい . 


&O 
IMZ6 活 用 研 欠 下 大 肖 





2 dot SCROOL (5.235) TTL ピ ン 接 続 図 (p.240) 
1 部 ピン 番号 が お か し な も の が あり ます が , すべ て 左下 が 1 


FM- 7 の と き $6F83 と $6F96 を 1F に し て くだ さい . 
番 で 反 時 計 ま わり に 番号 が 付き ます . 


HERO-09 の 改造 (6.213) 


74LS138 


74LS00 3 和 4 


74LS74 74LS164 


、 CPU MRDY 
(36 番 ピン) 


74LS00 14 
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voー つ ムー つつ ーーー ッ ーー* 


























デー* ニテ ーー ーー 
ーー ーー ニー コー ニー ニー デニ ーー ドー ニー き 。 この micro vi* で ので エディット し て み で ぐだ さい 。 ! 
! ー 編 集 後 記 FM-11 の バグ ラフ ィ ッ ク ・ エ ディ タ ?。 すご いで すね . 話 ! 
題 の C 言 語 で す . これ だ け の 量 の C の ソー ス を 発表 する #* 
1 の は た ぶん , この 本 が 初め て だ と 思い ます .C 言 語 を 勉強 
| 画 FM 活 研 征 3 弾 『FM-7/11 活 用 研究 』。 いか が で し た か . 中 の 方 ,. どん な 言語 だ ろう と 思っ て いる 方 は , 大 い に 参 1 
1 この 本 に 何 を 入れ る か で , 七 転 敗 倒 、 苦し み 問 を. あれ 考 だ し で ぐだ さい 。 | 
も 入れ た い , これ も 入れ た い , で も ペー ジ 数 が …, ウォ ゲー ム 作 り の 好き な 方 に , “MUSIC MAKER′ は 強い 1 
! ー/ と 叫び ,。 編集 部 内 を 駆け ずり 廻っ て や っ と で きた の 味方 に を た っ て くれ ます .。 ゲー ム に は , 音楽 や 効果 音 は 必 1! 
% が この 本 で す . 要 不 可 欠 で すか ら ね . この ソフ ト の 面白 いと ころ は , BA ! 
FM-11 の ユー ザー の 方 に は 必読 の 資料 も , も っ と 入れ SIC が PSG に 送っ た コー ド を ノ ゾ キ ミ て , コー ド を メモ ミ 
% た か っ た の で す . サブ プシ ステ ム ・ コ マン ド 一 覧 も 6 ページ リ に 書き 込む こと で すね . 横取り が で きる の は ,IRQ 割 り 1 
1 の 都合 で タイ マ 関 係 な ど が 抜け て し まっ て いま す . ご めん 込み で 行なっ て いる た めで すね . 逆 ア モン ブル し て みた 
な きい . BIOS や ディ スプ レイ ・ サ ブシ ステ ム の 解説 書 は , が の う 2 の し おう | 
富士 通 の アプ ソリ ュー ト ・ ア セン プラ に つい て いま す . この よう な 本 が 作れ る の も , ユー ザー の 方 々 が , 日 綿 ! 
1 ML.7 用 の IODOS 9 は , 作者 sgn さん に よる と , 『K コ どう マイ コン を 使い こ な そ うか 。 どん な ソフ ト を 作ろ う ! 
ン パ イラ の ユー ザー に 送る IODOS 9 』 で , か , な ど 色 々 模索 し て いる か ら だ と 思い ます . そし て , 
@K コ ン パ イラ で 作成 し た プロ グラ ム が , すぐ に コマ ン その 結果 が 本 書 で す . ユー ザー の 方 々 の 力量 に は 感 喚 し $ 
| ド に な る . フ リー エリ ア は 43K バ イト で, 大 き な プ ログ ます . これ か ら も , どん どん プロ グラ ム を 作っ て 1I/O に 
ラム で も コン パイ ル 可 能 . 投稿 し て くだ さい . (Ki) 1 
| eK コン パイ ラ の ユー ザー で な く て も ,52K バ イト の フリ ! 
| ーー ェ リア を 自由 に 使え る . 画 活 研 フ ァ ン の 皆さん , お 待た せ し ま し た . 本 当 は も っ ! 
! @ ロ ー ド , セーブ な ど , F-BASIC 感 覚 で 使え る . と 早く 出版 で きる と 思っ て いた の で す が , いさ 取り 組ん 
% みな ど で す . ディ スケ ッ ト ・ サ ービス 時 に は , この 本 の も みる と 原稿 の 選択 (これ が 本 当 に 時 間 が か か る ), リス ミ 
# の より 機能 アッ プ し て いる と 思い ます . ト の 変更 な ど , 内 容 が 摘 うま で に すでに 日 数 が …. その 
{ Tortoise を BASIC と K コ ン パ イラ 両方 で 記述 し た も の 後 も まだ 色々 手間 の か か る こと ば か り . で も , これ を 一 | 
| を 翌 せ て み ま し た . BASIC と KK コン パイ ラ の 記述 の し 方 , 重 に 良い 本 を 作り た い 一 心 で . 読者 の 皆さん , わか っ て 1 
| 再起 呼び 出し の 可 , 不可 な ど 面 白い 比較 ・ 対 象 が で きる や っ て くだ さい , 純粋 な この 気持 . と 同情 を ひく 私 た ち 1 
! と 思い ます . 多少 コマ ンド に 違い が あり ます が , そこ は で あり まし た . り 
# 大 目 に 見 て くだ さい (人 が 変わ れ ば コマ ンド も 変わ る ). 結果 的 に 今回 は 資料 編 が 第 1 弾 。 第 2 弾 に 比べ , 膨大 
% UNIX ラ イク な テキ スト ・ エ ディ タ micro vii” は いか な ペー ジ 数 に な っ て し まっ た わけ で す が , フル に 活用 し # 
4 が で すか . 大 き な プ ログ ラム に な る と , BASIC の テキ ス て マシ ン を より 身近 な 存在 に し て くだ さい . (A) 1 
| RI 0 そん な と ! 
&。 0 ニー ニタ に SS うがっ とこ ーー ニニ ニー ニッ っ っ な = 
0 別冊 
F"M-'7/11 活用 研究 
昭和 59 年 4 月 10 日 初版 発行 
昭和 59 年 4 月 30 日 第 2 版 第 1 刷 発 行 
昭和 59 年 5 月 25 日 第 2 版 第 2 出発 行 
昭和 60 年 4 月 30 日 第 3 版 第 1 刷 発 行 
@1984 編 集 1/O 編 集 部 
発行 人 星 正明 
発行 所 株 式 会 社 工学 社 


下 151 東京 都 渋谷 区 代々 木 1-37-1 ぜん らく ビル 5F 
谷 03375-5784⑯ 営業 〕 
容 09320-1218⑩ [編集] 


振替 東京 5-22510 





印刷 : 霞 耕 交社 


FM BPI 
満 胃 、 ボ ク ら の 興奮 ゴコロ 


夜空 に 輝く 字 定 女 、 ナス カ の 妙 と 絵 、 レロ モン の 秘 室 。 
いく つ に な っ て も る 、 と ん な 辱 で ち 





興奮 さ せ て くる モノ な ら 大 衣 辺 。 
そん な 人 成 な ココ ロ の と 7 スピ グッ ツ グ 


ハー ド で 興奮 、 ソ フト で 感激 

発売 以来 ご スト セラ ー。 充実 の グラ フィ ッ ク 機 能 、 多 彩 信教 育 用 言語 と し て 注目 き 

な 周辺 装置 な ど 、 ハ ー ド は 万 全 。 加 ぇ て 、 教 育 用 か ら れる FM Logo(FM-7 用 ) を 新 発 
ホビ ー ま で 、 あ ら ゆ る ジャ ン ル で 、 つぎ つぎ と 登場 する エキ 売 。( カ セッ ト 版 \13.000、 ミニ フ ロッ 
サイ ティ ング ソフ ト 。 全 国 の パパ ソ コン ファ ン 興 奮 の 一 耕 て あ ビ イ 版 \16.000) 





@CPU、68B 09 を 2 基 搭 載 、 群 を 抜く 処理 速度 全数 転写 ブリ ンタ 、I/0 拡 張 ボ ックス 等 、 教 育 
ー デ ィ な グラ フィ ッ ク 。 ビジ ネス ・ マ ニア 向け の 周辺 機器 が 続々 登場 。 


1 MI - 4 726.000 伴 時 | 生 ui ml 


高級 ホビ ピー か ら ビ ジネス まで の 多才 バ ソコ ン "NM - 5] \218 000 (本 体 価格 ) 


マイ コン スカ イラ ブ : FM シリ ー ズ の ハー ド か ら ソ フト まで 一 挙 に 展示 実演 、 あ な た の パソ コン の コン サル タン ト と し て ご 活用 くだ さい -。 @ 東 京 ・ 虎 ノ 門 (03)591-1091/591-2561 @ 東 京 ・ 秋 葉 原 (03)251-1448/251-1449 @ 札 幌 < 時 計 台 
ピル > (011)222-5476 < 丸井 今井 > (011)241-4185 @ 仙 台 (0222)66-8711 名 古屋 (052)221-6016 大 阪 (06)344-7628/341-0486 広島 (082)247-3949 @ 福 岡 < 開 設 準備 室 〉 (092)471-7203 
富士 通 株 式 会 社 @ 半 導体 統 部 (03)502-0161 札幌 営 業 所 (011)271-4311 東北 営業 所 (0222)64-2131 e 金 沢 営業 所 (0762)63-7621 @ 長 野営 業 所 (0262)26-8222 @ 静 同 営 業 所 (0542)54-9131 名 古屋 営業 所 


(052)201-85 所 (06)344-1101 広島 営業 所 (082)221-2288 九州 営業 所 (092)411-531 
定価 2500 円 誌 61473-60 









